'获取客户简称的拼Music缩写'
함수 getpy()
희미한 str
나 어두워
str=document.all.txtContactName.value
어두워
i=1에서 len(str)까지
ret=ret&getpychar(mid(str,i,1))
다음
document.all.txtSpellCode.value=ret
함수 종료
getpychar=문자
종료하면
함수 종료
철자코드.vbs
'获取汉字拼音第一字母'
함수 getpychar(char)
희미한 시간
tmp=65536+asc(문자)
if(tmp>=45217 및 tmp<=45252) 그러면
getpychar= "A"
elseif(tmp>=45253 및 tmp<=45760) 그런 다음
getpychar= "B"
elseif(tmp>=45761 및 tmp<=46317) 그런 다음
getpychar= "C"
elseif(tmp>=46318 및 tmp<=46825) 그런 다음
getpychar= "디"
elseif(tmp>=46826 및 tmp<=47009) 그런 다음
getpychar= "E"
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= "J"
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= "오"
elseif(tmp>=50622 및 tmp<=50905) 그런 다음
getpychar= "P"
elseif(tmp>=50906 및 tmp<=51386) 그런 다음
getpychar= "Q"
elseif(tmp>=51387 및 tmp<=51445) 그런 다음
getpychar= "R"
elseif(tmp>=51446 및 tmp<=52217) 그런 다음
getpychar= "에스"
elseif(tmp>=52218 및 tmp<=52697) 그런 다음
getpychar= "티"
elseif(tmp>=52698 및 tmp<=52979) 그런 다음
getpychar= "W"
elseif(tmp>=52980 및 tmp<=53688) 그런 다음
getpychar= "X"
elseif(tmp>=53689 및 tmp<=54480) 그런 다음
getpychar= "예"
elseif(tmp>=54481 및 tmp<=62289) 그런 다음
getpychar= "Z"
else '如果不是中文，则不处리
getpychar=문자
종료하면
함수 종료