Question

VB中如何判断一个a.txt文件到底有多少个空格？

Answer 1

Open "c:\a.txt" For Input As #1
s = 0
Do While Not EOF(1)
Line Input #1, R
Do While Len(R) >= 1
mstr = Left(R, 1)
If mstr = Chr(32) Then s = s + 1
R = Right(R, Len(R) - 1)
Loop
Loop
Print s
Close #1

Answer 2

Private Sub Command1_Click()
Dim a() As String

a = Split(Text1.Text)

MsgBox UBound(a)
End Sub

Private Sub Form_Load()
Text1.Text = "a b c b a"
End Sub

追问

我是要判断一个text文件里面有多少个空格。

追答

Private Sub Form_Load()
Dim str As String
Open "D:\G5_1234.LOG" For Binary As #1
str = str & Input(LOF(1), #1)
Close #1

Dim a() As String

a = Split(str)

MsgBox UBound(a)

End Sub
自己把路径改一下！~