读取文本文件"%"不需要特殊处理 Private Sub CRead_Click() Dim rname As String Dim number As Integer Dim n As Integer Text1.Text = "" Dim s As String Dim cs As String rname = App.Path + "\11.txt" Open rname For Input As #1 Do While Not EOF(1)
Input #1, s cs = cs + s Loop Text1.Text = cs MsgBox "读取文本文件中的全部数值,按写入的先后顺序排列成串,成功!", vbInformation, "提示" Close #1 End Sub
Private Sub CRead_Click()
Dim rname As String
Dim number As Integer
Dim n As Integer
Text1.Text = ""
Dim s As String
Dim cs As String
rname = App.Path + "\11.txt"
Open rname For Input As #1
Do While Not EOF(1)
Input #1, s
cs = cs + s
Loop
Text1.Text = cs
MsgBox "读取文本文件中的全部数值,按写入的先后顺序排列成串,成功!", vbInformation, "提示"
Close #1
End Sub
谢谢,我也验证过了,不是VB读文件的问题!