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

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

放三个控件
一个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

vb6 用instr函数来判断 字符串中是否包含特定字符串 instr([start, ]string1, string2[, compare]) instr 函数的语法具有下面的参数： 部分 说明 start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。 string1 必要参数。接受搜索的字符串表达式。 string2 必要参数。被搜索的字符串表达式。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！