如何去除由excel转出来的txt文件中的“大空格”？
现有一个由excel转出来的txt文件，内部所有的空格都是“大空格”，估计是tab，我已可以读出其中所需要的一行，但是想去除其中的“大空格”，也就是说只需要字符串，但是我用了S = Replace(S, vbTab, "")语句，发现不管用，在text1.text中还是显示“大空格”，请问这是什么原因？现将我的程序贴出，请帮我看看哪里错了，谢谢。
附件为需要读的11.txt文件
11.zip
(2.77 KB)
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
再增加一个附件为我编写的程序
提取含指定字符的行.zip
(2.38 KB)
[ 本帖最后由 ictest 于 2012-3-22 21:56 编辑 ]
