-
'取字段数据每个汉字的拼音首字母
Function getpychar(char)
tmp = 65536 + Asc(ถ่าน)
If(tmp>= 45217 และ tmp<= 45252) จากนั้น
getpychar = "A"
ElseIf(tmp>= 45253 และ tmp<= 45760) จากนั้น
getpychar = "B"
ElseIf(tmp>= 47761 และ tmp<= 46317) จากนั้น
getpychar = "ค"
ElseIf(tmp>= 46318 และ tmp<= 46825) จากนั้น
getpychar = "D"
ElseIf(tmp>= 46826 และ tmp<= 47009) จากนั้น
getpychar = "อี"
ElseIf(tmp>= 47010 และ tmp<= 47296) จากนั้น
getpychar = "F"
ElseIf(tmp>= 47297 และ tmp<= 47613) จากนั้น
getpychar = "G"
ElseIf(tmp>= 47614 และ tmp<= 48118) จากนั้น
getpychar = "H"
ElseIf(tmp>= 48119 และ tmp<= 49061) จากนั้น
getpychar = "เจ"
ElseIf(tmp>= 49062 และ tmp<= 49323) จากนั้น
getpychar = "K"
ElseIf(tmp>= 49324 และ tmp<= 49895) จากนั้น
getpychar = "ล"
ElseIf(tmp>= 49896 และ tmp<= 50370) จากนั้น
getpychar = "M"
ElseIf(tmp>= 50371 และ tmp<= 50613) จากนั้น
getpychar = "N"
ElseIf(tmp>= 50614 และ tmp<= 50621) จากนั้น
getpychar = "O"
ElseIf(tmp>= 50622 และ tmp<= 50905) จากนั้น
getpychar = "P"
ElseIf(tmp>= 50906 และ tmp<= 51386) จากนั้น
getpychar = "คิว"
ElseIf(tmp>= 51387 และ tmp<= 51445) จากนั้น
getpychar = "ร"
ElseIf(tmp>= 51446 และ tmp<= 52217) จากนั้น
getpychar = "S"
ElseIf(tmp>= 52218 และ tmp<= 52697) จากนั้น
getpychar = "T"
ElseIf(tmp>= 52698 และ tmp<= 52979) จากนั้น
getpychar = "W"
ElseIf(tmp>= 52980 และ tmp<= 53640) จากนั้น
getpychar = "X"
ElseIf(tmp>= 53689 และ tmp<= 54480) จากนั้น
getpychar = "Y"
ElseIf(tmp>= 54481 และ tmp<= 62289) จากนั้น
getpychar = "Z"
อย่างอื่น '如果不是中文，则不处理
getpychar = ถ่าน
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชัน getpy(Str)
สำหรับ i = 1 ถึง Len(Str)
getpy = getpy&getpychar(กลาง(Str, i, 1))
ต่อไป
ฟังก์ชันสิ้นสุด
-
程序代码
-
'取字段数据每个汉字的拼音首字母
Function getpychar(char)
tmp = 65536 + Asc(ถ่าน)
If(tmp>= 45217 และ tmp<= 45252) จากนั้น
getpychar = "A"
ElseIf(tmp>= 45253 และ tmp<= 45760) จากนั้น
getpychar = "B"
ElseIf(tmp>= 47761 และ tmp<= 46317) จากนั้น
getpychar = "C"
ElseIf(tmp>= 46318 และ tmp<= 46825) จากนั้น
getpychar = "D"
ElseIf(tmp>= 46826 และ tmp<= 47009) จากนั้น
getpychar = "อี"
ElseIf(tmp>= 47010 และ tmp<= 47296) จากนั้น
getpychar = "F"
ElseIf(tmp>= 47297 และ tmp<= 47613) จากนั้น
getpychar = "G"
ElseIf(tmp>= 47614 และ tmp<= 48118) จากนั้น
getpychar = "H"
ElseIf(tmp>= 48119 และ tmp<= 49061) จากนั้น
getpychar = "เจ"
ElseIf(tmp>= 49062 และ tmp<= 49323) จากนั้น
getpychar = "K"
ElseIf(tmp>= 49324 และ tmp<= 49895) จากนั้น
getpychar = "ล"
ElseIf(tmp>= 49896 และ tmp<= 50370) จากนั้น
getpychar = "M"
ElseIf(tmp>= 50371 และ tmp<= 50613) จากนั้น
getpychar = "N"
ElseIf(tmp>= 50614 และ tmp<= 50621) จากนั้น
getpychar = "O"
ElseIf(tmp>= 50622 และ tmp<= 50905) จากนั้น
getpychar = "P"
ElseIf(tmp>= 50906 และ tmp<= 51386) จากนั้น
getpychar = "คิว"
ElseIf(tmp>= 51387 และ tmp<= 51445) จากนั้น
getpychar = "ร"
ElseIf(tmp>= 51446 และ tmp<= 52217) จากนั้น
getpychar = "S"
ElseIf(tmp>= 52218 และ tmp<= 52697) จากนั้น
getpychar = "T"
ElseIf(tmp>= 52698 และ tmp<= 52979) จากนั้น
getpychar = "W"
ElseIf(tmp>= 52980 และ tmp<= 53640) จากนั้น
getpychar = "X"
ElseIf(tmp>= 53689 และ tmp<= 54480) จากนั้น
getpychar = "Y"
ElseIf(tmp>= 54481 และ tmp<= 62289) จากนั้น
getpychar = "Z"
อย่างอื่น '如果不是中文，则不处理
getpychar = ถ่าน
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชัน getpy(Str)
สำหรับ i = 1 ถึง Len(Str)
getpy = getpy&getpychar(กลาง(Str, i, 1))
ต่อไป
ฟังก์ชันสิ้นสุด
-