Question

vb6.0 分别提取字符串中的中文和英文

有没有类似这种功能的函数？

Answer 1

放三个控件
一个textbox两个listbox一个button
Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim i As Integer
Dim s As String
'vb使用unicode ，一个字符英文和中文 都用两个字节表示，低伏塌位字节在前，高位字节在后
'英文和中文用高字节 是否大于大于零并耐进行区分,
For i = 1 To LenB(Text1.Text) - 1 Step 2
s = MidB(Text1.Text, i, 2)
If AscB(MidB(s, 2, 1)) > 0 Then'大于零缺蔽圆是中文
List1.AddItem s
Else
List2.AddItem s
End If
Next
End Sub

Answer 2

没有专用的函数。可以自己写一个自定义函数。
你的要求并不明确：是分离中英文字符？还是把隐返相邻段当做一个字符串？数字、标点符宏携敬号怎么计算？
这些都要有明确的目蔽慎标。