Function getpychar(char) tmp = 65536 + Asc(char) If(tmp>= 45217 And tmp= 45252) Then getpychar = "A" ElseIf(tmp>= 45253 And tmp= 45760) Then getpychar = "B" ElseIf(tmp>= 47761 And tmp= 46317) Then getpychar = "C" ElseIf(tmp>= 46318 And tmp= 46825) Then getpychar = "D" ElseIf(tmp>= 46826 And tmp= 47009) Then getpychar = "E" ElseIf(tmp>= 47010 And tmp= 47296) Then getpychar = "F" ElseIf(tmp>= 47297 And tmp= 47613) Then getpychar = "G" ElseIf(tmp>= 47614 And tmp= 48118) Then getpychar = "H" ElseIf(tmp>= 48119 And tmp= 49061) Then getpychar = "J" ElseIf(tmp>= 49062 And tmp= 49323) Then getpychar = "K" ElseIf(tmp>= 49324 And tmp= 49895) Then getpychar = "L" ElseIf(tmp>= 49896 And tmp= 50370) Then getpychar = "M" ElseIf(tmp>= 50371 And tmp= 50613) Then getpychar = "N" ElseIf(tmp>= 50614 And tmp= 50621) Then getpychar = "O" ElseIf(tmp>= 50622 And tmp= 50905) Then getpychar = "P" ElseIf(tmp>= 50906 And tmp= 51386) Then getpychar = "Q" ElseIf(tmp>= 51387 And tmp= 51445) Then getpychar = "R" ElseIf(tmp>= 51446 And tmp= 52217) Then getpychar = "S" ElseIf(tmp>= 52218 And tmp= 52697) Then getpychar = "T" ElseIf(tmp>= 52698 And tmp= 52979) Then getpychar = "W" ElseIf(tmp>= 52980 And tmp= 53640) Then getpychar = "X" ElseIf(tmp>= 53689 And tmp= 54480) Then getpychar = "Y" ElseIf(tmp>= 54481 And tmp= 62289) Then getpychar = "Z" Else '如果不是中文，则不处理 getpychar = char End If End Function
Function getpy(Str) For i = 1 To Len(Str) getpy = getpygetpychar(Mid(Str, i, 1)) Next End Function %>
