我的代码:
outputfilename = App.Path + "\" + "output.txt"
outlnghandle = FreeFile()
Open outputfilename For Input As outlnghandle
Do While Not EOF(outlnghandle)
Line Input #outlnghandle, strline
strall = strall & strline & vbCrLf '是不是这句有问题
Loop
Close outlnghandle
Text1.Text = strall
outputfilename = App.Path + "\" + "output.txt"
outlnghandle = FreeFile()
Open outputfilename For Input As outlnghandle
Do While Not EOF(outlnghandle)
Line Input #outlnghandle, strline
strall = strall & strline & vbCrLf '是不是这句有问题
Loop
Close outlnghandle
Text1.Text = strall
FileName = App.Path + "\" + "output.txt"
RichTextBox1.LoadFile FileName