高校问答济南历城区机关幼儿园:在VB中怎么用文本框读文本文件
来源：百度文库 编辑：高校问答 时间：2024/04/30 05:20:05
Dim TextLine
Open "c:\abc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Debug.Print TextLine
text1=textline
Loop
Close #1
为什么显示出来的是乱码..请叫大侠...(abc.txt中有内容)
但是我用你这种,提示错误....你看看是怎么回事.
Open "c:\abc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Debug.Print TextLine
text1=textline
Loop
Close #1
为什么显示出来的是乱码..请叫大侠...(abc.txt中有内容)
但是我用你这种,提示错误....你看看是怎么回事.
Private Sub cmdOpen_Click()
Dim NextLine As String
Open "c:\label.txt" For Input As #1
txtEdit.Text = ""
Do Until EOF(1)
Line Input #1, NextLine
txtEdit.Text = txtEdit.Text & NextLine & Chr(13) & Chr(10)
Loop
Close
End Sub
对补充答复:
你的代码经上机调试未发现错误,至于出现乱码较难分析,请用全西文作文档试试.另你的代码仅显示最后一行.