您所在位置：主题：如何去除由excel转出来的txt文件中的“大空格”？
ictest
[专家分：0] 发布于 2012-03-22 22:45:00
现有一个由excel转出来的txt文件，内部所有的空格都是“大空格”，估计是tab，我已可以读出其中所需要的一行，但是想去除其中的“大空格”，也就是说只需要字符串，但是我用了S = Replace(S, vbTab, "")语句，发现不管用，在text1.text中还是显示“大空格”，请问这是什么原因？
现将我的程序贴出，请帮我看看哪里错了，谢谢。
Private Sub Command1_Click()
Open "c:\11.txt" For Input As #1
Dim S As String
S = Replace(S, vbTab, " ")
Do While Not EOF(1)
Line Input #1, S
If InStr(S, Label1.Caption) <> 0 Then
Label3.Caption = Right(S, 315)
Text1.Text = S
Exit Do
End If
Loop
Close
End Sub
Private Sub Form_Load()
Label1.Caption = "Bin1"
End Sub
附件为需要读的11.txt文件和我编写的程序。
现将我的程序贴出，请帮我看看哪里错了，谢谢。
Private Sub Command1_Click()
Open "c:\11.txt" For Input As #1
Dim S As String
S = Replace(S, vbTab, " ")
Do While Not EOF(1)
Line Input #1, S
If InStr(S, Label1.Caption) <> 0 Then
Label3.Caption = Right(S, 315)
Text1.Text = S
Exit Do
End If
Loop
Close
End Sub
Private Sub Form_Load()
Label1.Caption = "Bin1"
End Sub
附件为需要读的11.txt文件和我编写的程序。
