作者zzzluna (zzz)
看板Visual_Basic
标题[.NET] 读档疑问
时间Thu Jul 13 13:48:23 2006
想请问一下板上的高手
我想要做的是读取TXT档
并且把他资料矩阵化
以下是我目前所用的程式码
但是会发生一个问题
就是使用一维阵列，当读到下一行时
上一行的资料会被洗掉
我曾想过用二为动态阵列
但是split只允许用一维
那请问一维要怎麽做才能做成二维阵列呢？
我想了好久都想答案
Dim ReadStr() As String
Dim i As Integer
Dim output As String
Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
' Dim IOfile As IO.File
OpenFileDialog1.Filter = "纯文字档|*.txt"
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
MsgBox("使用者取消读档", MsgBoxStyle.Exclamation)
Exit Sub
End If
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
ReadStr = Split(LineInput(1), ",")
For i = 0 To ReadStr.GetUpperBound(0)
output &= i & vbTab & ReadStr(i) & vbCrLf
Next
Loop
MessageBox.Show(output, " ", MessageBoxButtons.OK,
MessageBoxIcon.Information)
FileClose(1)
先感谢愿意协助我的大大了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.164.33.221