7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim strArr() As String, strSubLine() As String, strLine() As String
Dim i As Long, j As Long, k As Long, p As Long, n As Long
Dim isChinese As Boolean
Dim strSource As String
strSource = "我经常逛CSDN论坛,这里有很多experiened man。"
ReDim strArr(Len(strSource) - 1)
strLine = Split(strSource, "¡£")
For i = 0 To UBound(strLine)
strSubLine = Split(strLine(i), "£¬")
For j = 0 To UBound(strSubLine)
p = 1
For k = 1 To Len(strSubLine(j))
If k = 1 Then
isChinese = (Asc(Mid(strSubLine(j), 1, 1)) < 0)
Else
If (Asc(Mid(strSubLine(j), k, 1)) > 0 And isChinese) Or (Asc(Mid(strSubLine(j), k, 1)) < 0 And Not isChinese) Then
isChinese = Not isChinese
strArr(n) = Mid(strSubLine(j), p, k - p)
n = n + 1
p = k
End If
End If
Next k
strArr(n) = Mid(strSubLine(j), p, k - p)
n = n + 1
Next j
Next i
ReDim Preserve strArr(n - 1)
For i = 0 To n - 1
Debug.Print strArr(i)
Next i
End Sub
BTW, 这句话似乎应该是“我经常逛CSDN论坛,这里有很多experiened people。”