我需要把不同的数据只用空格分开

xgngg

我需要把不同的数据同时放在TEXTBOX1中，只用空格分开，每个分开的数据都作为一个参数使用，                                                 例如12 34 56 78                         把12赋予A，34赋予B.........

雪山飞狐_lzh

用Split函数分割



pVal=Split(TextBox1.Text," ")


A=pVal(0)


B=pVal(1)


........

xgngg

我用的是CAD2000,没有split这个函数.

雪山飞狐_lzh

如果真的没有可以自己编一个

2. Public Function LeftStr(ByVal String1 As Variant, ByVal String2 As Variant)
3. On Error Resume Next
4.        LeftStr = Left(String1, InStr(String1, String2) - 1)
5.        If Err Then LeftStr = False
6. End FunctionPublic Function RightStr(ByVal String1 As Variant, ByVal String2 As Variant)
7. On Error Resume Next
8.        RightStr = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)
9.        If Err Then RightStr = False
10. End FunctionPublic Function MySplit(ByVal String1 As Variant, ByVal String2 As Variant)
11. Dim pStr() As String
12. Dim pStrs As New Collection
13. Do While InStr(1, String1, String2) > 0
14. pStrs.Add LeftStr(String1, String2)
15. String1 = RightStr(String1, String2)
16. Loop
17. pStrs.Add String1
18. ReDim pStr(pStrs.Count - 1)
19. For i = 0 To pStrs.Count - 1
20. pStr(i) = pStrs(i + 1)
21. Next i
22. MySplit = pStr
23. End FunctionPublic Sub test()
24. For Each i In MySplit("12 23 45", " ")
25. MsgBox i
26. Next i
27. End Sub

Public Function LeftStr(ByVal String1 As Variant, ByVal String2 As Variant) On Error Resume Next        LeftStr = Left(String1, InStr(String1, String2) - 1)        If Err Then LeftStr = False End FunctionPublic Function RightStr(ByVal String1 As Variant, ByVal String2 As Variant) On Error Resume Next        RightStr = Right(String1, Len(String1) - Len(String2) - InStr(String1, String2) + 1)        If Err Then RightStr = False End FunctionPublic Function MySplit(ByVal String1 As Variant, ByVal String2 As Variant) Dim pStr() As String Dim pStrs As New Collection Do While InStr(1, String1, String2) > 0 pStrs.Add LeftStr(String1, String2) String1 = RightStr(String1, String2) Loop pStrs.Add String1 ReDim pStr(pStrs.Count - 1) For i = 0 To pStrs.Count - 1 pStr(i) = pStrs(i + 1) Next i MySplit = pStr End FunctionPublic Sub test() For Each i In MySplit("12 23 45", " ") MsgBox i Next i End Sub

我以前也不知道可以用Split分割，所以自己编了一个

gdzhou

Public Function readlin(ByVal nl As String, ByRef data() As String) As String
Dim i, j As Integer
Dim d(20), s As String
s = " "
i = InStr(1, nl, s)
d(0) = 1
j = 1
While i <> 0
'd()中记录的","出现的位置
d(j) = i
i = InStr(i + 1, nl, s)
j = j + 1
Wend
d(j) = Len(nl) + 1
nn = 0 For i = 1 To j
If d(i) - d(i - 1) > 1 Then
data(nn) = Trim(Mid(nl, d(i - 1), d(i) - d(i - 1)))
nn = nn + 1
End If
Next i
End Function

wyj7485

如果中间的空格数不均匀，如下：


1                                         2                                                                         3


12                                34                                                         56


123         345                                         567


这又怎样实现数据分开呢？

wyj7485

以上程序如下： Public Function SplitStr(MainStr As String, Pos As Integer) As String
Dim l, i, j, n, k
Dim StrVal(0 To 100) As Variant
Dim MyStr As String
n = 1: j = 0: i = 0
MyStr = " " l = Len(MainStr)
While i < l
k = InStr(n, MainStr, " ")
If k = 0 Then k = l + 1
MyStr = Mid(MainStr, n, k - n)
n = InStr(n, MainStr, " ") If MyStr = "" Then
n = n + 1
i = i + 1
Else
j = j + 1
i = i + Len(MyStr)
StrVal(j) = MyStr
End If Wend SplitStr = StrVal(Pos)
End Function Sub test() SplitStr("1 2 3", 1) End Sub