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

[zhoujinwei]

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

[射天狼]

用split函数

[射天狼]

Option Explicit

Private Sub Command1_Click()
Dim strTmp As String, strArray() As String

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

[射天狼]

Option Explicit

Private 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

[海牛]

'写一个方法：
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

[高高兴兴的晶晶]

同意！
就是 Split搞定