■■■字符串处理

Question

Dim Main as string , MainA as string , MainB as string 
dim MIDA as string , MIDB as string
main = "QQQ 12345"
mainA = "WWWWWWW 12342234"
mainB = "EEEE oooooo"'窗体上有两个Textbox. 一个是 Text1 ,一个是Text2如何获取字符串空格前的字符串数?? 
如何将 字符串由空格出分开.将空格前的字符串现实在 Text1中.空格后面的现实在Text2中 ?
中间的空格并且去掉?求例子代码.谢谢!

Answer 1

Private Sub Command1_Click()
Dim Main As String, MainA As String, MainB As String
Main = "QQQ 12345"
MainA = "WWWWWWW 12342234"
MainB = "EEEE oooooo"
Dim a '数组
Dim b As Integer '长度
a = Split(Main, " ")
b = Len(a(0)) '取得长度
Text1.Text = a(0)
Text2.Text = a(1)
End Sub

Answer 2

如果字符串为 "AAAAAA BBBBBBBBB CCCCCCC" 的话.
后面的CCCCCC 就没有了..如何从第一个空格处 分开呢?

Answer 3

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = "aa bb cc"
b = ""
c = ""
x = 1
Do While x <= Len(a)
    
    b = b & Mid(a, x, 1)
    If Asc(Mid(LTrim(a), x, 1)) = 32 Then
        c = Mid(a, (x + 1), Len(a) - x + 1)
        Exit Do
    End If
    x = x + 1
Loop
Text1.Text = b
Text2.Text = c
End Sub