Question

VB 分割字符串

VB 分割一段字符 比如 ABC DEF H 要求从第一个空格开始 分为两份 ABC 和 DEF H

Answer 1

汗...split函数是可以指定拆分次数的.....在分隔符后面指定拆分成2份就行了.....楼上的竟然搞那么复杂
Debug.Print Split(Str, " ", 2)

Answer 2

strName As String, ParamArray intScores() As Variant)
Dim intI,k As Integer
Dim substr as String
k=0
substr=""
Debug.Print strName; " Scores"
' 用 UBound 函数决定数组的上限。
For intI = 0 To UBound(intScores())
Debug.Print " "; intScores(intI)
substr=substr+intScores(intI)
k=k+1
IF(k=2) then
Debug.Pring " "; substr
k=0
substr=""
End If
Next intI
End Sub

Answer 3

jinfahua是正解，结贴吧
附上方法2：
用到split函数
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As String
Dim i As Integer
s = "ABC DEF H"
a = Split(s)
c1 = a(0)
For i = 1 To UBound(a)
c2 = c2 & " " & a(i)
Next
c2 = Trim(c2)
Print c1
Print c2
End Sub

Answer 4

没有容错 处理

Private Sub SplitFunc(Dim inString As String,Dim outStr1 As String,Dim outStr2 As string)
Dim Length
Length=InStr(inString," ")
outStr1=Left(inString,Length-1)
outStr2=Right(inString,Len(inString)-Length)
End Sub

Dim str1,str2 As String
SplitFunc "abc def h",str1,str2
MsgBox "Part1: " & str1 & vbNewLine & "Part2: " & str2,,"SplitFunc"

Answer 5

Dim S As String, C1 As String, C2 As String
Dim I As Integer
S = "ABC DEF H"
I = InStr(1, S, " ")
C1 = Left(S, I - 1)
C2 = Mid(S, I + 1)