我想读取.TXT文件中的文字，用 line input主要思路就是把遇到一个回车符前的文字放入变量a中，然后再把a放入数组b()中，程序如下，帮忙看下有什么问题
Dim a As String
Private Sub Form_Load()
Dim i As Integer
Open "G:\00.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
strcopy(b(i),a)
i = i + 1
Loop
End Sub
2007-01-21 17:18
我想读取.TXT文件中的文字，用 line input主要思路就是把遇到一个回车符前的文字放入变量a中，然后再把a放入数组b()中，程序如下，帮忙看下有什么问题
Dim a As String
dim b(100) as string ' 根據需要定義數組
Private Sub Form_Load()
Dim i As Integer
Open "G:\00.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
strcopy(b(i),a) /*這句換成 b(i)=a 我沒查到這個函數 strcopy 樓主是不是受C語言影響*/
i = i + 1
Loop
close #1 ' 打開文件要關閉
End Sub
另外說一句,樓主寫代碼最好有點縮進,這樣看起來舒服點
[此贴子已经被作者于2007-1-21 18:03:45编辑过]
2007-01-21 18:03
