هذا المنتج:
＜لغة النص=vbs src=spellcode.vbs> ＜/script>
'الحصول على أفضل النتائج
وظيفة getpy ()
شارع خافت
خافت أنا
str=document.all.txtContactName.value
متقاعد خافت
لأني = 1 إلى لين (شارع)
ret=ret&getpychar(mid(str,i,1))
التالي
document.all.txtSpellCode.value=ret
وظيفة النهاية
getpychar=char
نهاية إذا
وظيفة النهاية
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) بعد ذلك
جيتبيشار = د
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 = L
elseif(tmp> =49896 وtmp <=50370) بعد ذلك
getpychar = M
elseif(tmp> =50371 و tmp <=50613) بعد ذلك
getpychar = N
elseif(tmp> =50614 وtmp <=50621) بعد ذلك
getpychar= O
elseif(tmp> =50622 وtmp <=50905) بعد ذلك
getpychar = P
elseif(tmp> =50906 وtmp <=51386) بعد ذلك
getpychar= س
elseif(tmp> =51387 و tmp <=51445) بعد ذلك
getpychar = R
elseif(tmp> =51446 و tmp <=52217) بعد ذلك
getpychar = S
elseif(tmp> =52218 وtmp <=52697) بعد ذلك
getpychar = T
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
آخر 'مرحبا بكم في المستقبل
getpychar=char
نهاية إذا
وظيفة النهاية
هل من الممكن أن يكون هذا هو الحال؟