Visual Basic.NET(将文本文件导入数组)
开始时引用
Imports System.IO
按钮的Click事件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'打开目标文件(文件流)
Dim myFs As New FileStream(Application.StartupPath & "/a.txt", FileMode.Open, FileAccess.Read)
'读文件
Dim r As New StreamReader(myFs)
Dim i As Integer
Dim myLine, tempStr As String
'创建数组,接收文件数据
Dim myLineStr(), a(100), b(100) As String
Dim c(100) As Integer
i = 0
myLine = r.ReadLine
Do While Not (myLine Is Nothing)
myLineStr = myLine.Split(",")
a(i) = myLineStr(0)
b(i) = myLineStr(1)
c(i) = myLineStr(2)
i += 1
Loop
End Sub
Imports System.IO
按钮的Click事件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'打开目标文件(文件流)
Dim myFs As New FileStream(Application.StartupPath & "/a.txt", FileMode.Open, FileAccess.Read)
'读文件
Dim r As New StreamReader(myFs)
Dim i As Integer
Dim myLine, tempStr As String
'创建数组,接收文件数据
Dim myLineStr(), a(100), b(100) As String
Dim c(100) As Integer
i = 0
myLine = r.ReadLine
Do While Not (myLine Is Nothing)
myLineStr = myLine.Split(",")
a(i) = myLineStr(0)
b(i) = myLineStr(1)
c(i) = myLineStr(2)
i += 1
Loop
End Sub
本文介绍了一个使用Visual Basic.NET从本地文本文件中读取数据并将其存储到数组中的示例程序。通过FileStream和StreamReader组件打开和读取文件,再利用Split方法按逗号分隔字符串,最终将数据分配到不同的数组变量。
13

被折叠的 条评论
为什么被折叠?



