7,763
社区成员
发帖
与我相关
我的任务
分享关于读取文本文件中一行的问题
如果一个文本文件，每行只是以回车符结束，没有换行符，使用LINE INPUT无法判断行结束，请问各路高手如何读取这样的文本。
...全文
请发表友善的回复…
发表回复
northwolves 2004-10-27
- 打赏
- 举报
Private Sub Command1_Click()
Dim x As String
Open "d:\123.txt" For Input As #1
x = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
MsgBox Split(x, vbCr)(2) '第3行
End Sub
Dim x As String
Open "d:\123.txt" For Input As #1
x = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
MsgBox Split(x, vbCr)(2) '第3行
End Sub
tztz520 2004-10-27
- 打赏
- 举报
Private Sub Command1_Click()
Dim s
Dim ls_Content
Open "f:\readme.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ls_Content = Split(s, chr(13))
MsgBox ls_Content(2)'读第二行
End Sub
Dim s
Dim ls_Content
Open "f:\readme.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ls_Content = Split(s, chr(13))
MsgBox ls_Content(2)'读第二行
End Sub
思考 2004-10-27
- 打赏
- 举报
replace
vansoft 2004-10-27
- 打赏
- 举报
line input读进来不就一行吗？
是以回车符为界的。
是以回车符为界的。
