*******************************
********************************
Private Sub Command2_Click()
Dim a As String, b As String, s As String, n As Long, i As Long
a = "特別11難的是12:字符45串gfg中f有數(shù)字，英文和nbnb漢字同時出x1c113s8778787xc現(xiàn)，而且eee數(shù)字和英文是ddd單數(shù)，如123456a字bcd"
For i = 1 To Len(a)
b = Mid(a, i, 1)
If Asc(b) < 0 Then
If n >= 7 Then
s = s & vbCrLf
n = 2
Else
n = n + 2
End If
Else
If n = 8 Then
s = s & vbCrLf
n = 1
Else
n = n + 1
End If
End If
s = s & b
Next
MsgBox s
End Sub
Private Sub Form_Load()
Dim s, ss, s1, s2, s3
s1 = "1234567890995316770"
l1 = Int(Len(s1) / 8)
If l1 < 1 Then
MsgBox "長度小于8"
Else
For i = 0 To l1 - 1
s = s & Mid(s1, i * 8 + 1, 8) & vbCrLf
Next
End If
s = s & Right(s1, Len(s1) - l1 * 8)
MsgBox s
s2 = "一二三四五六七八九十"
l2 = Int(Len(s2) / 4)
If l2 < 1 Then
MsgBox "長度小于4"
Else
For i = 0 To l2 - 1
ss = ss & Mid(s2, i * 4 + 1, 4) & vbCrLf
Next
End If
ss = ss & Right(s2, Len(s2) - l2 * 4)
MsgBox ss
End Sub
Function GetCharLen(pChar() As Byte) As Long
GetCharLen = 1 - (pChar(1) <> 0)
End Function
Private Sub Command1_Click()
Dim myStr As String
Dim Length As Long
Dim arrStr() As String
Dim tmpLen As Long
Dim tmpBit As Long
Dim Idx As Long
Dim i As Long
myStr = "特別11難的是12:字符45串gfg中f有數(shù)字，英文和nbnb漢字同時出x1c113s8778787xc現(xiàn)，而且eee數(shù)字和英文是ddd單數(shù)，如123456a字bcd"
Length = Len(myStr)
ReDim arrStr(Length * 2)
For i = 1 To Length
tmpBit = i
tmpLen = 0
Do
tmpLen = tmpLen + GetCharLen(Mid(myStr, i, 1))
i = i + 1
Loop Until tmpLen >= 8 Or i > Length
If tmpLen > 8 Then i = i - 1
arrStr(Idx) = Mid(myStr, tmpBit, i - tmpBit)
Idx = Idx + 1
i = i - 1
Next i
ReDim Preserve arrStr(Idx - 1)
MsgBox Join(arrStr, vbCrLf)
End Sub
