SOS！！求文本处理代码具体如下！100分相送另外可送分！在线等待！

Question

第一段代码是：
读一句文本，文本如下：“我爱你 1998 年 这是真的 123”
把以上以空格分开的文本分别附值给 string1
string2
string3
string4
string5

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim strTmp As String, strArray() As String
    
    strTmp = "我爱你 1998 年 这是真的 123"
    strArray = Split(strTmp, " ") '存到数组中,一个数组元素是你要的一个词组~~
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim strTmp As String, strArray() As String
    
    strTmp = "我爱你 1998 年 这是真的 123"
    strArray = Split(strTmp, " ") '存到数组中,一个数组元素是你要的一个词组~~
    Dim i As Integer
    
    For i = 0 To UBound(strArray)
        MsgBox strArray(i)
    Next
End Sub

Answer 3

'写一个方法：
Private Sub SplitString(byval strS As String,strarrReturn() As String)
    If Instr(1,strS," ")>0 Then
        strarrReturn=Split(strS," ")
    End If
End Sub'调用上面的方法：
Private Sub Command1_Click()
   Dim strS As String
   Dim strarrTmp() As String      strS="我爱你 1998 年 这是真的 123"
   Call SplitString(strS,strarrTmp)
End Sub

Answer 4

同意！
就是 Split搞定