关于split函数,有这样一段代码:
Private Sub Command1_Click()
Dim a As String
Dim ls_Content() As String
Dim LogCount As Long
Dim i As Integer
a = "ABC789AC789DD789safasf789asdfsf789safdasfd789789"
ls_Content = Split(a, "789")
For i = 0 To UBound(ls_Content)
MsgBox ls_Content(i)
Next i
End Sub
msgbox依次显示的是:
第一次:ABC
第二此:AC
3:DD
4:safasf
5:asdfsf
6:safdasfd
为什么这个ls_content的一维字符数组会使这样的结果那?难道这里把ABC与AC,DD等各看成一个数据马?这是split的内部定义马?
Private Sub Command1_Click()
Dim temp() As String, X As String, I As Long
X = "xxx1234567890abcd9876543210xxxqwqwqwqwqwabcghghghghghghxxx1234567890abcd9876543210xxxqwqwqwqwqwabcghghghghghghxxx1234567890abcd9876543210xxxqwqwqwqwqwabcghghghghghgh"
On Error Resume Next
temp = Split(X, "abc")
MSFlexGrid1.TextMatrix(1, 1) = Right(temp(I), 10)
MSFlexGrid1.TextMatrix(1, 2) = Left(temp(UBound(temp)), 10)
For I = 1 To UBound(temp) - 1
MSFlexGrid1.AddItem "" & vbTab & Right(temp(I), 10)
MSFlexGrid1.AddItem "" & vbTab & Left(temp(I), 10)
Next
End Sub
Private Sub Form_Load()
MSFlexGrid1.Cols = 2
End Sub
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
dim tempStr as string
Set db = OpenDatabase(App.Path & "\aaa.mdb")
Set rs = db.OpenRecordset("select * from tablename")
Do While Not rs.EOF
tempStr=rs.Fields(0).Value
if len(tempStr)>20 then
msflexgrid.text=mid(tempStr,1,10) & "..." & mid(tempStr,len(tempStr)-9,10)
else
msflexgrid.text=tempStr
end if
rs.MoveNext
Loop
End Sub
Private Sub Command1_Click()
Dim temp() As String, X As String, I As Long
X = "xxx1234567890abcd9876543210xxxqwqwqwqwqwabcghghghghghghxxx1234567890abcd9876543210xxxqwqwqwqwqwabcghghghghghghxxx1234567890abcd9876543210xxxqwqwqwqwqwabcghghghghghgh"
On Error Resume Next
temp = Split(X, "abc")
Debug.Print Right(temp(I), 10)
Debug.Print Left(temp(UBound(temp)), 10)
For I = 1 To UBound(temp) - 1
Debug.Print Right(temp(I), 10)
Debug.Print Left(temp(I), 10)
Next
End Sub