Visual Basic.NET(将文本文件导入数组)
2008-03-25 14:27
369 查看
Visual Basic.NET(将文本文件导入数组)
[align=left]开始时引用
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[/align]
[align=left]开始时引用
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[/align]
相关文章推荐
- Visual Basic.NET(将文本文件导入数组)
- 在 Visual Basic .NET 和 Visual C# .NET 中创建控件数组
- 在 Visual Basic .NET 和 Visual C# .NET 中创建控件数组
- .net入门之VB篇:Visual Basic.Net中的文件操作(一)
- 将Visual Basic 6.0程序转换到Visual Basic.NET
- Visual Basic.net ArrayList 用法
- [导入]打开项目时提示如下错误:Visual Studio .NET 无法创建应用程序...
- 使用 Visual Basic .NET 访问 Google 的 Web 服务(MS)
- 转:Visual Basic.NET快速开发MIS系统(2)
- 升级到Visual Basic.NET
- Visual Basic.net还是C# ——如何选择.net语言
- 3DSTATE for Visual basic.Net开发(三)
- 3DSTATE for Visual basic.Net开发(九)
- Visual Basic .NET处理Excel表格全接触
- 从 Visual Basic 6.0 到 Visual Basic.NET 的转换
- 将Visual Basic 6.0程序转换到Visual Basic.NET
- Visual Basic.NET探密
- 与Visual Basic .NET一起使用.NET Framework
- Visual Basic .Net打造个性化菜单
- 从过去到未来、 从Visual和Basic到Net(三)