急急！请问uncode字符如何在字段里提取

tmtony

这是专家门诊一书的判断中英文的例程，你可参考一下：

Public Function includeChinese(strString As String) As Boolean

    Dim i As Integer

    Dim intStrLen As Integer

   

    includeChinese = False

    intStrLen = Len(strString)

    For i = 1 To intStrLen

        Select Case Asc(Mid(strString, i, 1))

        Case Is > 128, Is < 0

            i = intStrLen + 1

            includeChinese = True

        End Select

    Next

End Function