vb获取字符串中字符

2025-02-23 00:24:13
推荐回答(3个)
回答1:

Private Sub Command1_Click()
Dim b As Integer, a As String, I As Integer, c As String, d As String
a = Text1.Text
c = "": d = ""
For I = 1 To Len(a)
b = Asc(Mid(a, I, 1))

If (b >= 65 And b <= 90) Or (b >= 97 And b <= 122) Then
d = d & Mid(a, I, 1)
Else
If d <> "" Then c = c & d & vbCrLf
d = ""
End If
Next I

Print c

End Sub

回答2:

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text)
For i = 0 To UBound(a)
Print a(i)
Next
End Sub

回答3:

如果每个单词用一个空格" " 隔开你可以这样
dim a() as string '定义存放单词的数组
a=split(trim(text1.text)," ")