Question

vb如何逐字读取文本并将文本内容赋值给指定变量？急急急～～～！

那位大虾知道这个问题请速回，谢谢
就是如何读取文本数据并赋值变量？

Answer 1

给你编了一个小程序，可以根据自己的需求再调整
程序逐行读取C:\ABC.Txt的内容，赋值到ReadStr数组

Private Sub Form_Load()
On Error GoTo Err
Dim Tmp As String, I As Long, ReadStr() As String, Index As Long
Open "C:\ABC.Txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Tmp
ReDim Preserve ReadStr(Index)
ReadStr(Index) = Tmp
Index = Index + 1
Loop
Close #1
For I = 0 To Index
Debug.Print ReadStr(I)
Next
Exit Sub

Err:
Close #1
End Sub

Answer 2

文本数据的格式是怎样的?是普通的txt文件吗?赋值变量