大象怒怒的小脚


没有终了漂泊,于是成了树上的精灵.有梦想,却不会飞翔.用自己短短的羽翼,跳跃在迷离的枝头……

首页 新随笔 联系 订阅 管理
汉字转拼音缩写的函数(VB)
Public Function getPYChar(char As StringAs String
    
Dim lChar As Long
    lChar 
= 65536 + Asc(char)
    
If (lChar >= 45217 And lChar <= 45252Then getPYChar = "A"
    
If (lChar >= 45253 And lChar <= 45760Then getPYChar = "B"
    
If (lChar >= 47761 And lChar <= 46317Then getPYChar = "C"
    
If (lChar >= 46318 And lChar <= 46825Then getPYChar = "D"
    
If (lChar >= 46826 And lChar <= 47009Then getPYChar = "E"
    
If (lChar >= 47010 And lChar <= 47296Then getPYChar = "F"
    
If (lChar >= 47297 And lChar <= 47613Then getPYChar = "G"
    
If (lChar >= 47614 And lChar <= 48118Then getPYChar = "H"
    
If (lChar >= 48119 And lChar <= 49061Then getPYChar = "J"
    
If (lChar >= 49062 And lChar <= 49323Then getPYChar = "K"
    
If (lChar >= 49324 And lChar <= 49895Then getPYChar = "L"
    
If (lChar >= 49896 And lChar <= 50370Then getPYChar = "M"
    
If (lChar >= 50371 And lChar <= 50613Then getPYChar = "N"
    
If (lChar >= 50614 And lChar <= 50621Then getPYChar = "O"
    
If (lChar >= 50622 And lChar <= 50905Then getPYChar = "P"
    
If (lChar >= 50906 And lChar <= 51386Then getPYChar = "Q"
    
If (lChar >= 51387 And lChar <= 51445Then getPYChar = "R"
    
If (lChar >= 51446 And lChar <= 52217Then getPYChar = "S"
    
If (lChar >= 52218 And lChar <= 52697Then getPYChar = "T"
    
If (lChar >= 52698 And lChar <= 52979Then getPYChar = "W"
    
If (lChar >= 52980 And lChar <= 53640Then getPYChar = "X"
    
If (lChar >= 53689 And lChar <= 54480Then getPYChar = "Y"
    
If (lChar >= 54481 And lChar <= 52289Then getPYChar = "Z"
End Function

Public Function getPY(str As StringAs String
    
For i = 0 To Len(str) - 1
        getPY 
= getPY & getPYChar(Mid(str, i + 11))
    
Next
End Function

posted on 2006-01-24 16:19  大象怒怒  阅读(2066)  评论(5编辑  收藏  举报