faint真少见 DIM Str as string OPEN "c:\a.txt" for input as #1WHILE NOT EOF(1) Line Input #1, Str WENDCLOSE #1
如果文件很大,可以 dim str1 as string Open "c:\test.txt" For Input As 1 str1 = Strconv(InputB$(LOF(1), 1), vbUnicode)'整个文件读到字符串 close 1dim astr() as string astr = split(str1,vbCrLf)'分割每一行到字符串动态数组……erase astr'用完释放动态数组
line input每次读一行到变量,自动判断并省略回车符
DIM Str as string OPEN "c:\a.txt" for input as #1WHILE NOT EOF(1)
Line Input #1, Str
WENDCLOSE #1
dim str1 as string
Open "c:\test.txt" For Input As 1
str1 = Strconv(InputB$(LOF(1), 1), vbUnicode)'整个文件读到字符串
close 1dim astr() as string
astr = split(str1,vbCrLf)'分割每一行到字符串动态数组……erase astr'用完释放动态数组
viena的方法可以选择,当然用Get会更快些