直接看代码:
＜script Language=vbs src=spellcode.vbs> ＜/script>
'获取客户简称的拼音缩写
функция getpy()
Тусклая улица
тусклый я
str=document.all.txtContactName.value
тусклый свет
от i=1 до len(str)
ret=ret&getpychar(mid(str,i,1))
следующий
document.all.txtSpellCode.value=ret
конечная функция
getpychar=символ
конец, если
конечная функция
SpellCode.vbs
'获取汉字拼音第一字母
функция getpychar(символ)
тусклый темп
tmp=65536+возрастание(символ)
если(tmp> =45217 и tmp <=45252), то
getpychar= А
elseif(tmp> =45253 и tmp <=45760), затем
getpychar= Б
elseif(tmp> =45761 и 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= Ч
elseif(tmp> =48119 и tmp <=49061), затем
getpychar= Дж
elseif(tmp> =49062 и tmp <=49323), затем
getpychar= К
elseif(tmp> =49324 и tmp <=49895), затем
getpychar= L
elseif(tmp> =49896 и tmp <=50370), затем
getpychar= М
elseif(tmp> =50371 и tmp <=50613), затем
getpychar= Н
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= Р
elseif(tmp> =51446 и tmp <=52217), тогда
getpychar= S
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= Y
elseif(tmp> =54481 и tmp <=62289), затем
getpychar= Z
else '如果不是中文，则不处理
getpychar=символ
конец, если
конечная функция
还有更多好的方法吗？