VB怎样读取和修改txt中文数据？

显示全部楼层 · 2011-4-3 06:25:15

用VB修改和读取当前目录下的a.txt：加载时Text1显示a.txt的文本，单击Command1时，将Text1的文本改入a.txt里。
我做了一次，但不能读取中文，当文本带有中文时，a.txt里对应的那一行就变成空的了，怎么办？

千问 · 2011-4-3 06:25:15

<pre id=\"best-answer-content\" class=\"reply-text mb10\">Private Sub FORM_LOAD()\'把数据读到文本框里
Dim R As String
Open App.Path defds123 \"\\\" defds123 \"A.TXT\" For Input As #1
Do While EOF(1) = False
Line Input #1, R
Text1.Text = Text1.Text defds123 vbCrLf defds123 R
Loop
Close #1
End Sub

Private Sub COMMAND1_click() ‘写入改变的数据
Open App.Path defds123 \"\\\" defds123 \"A.TXT\" For Output As 1
Print #1, Text1.Text
Close #1
End Sub
经过验证通过运行，注意这里的A.TXT的路径你可以自己设定，呵呵