24小时热门版块排行榜    

查看: 535  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

亡国使徒

新虫 (初入文坛)

[求助] VB读写文件问题,求各路大神帮忙 已有1人参与

用notepad打开一个文件后,用line input语言读取成字符串,为什么结果是把所有的内容读成了一个字符数,不应该是只读取一行的吗?
原文件打开后见图片:
代码如下:
Private Sub Command1_Click()
Dim LineStr As String
Open "F:\试验体.kml" For Input As #1
      Do While Not EOF(1)
           Line Input #1, LineStr
                 Open "f:\1.txt" For Append As #2
                 Print #2, LineStr
                 Close #2
        Loop
Close #1
End Sub

VB读写文件问题,求各路大神帮忙
360反馈意见截图16400301336671.png
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

硬回车是 chr(13)+chr(10), 软回车是chr(10)
3楼2016-11-08 22:57:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

原因可能是你的行不是真的,末尾的回车符不是chr(10)+chr(13), 可能是单独的chr(13) ,lineinput 读取不能当不同的行。

另一个解决方法,读入的是一个字符串,你可以进行分割,vb中有个一个split 函数,可以进行分割转成数组。你再操作数组就随便啦。
2楼2016-11-08 22:53:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见