Public Function CheckBIG(strSource As String) As Boolean Dim idx As Long Dim ByteTemp() As Byte CheckBIG = False For idx = 1 To Len(strSource) ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode) If UBound(ByteTemp) 0 Then If (ByteTemp(1) = 64) And (ByteTemp(1) <= 126) Then CheckBIG = True Exit For End I...
[ 查看全文 ]
