Dim str As String
Dim TEM As String
Open "C:\Documents and Settings\Administrator\桌面\1.TXT" For Input As 1
Do Until EOF(1)
Line Input #1, TEM
str = str + TEM
Loop
Close #1
其中line input是读取一行的数据，这个函数比较重要，以上代码以及运行过了，呵呵
Dim str As String
Dim TEM As String
Open "C:\Documents and Settings\Administrator\桌面\1.TXT" For Input As 1
Do Until EOF(1)
Line Input #1， TEM
str = str + TEM
Loop
Close #1
其中line input是读取一行的数据，这个函数比较重要，以上代码以及运行过了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024