Question

用vb怎样删除文本每行前面的空格？

文本内容中有的行前有空格，空格数量不定，如何能删除前面的空格。这个用bat批处理是可以的：for /f %%i in (a.txt) do echo %%i>>2.txt。但我想用vb实现，请按这样的设想作程序：vb窗体上有个文本框text1和按钮command1。在text1中输入像如下内容，点击按钮后，自动删除每一行前面的空格。
64507985
65220329
65280788
65693636
69285110
70399684
75021716
76941575
77255821
83054022
85146822

Answer 1

Private Sub Command1_Click()
'仅去掉每一行前面的空格
Dim ary() As String
Dim i As Long
Me.List1.Clear
ary = Split(Me.Text1.Text, vbCrLf)
Text1 = ""
For i = LBound(ary) To UBound(ary)
Text1 = Text1 & LTrim(ary(i)) & vbCrLf
Next
End Sub
Private Sub Command2_Click()
'去掉全部空格
Text1.Text = Replace(Replace(Text1.Text, vbTab, ""), " ", "")
End Sub
Private Sub Command3_Click()
'去掉所有空行
Do While InStr(Text1.Text, vbCrLf & vbCrLf) > 0
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Loop
End Sub
Private Sub Form_Load()
'在text1中产生几个有前导空格的数据。
For i = 1 To 10
Text1 = Text1 & Chr(13) & Chr(10) & String(Int(Rnd * 5), " ") & 5 * i & "，"
Next i
End Sub

Answer 2

Private Sub Command1_Click()
'textbox中所有的tab和空格都被清除掉了。
Text1.Text = Replace(Replace(Text1.Text, vbTab, ""), " ", "") '用一下一楼的代码啊，谢谢了
'去空行
dim arr() as string,ss as string
dim i as integer
arr = Split(Text1.text, vbCrLf)
For i = 0 To UBound(arr)
If Trim(Replace(arr(i), "　", "")) <> "" Then ss = ss & vbCrLf & arr(i)
Next
Text1.text = Mid(ss, 3)
End Sub

Answer 3

Private Sub Command1_Click()
'textbox中所有的tab和空格都被清除掉了。
Text1.Text = Replace(Replace(Text1.Text, vbTab, ""), " ", "")
End Sub

追问

如果输入的内容有空行（一个或多个空行，不规则），也不影响处理结果。可以吗？

追答

空行无法删除，这个只是去掉tab和空格。

Answer 4

直接用Trim()函数可以去除开头和结尾的空着