直接看代码:
＜linguagem de script=vbs src=spellcode.vbs> ＜/script>
'获取客户简称的拼音缩写
função getpy()
escurecimento
escurecer eu
str=document.all.txtNomeContato.value
escuro
para i=1 para len(str)
ret=ret&getpychar(meio(str,i,1))
próximo
document.all.txtSpellCode.value=ret
função final
getpychar=char
terminar se
função final
SpellCode.vbs
'获取汉字拼音第一字母
função getpychar(char)
escurecer tmp
tmp=65536+asc(char)
if(tmp> =45217 e tmp <=45252) então
getpychar = A
elseif(tmp> =45253 e tmp <=45760) então
getpychar = B
elseif(tmp> =45761 e tmp <=46317) então
getpychar = C
elseif(tmp> =46318 e tmp <=46825) então
getpychar = D
elseif(tmp> =46826 e tmp <=47009) então
getpychar = E
elseif(tmp> =47010 e tmp <=47296) então
getpychar = F
elseif(tmp> =47297 e tmp <=47613) então
getpychar = G
elseif(tmp> =47614 e tmp <=48118) então
getpychar = H
elseif(tmp> =48119 e tmp <=49061) então
getpychar = J
elseif(tmp> =49062 e tmp <=49323) então
getpychar = K
elseif(tmp> =49324 e tmp <=49895) então
getpychar = L
elseif(tmp> =49896 e tmp <=50370) então
getpychar = M
elseif(tmp> =50371 e tmp <=50613) então
getpychar = N
elseif(tmp> =50614 e tmp <=50621) então
getpychar = O
elseif(tmp> =50622 e tmp <=50905) então
getpychar = P
elseif(tmp> =50906 e tmp <=51386) então
getpychar = Q
elseif(tmp> =51387 e tmp <=51445) então
getpychar = R
elseif(tmp> =51446 e tmp <=52217) então
getpychar = S
elseif(tmp> =52218 e tmp <=52697) então
getpychar = T
elseif(tmp> =52698 e tmp <=52979) então
getpychar = W
elseif(tmp> =52980 e tmp <=53688) então
getpychar = X
elseif(tmp> =53689 e tmp <=54480) então
getpychar = Y
elseif(tmp> =54481 e tmp <=62289) então
getpychar = Z
else '如果不是中文，则不处理
getpychar=char
terminar se
função final
还有更多好的方法吗？