Imports?System.IO
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?System.Object,?e?As?System.EventArgs)?Handles?MyBase.Load
Dim?sr?As?New?StreamReader("d:\test.csv")
Do?Until?sr.EndOfStream
Dim?str?As?String?=?sr.ReadLine
Dim?s()?As?String?=?str.Split(",")
ListBox1.Items.Add(s(0))
Loop
arr1?=?CType(a1.ToArray(GetType(Integer)),?Integer())
sr.Close()
End?Sub
End?Class
不要用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()数组里就存了你要的单词.
----------------------------------
哈,是我的失误没想到还有可能有半角的日文.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As System.IO.StreamReader
Do While Not r.EndOfStream
MsgBox(r.ReadLine)
End Sub
写入:Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
sr.WriteLine("写入的内容") sr.Close()读取:If (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() (读取文本到文本框)
Loop end if
软糖来告诉你吧.
VB.net中读写文件主要使用System.IO命名空间.
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取,注意编码格式和写入的编码保持一致.
Dim s As String = sr.ReadToEnd()
③ 使用 File.WriteAllText 写入,会覆盖同名的文件.
Dim 要写的内容 As String = ""
④ 使用 StreamWriter 写入.
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加写入.
将上面代码的第二个参数False改为True.
◆ 满意请采纳,谢谢 ◆
代码如下:
'写文本文件
'创建(写入)一个文本文件
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()
'读文本文件
'读取一个文本文件
MyReader.Close()
气斜射入水或其他介质,折射光线与入射光线法线在
①.、实现上传按钮方法代码.
以上就是土嘎嘎小编为大家整理的vb.net读写文本相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!