VB.net窗体设计中 , 如何读取.txt文件中的数据?1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2 。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFileAs String
Dim intFileAs Integer
Dim strDataAs String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = https://www.04ip.com/post/StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码,点击Command1,进入单步调试功能,
4、多次按下F8或直接按下F5运行完成 , 就完成了读取文本文件内容并输出到立即窗口 。
如何用vb.net编写读取txt内容的代码?窗体上添加2个文本框,设置成多行,2个按钮,在文本框1里随便输入若干文字,可以多行,单击按钮1,保存到文件 。然后单击按钮2,把刚才写入的文件读到文本框2里 。
代码如下:
'写文本文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath"\Ssk.txt", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
'读文本文件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath"\Ssk.txt", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
气斜射入水或其他介质,折射光线与入射光线法线在
vb.net中 , 读取和写入文件写入:Dim sr As New IO.StreamWriter(Application.StartupPath"/写入的文本.txt")
sr.WriteLine("写入的内容")sr.Close()读?。篒f (File.Exists(Application.StartupPath"/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath"/读取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine()(读取文本到文本框)
Loopend if
如何用VB.net 读写Unicode编码的文本不要用do until,用for:
Dim arr() As String, i As Integer
arr = Split(r.ReadLine, " ")
For i = LBound(arr) To UBound(arr)
MsgBox(arr(i))
Next
--------------------
还是用readline,如果你要提取两个非连续空格之间的字符串,可以用
Dim arr() As String
arr = Split(r.ReadLine, " ")
arr()数组里就存了你要的单词 。
快要下班了 , 明后天不上班,如果16:30之前还搞不定就要下个星期1了 。
----------------------------------
哈,是我的失误没想到还有可能有半角的日文 。
用utf-8就OK了,代码如下:
(文本文件存的时候不能存成ansi,要存成utf-8,或是Unicode)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As System.IO.StreamReader
r = New System.IO.StreamReader("c:\a.txt", System.Text.Encoding.GetEncoding("utf-8"))
Do While Not r.EndOfStream
MsgBox(r.ReadLine)
Loop
End Sub
vb.net如何读写二进制文件? 有各种类型的变量open函数用来打开一个文件,其调用的一般形式为:
文件指针名=fopen(文件名,使用文件方式);
其中,
“文件指针名”必须是被说明为FILE
类型的指针变量;
“文件名”是被打开文件的文件名;
“使用文件方式”是指文件的类型和操作要求 。
“文件名”是字符串常量或字符串数组 。
例如:
FILE
*fp;
fp=("file
a","r");
其意义是在当前目录下打开文件file
a,只允许进行“读”操作,并使fp指向该文件 。
又如:
FILE
*fphzk
fphzk=("c:\\hzk16","rb")
其意义是打开C驱动器磁盘的根目录下的文件hzk16,这是一个二进制文件,只允许按二进制方式进行读操作 。两个反斜线“\\
”中的第一个表示转义字符 , 第二个表示根目录 。
使用文件的方式共有12种,下面给出了它们的符号和意义 。
文件使用方式
意义
“rt”
只读打开一个文本文件,只允许读数据
“wt”
只写打开或建立一个文本文件,只允许写数据
“at”
追加打开一个文本文件,并在文件末尾写数据
“rb”
只读打开一个二进制文件,只允许读数据
“wb”
只写打开或建立一个二进制文件,只允许写数据
“ab”
追加打开一个二进制文件 , 并在文件末尾写数据
“rt ”
读写打开一个文本文件,允许读和写
“wt ”
读写打开或建立一个文本文件,允许读写
“at ”
读写打开一个文本文件,允许读,或在文件末追加数据
“rb ”
读写打开一个二进制文件,允许读和写
“wb ”
读写打开或建立一个二进制文件 , 允许读和写
“ab ”
读写打开一个二进制文件,允许读 , 或在文件末追加数据
对于文件使用方式有以下几点说明:
1)
文件使用方式由r,w,a,t,b,六个字符拼成,各字符的含义是:
r(read):
读
w(write):
写
a(append):
追加
t(text):
文本文件 , 可省略不写
b(banary):
二进制文件
:
读和写
2)
凡用“r”打开一个文件时,该文件必须已经存在 , 且只能从该文件读出 。
3)
用“w”打开的文件只能向该文件写入 。若打开的文件不存在,则以指定的文件名建立该文件,若打开的文件已经存在,则将该文件删去,重建一个新文件 。
4)
若要向一个已存在的文件追加新的信息,只能用“a”方式打开文件 。但此时该文件必须是存在的,否则将会出错 。
5)
在打开一个文件时,如果出错,fopen将返回一个空指针值NULL 。在程序中可以用这一信息来判别是否完成打开文件的工作,并作相应的处理 。因此常用以下程序段打开文件:
6)
if((fp=fopen("c:\\hzk16","rb")==NULL)
{
printf("\nerror
on
open
c:\\hzk16
file
VB.net 读取文本文件?1、实现上传按钮方法代码 。
2、判断图片对象是否为空代码 。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码 。
4、字节数组转换为Image类型方法代码 。
5、处理SQL中操作Image类型方法代码 。
6、实现vb.net文本文件读写的上传结果 。
【vb.net文本文件读写 vbnet读取文件内容】关于vb.net文本文件读写和vbnet读取文件内容的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- oracle导入数据锁表,oracle 数据导入表
- cad如何转pdf标注,pdf转cad之后标注不对怎么办
- linux查看内容命令 查看linux的命令
- 带手机壳的人有什么特点,带手机壳的人有什么特点吗
- 阿里dns服务器怎么设置,阿里dns怎么样
- 新手可以剪辑什么视频软件,适合新手剪辑视频的软件
- go语言实战pdf电子版 go语言入门经典pdf
- erp系统生产模块调研,erp生产模块作业指导书
- 眼袋直播文案,眼袋广告语