直接看代码：
＜bahasa skrip=vbs src=kode mantra.vbs> ＜/skrip>
'获取客户简称的拼音缩写
fungsi getpy()
redup str
redupkan aku
str=document.all.txtContactName.value
redup ret
untuk i=1 hingga len(str)
ret=ret&getpychar(pertengahan(str,i,1))
Berikutnya
document.all.txtSpellCode.value=ret
fungsi akhir
getpychar=karakter
berakhir jika
fungsi akhir
spellCode.vbs
'获取汉字拼音第一字母
fungsi getpychar(karakter)
redup tmp
tmp=65536+asc(karakter)
if(tmp> =45217 dan tmp <=45252) lalu
getpychar= A
elseif(tmp> =45253 dan tmp <=45760) lalu
getpychar= B
elseif(tmp> =45761 dan tmp <=46317) lalu
getpychar= C
elseif(tmp> =46318 dan tmp <=46825) lalu
getpychar= D
elseif(tmp> =46826 dan tmp <=47009) lalu
getpychar= E
elseif(tmp> =47010 dan tmp <=47296) lalu
getpychar= F
elseif(tmp> =47297 dan tmp <=47613) lalu
getpychar= G
elseif(tmp> =47614 dan tmp <=48118) lalu
getpychar= H
elseif(tmp> =48119 dan tmp <=49061) lalu
getpychar= J
elseif(tmp> =49062 dan tmp <=49323) lalu
getpychar= K
elseif(tmp> =49324 dan tmp <=49895) lalu
getpychar= L
elseif(tmp> =49896 dan tmp <=50370) lalu
getpychar= M
elseif(tmp> =50371 dan tmp <=50613) lalu
getpychar= N
elseif(tmp> =50614 dan tmp <=50621) lalu
getpychar= HAI
elseif(tmp> =50622 dan tmp <=50905) lalu
getpychar= P
elseif(tmp> =50906 dan tmp <=51386) lalu
getpychar= Q
elseif(tmp> =51387 dan tmp <=51445) lalu
getpychar= R
elseif(tmp> =51446 dan tmp <=52217) lalu
getpychar= S
elseif(tmp> =52218 dan tmp <=52697) lalu
getpychar= T
elseif(tmp> =52698 dan tmp <=52979) lalu
getpychar= W
elseif(tmp> =52980 dan tmp <=53688) lalu
getpychar= X
elseif(tmp> =53689 dan tmp <=54480) lalu
getpychar= Y
elseif(tmp> =54481 dan tmp <=62289) lalu
getpychar= Z
else '如果不是中文,则不处理
getpychar=karakter
berakhir jika
fungsi akhir
还有更多好的方法吗？