UC知道请教VB高手！！！急！！！！
来源：百度知道 编辑：UC知道 时间：2024/05/31 15:42:44
Private Sub C1_Click()
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, mystring
Text1.Text = mystring
Loop
Close #1
End Sub
Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub C3_Click()
Open App.Path & "\out5.txt" For Output As #2
Print #2, Text1.Text
Close #2
End Sub请问是那个地方错了？
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, mystring
Text1.Text = mystring
Loop
Close #1
End Sub
Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub C3_Click()
Open App.Path & "\out5.txt" For Output As #2
Print #2, Text1.Text
Close #2
End Sub请问是那个地方错了？
程序是对的
但先要在当前路径下建立一个in5.txt文件用于读取数据
还有mystring最好声明一下
你的情况应该是点击C1的时候TEXT控件没有输出文件中的所有错误吧
那是因为Do While Not EOF(1)
Input #1, mystring
Text1.Text = mystring
Loop这里面赋值TEXT1的时候只是把你的文件中的最后一行的内容赋值给了TEXT文本
应该修改为
Do While Not EOF(1)
Input #1, mystring
Text1.Text = text1.text & vbcrlf & mystring
Loop
其中vbcrlf你可以理解为换行符
Input #1, mystring
Text1.Text = mystring
这2句改成：
Line Input #1, mystring
Text1.Text = Text1.Text & mystring & VbCrLf
代码没错
可能就是打开文件时会出错
因为在App.Path大概没有in5.txt这个文件
还有就是in5.txt这个文件为空时 会出现无法读取的情况