如何去除由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 编辑 ]