VB用Line input函数能读多长的字符串？

2024年12月02日 14:59

有1个网友回答

网友（1）：

不会啊!

Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。

你看看是不是这样读的:

Private Sub Command1_Click()
Dim TextLine As String
Open "c:\tmp123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Debug.Print TextLine
Debug.Print "长度: " & LenB(StrConv(TextLine, vbFromUnicode))
Loop
Close #1
End Sub