vb从txt中读取字符串

显示全部楼层 · 2009-2-16 12:56:59

txt字符串的形式
03090104093218
12090104180259
两行之间有空格，将上面的字符串读到二维数组中。用循环，因为有很多行，谢谢大家了。

千问 · 2009-2-16 12:56:59

Private Sub Command1_Click()Dim str(1 To 10, 1 To 2) As String '数组大小可以设置大些，得看你文件中有多少数据。Dim tm As String '存放空行的无用变量Dim i As IntegerOn Error Resume NextOpen "d:\cc.txt" For Input As #1'自己更改文件路径i = 1Do While Not EOF(1)Line Input #1, str(i, 1)Line Input #1, tmLine Input #1, str(i, 2)Line Input #1, tm...

千问 · 2009-2-16 12:56:59

Private Sub Form_Load() Dim str() As String Open App.Path & "\cc.txt" For Input As #1 Do While Not EOF(1) Line Input #1, str Loop Close #1end sub...