如何一中英文混排的字符串中取出中文

Question

我用leftb或者midb取出来的都是问号

Answer 1

Const strTemp = "大12中国3"
Private Sub Command1_Click()
    Dim s As String
    Dim i As Integer
    For i = 1 To Len(strTemp)
        If Asc(Mid(str, i, 1)) < 0 Then
            s = s & Mid(strTemp, i, 1)
        End If
    Next i
    Debug.Print s
End Sub

Answer 2

完全同意楼上的意见！
主要部分在这
If Asc(Mid(str, i, 1)) < 0 Then
            s = s & Mid(strTemp, i, 1)
End If
    

Answer 3

在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。执行体                    执行结果   结果类型
Mid(strTemp, 1, 1)        "大"        string
Asc(Mid(strTemp, i, 1))   -19213      Integer