Question

vb 查找字符

文本内容：
safda
"“"
”“
a a a
代码如下：
Private Sub Command2_Click()
Dim s, ss, k() As String
Dim i As Integer
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
k = Split(s, "")
For i = LBound(k) To UBound(k)
If k(i) = "a" Then
ss = ss + "zx"
End If
Next i
Loop
Close #1
Text2.Text = ss
End Sub
为什么text2.text不显示？

Answer 1

因为没有满足的条件 k(i)="a" 所以text2显示空
solit(s," ") 要以空格为分界 而你没写 k = Split(s, " ")这样才对

Private Sub Command2_Click()
Dim s, ss, k() As String
Dim i As Integer
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
k = Split(s, " ")
For i = LBound(k) To UBound(k)
If k(i) = "a" Then
ss = ss + "zx"
End If
Next i
Loop
Close #1
Text2.Text = ss
End Sub

Answer 2

k=split(s,chr(32))