加入收藏
联系我们
虚拟主机
  虚拟主机评测网  文章系统首页 
   虚拟主机评测网文章 → ASP技术 → ASP技巧 → 浏览: 拼音查询的程序VBscript(二)
拼音查询的程序VBscript(二)
作者:  发表时间:2003年7月31日   阅读次数()
<script language=vbscript>
dim oCSpell(395)

oCSpell(0)=Array("zuo",-10254)
oCSpell(1)=Array("zun",-10256)
oCSpell(2)=Array("zui",-10260)
oCSpell(3)=Array("zuan",-10262)
oCSpell(4)=Array("zu",-10270)
oCSpell(5)=Array("zou",-10274)
oCSpell(6)=Array("zong",-10281)
oCSpell(7)=Array("zi",-10296)
oCSpell(8)=Array("zhuo",-10307)
oCSpell(9)=Array("zhun",-10309)
oCSpell(10)=Array("zhui",-10315)
oCSpell(11)=Array("zhuang",-10322)
oCSpell(12)=Array("zhuan",-10328)
oCSpell(13)=Array("zhuai",-10329)
oCSpell(14)=Array("zhua",-10331)
oCSpell(15)=Array("zhu",-10519)
oCSpell(16)=Array("zhou",-10533)
oCSpell(17)=Array("zhong",-10544)
oCSpell(18)=Array("zhi",-10587)
oCSpell(19)=Array("zheng",-10764)
oCSpell(20)=Array("zhen",-10780)
oCSpell(21)=Array("zhe",-10790)
oCSpell(22)=Array("zhao",-10800)
oCSpell(23)=Array("zhang",-10815)
oCSpell(24)=Array("zhan",-10832)
oCSpell(25)=Array("zhai",-10838)
oCSpell(26)=Array("zha",-11014)
oCSpell(27)=Array("zeng",-11018)
oCSpell(28)=Array("zen",-11019)
oCSpell(29)=Array("zei",-11020)
oCSpell(30)=Array("ze",-11024)
oCSpell(31)=Array("zao",-11038)
oCSpell(32)=Array("zang",-11041)
oCSpell(33)=Array("zan",-11045)
oCSpell(34)=Array("zai",-11052)
oCSpell(35)=Array("za",-11055)
oCSpell(36)=Array("yun",-11067)
oCSpell(37)=Array("yue",-11077)
oCSpell(38)=Array("yuan",-11097)
oCSpell(39)=Array("yu",-11303)
oCSpell(40)=Array("you",-11324)
oCSpell(41)=Array("yong",-11339)
oCSpell(42)=Array("yo",-11340)
oCSpell(43)=Array("ying",-11358)
oCSpell(44)=Array("yin",-11536)
oCSpell(45)=Array("yi",-11589)
oCSpell(46)=Array("ye",-11604)
oCSpell(47)=Array("yao",-11781)
oCSpell(48)=Array("yang",-11798)
oCSpell(49)=Array("yan",-11831)
oCSpell(50)=Array("ya",-11847)
oCSpell(51)=Array("xun",-11861)
oCSpell(52)=Array("xue",-11867)
oCSpell(53)=Array("xuan",-12039)
oCSpell(54)=Array("xu",-12058)
oCSpell(55)=Array("xiu",-12067)
oCSpell(56)=Array("xiong",-12074)
oCSpell(57)=Array("xing",-12089)
oCSpell(58)=Array("xin",-12099)
oCSpell(59)=Array("xie",-12120)
oCSpell(60)=Array("xiao",-12300)
oCSpell(61)=Array("xiang",-12320)
oCSpell(62)=Array("xian",-12346)
oCSpell(63)=Array("xia",-12359)
oCSpell(64)=Array("xi",-12556)
oCSpell(65)=Array("wu",-12585)
oCSpell(66)=Array("wo",-12594)
oCSpell(67)=Array("weng",-12597)
oCSpell(68)=Array("wen",-12607)
oCSpell(69)=Array("wei",-12802)
oCSpell(70)=Array("wang",-12812)
oCSpell(71)=Array("wan",-12829)
oCSpell(72)=Array("wai",-12831)
oCSpell(73)=Array("wa",-12838)
oCSpell(74)=Array("tuo",-12849)
oCSpell(75)=Array("tun",-12852)
oCSpell(76)=Array("tui",-12858)
oCSpell(77)=Array("tuan",-12860)
oCSpell(78)=Array("tu",-12871)
oCSpell(79)=Array("tou",-12875)
oCSpell(80)=Array("tong",-12888)
oCSpell(81)=Array("ting",-13060)
oCSpell(82)=Array("tie",-13063)
oCSpell(83)=Array("tiao",-13068)
oCSpell(84)=Array("tian",-13076)
oCSpell(85)=Array("ti",-13091)
oCSpell(86)=Array("teng",-13095)
oCSpell(87)=Array("te",-13096)
oCSpell(88)=Array("tao",-13107)
oCSpell(89)=Array("tang",-13120)
oCSpell(90)=Array("tan",-13138)
oCSpell(91)=Array("tai",-13147)
oCSpell(92)=Array("ta",-13318)
oCSpell(93)=Array("suo",-13326)
oCSpell(94)=Array("sun",-13329)
oCSpell(95)=Array("sui",-13340)
oCSpell(96)=Array("suan",-13343)
oCSpell(97)=Array("su",-13356)
oCSpell(98)=Array("sou",-13359)
oCSpell(99)=Array("song",-13367)
oCSpell(100)=Array("si",-13383)
oCSpell(101)=Array("shuo",-13387)
oCSpell(102)=Array("shun",-13391)
oCSpell(103)=Array("shui",-13395)
oCSpell(104)=Array("shuang",-13398)
oCSpell(105)=Array("shuan",-13400)
oCSpell(106)=Array("shuai",-13404)
oCSpell(107)=Array("shua",-13406)
oCSpell(108)=Array("shu",-13601)
oCSpell(109)=Array("shou",-13611)
oCSpell(110)=Array("shi",-13658)
oCSpell(111)=Array("sheng",-13831)
oCSpell(112)=Array("shen",-13847)
oCSpell(113)=Array("she",-13859)
oCSpell(114)=Array("shao",-13870)
oCSpell(115)=Array("shang",-13878)
oCSpell(116)=Array("shan",-13894)
oCSpell(117)=Array("shai",-13896)
oCSpell(118)=Array("sha",-13905)
oCSpell(119)=Array("seng",-13906)
oCSpell(120)=Array("sen",-13907)
oCSpell(121)=Array("se",-13910)
oCSpell(122)=Array("sao",-13914)
oCSpell(123)=Array("sang",-13917)
oCSpell(124)=Array("san",-14083)
oCSpell(125)=Array("sai",-14087)
oCSpell(126)=Array("sa",-14090)
oCSpell(127)=Array("ruo",-14092)
oCSpell(128)=Array("run",-14094)
oCSpell(129)=Array("rui",-14097)
oCSpell(130)=Array("ruan",-14099)
oCSpell(131)=Array("ru",-14109)
oCSpell(132)=Array("rou",-14112)
oCSpell(133)=Array("rong",-14122)
oCSpell(134)=Array("ri",-14123)
oCSpell(135)=Array("reng",-14125)
oCSpell(136)=Array("ren",-14135)
oCSpell(137)=Array("re",-14137)
oCSpell(138)=Array("rao",-14140)
oCSpell(139)=Array("rang",-14145)
oCSpell(140)=Array("ran",-14149)
oCSpell(141)=Array("qun",-14151)
oCSpell(142)=Array("que",-14159)
oCSpell(143)=Array("quan",-14170)
oCSpell(144)=Array("qu",-14345)
oCSpell(145)=Array("qiu",-14353)
oCSpell(146)=Array("qiong",-14355)
oCSpell(147)=Array("qing",-14368)
oCSpell(148)=Array("qin",-14379)
oCSpell(149)=Array("qie",-14384)
oCSpell(150)=Array("qiao",-14399)
oCSpell(151)=Array("qiang",-14407)
oCSpell(152)=Array("qian",-14429)
oCSpell(153)=Array("qia",-14594)
oCSpell(154)=Array("qi",-14630)
oCSpell(155)=Array("pu",-14645)
oCSpell(156)=Array("po",-14654)
oCSpell(157)=Array("ping",-14663)
oCSpell(158)=Array("pin",-14668)
oCSpell(159)=Array("pie",-14670)
oCSpell(160)=Array("piao",-14674)
oCSpell(161)=Array("pian",-14678)
oCSpell(162)=Array("pi",-14857)
oCSpell(163)=Array("peng",-14871)
oCSpell(164)=Array("pen",-14873)
oCSpell(165)=Array("pei",-14882)
oCSpell(166)=Array("pao",-14889)
oCSpell(167)=Array("pang",-14894)
oCSpell(168)=Array("pan",-14902)
oCSpell(169)=Array("pai",-14908)
oCSpell(170)=Array("pa",-14914)
oCSpell(171)=Array("ou",-14921)
oCSpell(172)=Array("o",-14922)
oCSpell(173)=Array("nuo",-14926)
oCSpell(174)=Array("nue",-14928)
oCSpell(175)=Array("nuan",-14929)
oCSpell(176)=Array("nv",-14930)
oCSpell(177)=Array("nu",-14933)
oCSpell(178)=Array("nong",-14937)
oCSpell(179)=Array("niu",-14941)
oCSpell(180)=Array("ning",-15109)
oCSpell(181)=Array("nin",-15110)
oCSpell(182)=Array("nie",-15117)
oCSpell(183)=Array("niao",-15119)
oCSpell(184)=Array("niang",-15121)
oCSpell(185)=Array("nian",-15128)
oCSpell(186)=Array("ni",-15139)
oCSpell(187)=Array("neng",-15140)
oCSpell(188)=Array("nen",-15141)
oCSpell(189)=Array("nei",-15143)
oCSpell(190)=Array("ne",-15144)
oCSpell(191)=Array("nao",-15149)
oCSpell(192)=Array("nang",-15150)
oCSpell(193)=Array("nan",-15153)
oCSpell(194)=Array("nai",-15158)
oCSpell(195)=Array("na",-15165)
oCSpell(196)=Array("mu",-15180)
oCSpell(197)=Array("mou",-15183)
oCSpell(198)=Array("mo",-15362)
oCSpell(199)=Array("miu",-15363)
oCSpell(200)=Array("ming",-15369)
oCSpell(201)=Array("min",-15375)
oCSpell(202)=Array("mie",-15377)
oCSpell(203)=Array("miao",-15385)
oCSpell(204)=Array("mian",-15394)
oCSpell(205)=Array("mi",-15408)
oCSpell(206)=Array("meng",-15416)
oCSpell(207)=Array("men",-15419)
oCSpell(208)=Array("mei",-15435)
oCSpell(209)=Array("me",-15436)
oCSpell(210)=Array("mao",-15448)
oCSpell(211)=Array("mang",-15454)
oCSpell(212)=Array("man",-15625)
oCSpell(213)=Array("mai",-15631)
oCSpell(214)=Array("ma",-15640)
oCSpell(215)=Array("luo",-15652)
oCSpell(216)=Array("lun",-15659)
oCSpell(217)=Array("lue",-15661)
oCSpell(218)=Array("luan",-15667)
oCSpell(219)=Array("lv",-15681)
oCSpell(220)=Array("lu",-15701)
oCSpell(221)=Array("lou",-15707)
oCSpell(222)=Array("long",-15878)
oCSpell(223)=Array("liu",-15889)
oCSpell(224)=Array("ling",-15903)
oCSpell(225)=Array("lin",-15915)
oCSpell(226)=Array("lie",-15920)
oCSpell(227)=Array("liao",-15933)
oCSpell(228)=Array("liang",-15944)
oCSpell(229)=Array("lian",-15958)
oCSpell(230)=Array("lia",-15959)
oCSpell(231)=Array("li",-16155)
oCSpell(232)=Array("leng",-16158)
oCSpell(233)=Array("lei",-16169)
oCSpell(234)=Array("le",-16171)
oCSpell(235)=Array("lao",-16180)
oCSpell(236)=Array("lang",-16187)
oCSpell(237)=Array("lan",-16202)
oCSpell(238)=Array("lai",-16205)
oCSpell(239)=Array("la",-16212)
oCSpell(240)=Array("kuo",-16216)
oCSpell(241)=Array("kun",-16220)
oCSpell(242)=Array("kui",-16393)
oCSpell(243)=Array("kuang",-16401)
oCSpell(244)=Array("kuan",-16403)
oCSpell(245)=Array("kuai",-16407)
oCSpell(246)=Array("kua",-16412)
oCSpell(247)=Array("ku",-16419)
oCSpell(248)=Array("kou",-16423)
oCSpell(249)=Array("kong",-16427)
oCSpell(250)=Array("keng",-16429)
oCSpell(251)=Array("ken",-16433)
oCSpell(252)=Array("ke",-16448)
oCSpell(253)=Array("kao",-16452)
oCSpell(254)=Array("kang",-16459)
oCSpell(255)=Array("kan",-16465)
oCSpell(256)=Array("kai",-16470)
oCSpell(257)=Array("ka",-16474)
oCSpell(258)=Array("jun",-16647)
oCSpell(259)=Array("jue",-16657)
oCSpell(260)=Array("juan",-16664)
oCSpell(261)=Array("ju",-16689)
oCSpell(262)=Array("jiu",-16706)
oCSpell(263)=Array("jiong",-16708)
oCSpell(264)=Array("jing",-16733)
oCSpell(265)=Array("jin",-16915)
oCSpell(266)=Array("jie",-16942)
oCSpell(267)=Array("jiao",-16970)
oCSpell(268)=Array("jiang",-16983)
oCSpell(269)=Array("jian",-17185)
oCSpell(270)=Array("jia",-17202)
oCSpell(271)=Array("ji",-17417)
oCSpell(272)=Array("huo",-17427)
oCSpell(273)=Array("hun",-17433)
oCSpell(274)=Array("hui",-17454)
oCSpell(275)=Array("huang",-17468)
oCSpell(276)=Array("huan",-17482)
oCSpell(277)=Array("huai",-17487)
oCSpell(278)=Array("hua",-17496)
oCSpell(279)=Array("hu",-17676)
oCSpell(280)=Array("hou",-17683)
oCSpell(281)=Array("hong",-17692)
oCSpell(282)=Array("heng",-17697)
oCSpell(283)=Array("hen",-17701)
oCSpell(284)=Array("hei",-17703)
oCSpell(285)=Array("he",-17721)
oCSpell(286)=Array("hao",-17730)
oCSpell(287)=Array("hang",-17733)
oCSpell(288)=Array("han",-17752)
oCSpell(289)=Array("hai",-17759)
oCSpell(290)=Array("ha",-17922)
oCSpell(291)=Array("guo",-17928)
oCSpell(292)=Array("gun",-17931)
oCSpell(293)=Array("gui",-17947)
oCSpell(294)=Array("guang",-17950)
oCSpell(295)=Array("guan",-17961)
oCSpell(296)=Array("guai",-17964)
oCSpell(297)=Array("gua",-17970)
oCSpell(298)=Array("gu",-17988)
oCSpell(299)=Array("gou",-17997)
oCSpell(300)=Array("gong",-18012)
oCSpell(301)=Array("geng",-18181)
oCSpell(302)=Array("gen",-18183)
oCSpell(303)=Array("gei",-18184)
oCSpell(304)=Array("ge",-18201)
oCSpell(305)=Array("gao",-18211)
oCSpell(306)=Array("gang",-18220)
oCSpell(307)=Array("gan",-18231)
oCSpell(308)=Array("gai",-18237)
oCSpell(309)=Array("ga",-18239)
oCSpell(310)=Array("fu",-18446)
oCSpell(311)=Array("fou",-18447)
oCSpell(312)=Array("fo",-18448)
oCSpell(313)=Array("feng",-18463)
oCSpell(314)=Array("fen",-18478)
oCSpell(315)=Array("fei",-18490)
oCSpell(316)=Array("fang",-18501)
oCSpell(317)=Array("fan",-18518)
oCSpell(318)=Array("fa",-18526)
oCSpell(319)=Array("er",-18696)
oCSpell(320)=Array("en",-18697)
oCSpell(321)=Array("e",-18710)
oCSpell(322)=Array("duo",-18722)
oCSpell(323)=Array("dun",-18731)
oCSpell(324)=Array("dui",-18735)
oCSpell(325)=Array("duan",-18741)
oCSpell(326)=Array("du",-18756)
oCSpell(327)=Array("dou",-18763)
oCSpell(328)=Array("dong",-18773)
oCSpell(329)=Array("diu",-18774)
oCSpell(330)=Array("ding",-18783)
oCSpell(331)=Array("die",-18952)
oCSpell(332)=Array("diao",-18961)
oCSpell(333)=Array("dian",-18977)
oCSpell(334)=Array("di",-18996)
oCSpell(335)=Array("deng",-19003)
oCSpell(336)=Array("de",-19006)
oCSpell(337)=Array("dao",-19018)
oCSpell(338)=Array("dang",-19023)
oCSpell(339)=Array("dan",-19038)
oCSpell(340)=Array("dai",-19212)
oCSpell(341)=Array("da",-19218)
oCSpell(342)=Array("cuo",-19224)
oCSpell(343)=Array("cun",-19227)
oCSpell(344)=Array("cui",-19235)
oCSpell(345)=Array("cuan",-19238)
oCSpell(346)=Array("cu",-19242)
oCSpell(347)=Array("cou",-19243)
oCSpell(348)=Array("cong",-19249)
oCSpell(349)=Array("ci",-19261)
oCSpell(350)=Array("chuo",-19263)
oCSpell(351)=Array("chun",-19270)
oCSpell(352)=Array("chui",-19275)
oCSpell(353)=Array("chuang",-19281)
oCSpell(354)=Array("chuan",-19288)
oCSpell(355)=Array("chuai",-19289)
oCSpell(356)=Array("chu",-19467)
oCSpell(357)=Array("chou",-19479)
oCSpell(358)=Array("chong",-19484)
oCSpell(359)=Array("chi",-19500)
oCSpell(360)=Array("cheng",-19515)
oCSpell(361)=Array("chen",-19525)
oCSpell(362)=Array("che",-19531)
oCSpell(363)=Array("chao",-19540)
oCSpell(364)=Array("chang",-19715)
oCSpell(365)=Array("chan",-19725)
oCSpell(366)=Array("chai",-19728)
oCSpell(367)=Array("cha",-19739)
oCSpell(368)=Array("ceng",-19741)
oCSpell(369)=Array("ce",-19746)
oCSpell(370)=Array("cao",-19751)
oCSpell(371)=Array("cang",-19756)
oCSpell(372)=Array("can",-19763)
oCSpell(373)=Array("cai",-19774)
oCSpell(374)=Array("ca",-19775)
oCSpell(375)=Array("bu",-19784)
oCSpell(376)=Array("bo",-19805)
oCSpell(377)=Array("bing",-19976)
oCSpell(378)=Array("bin",-19982)
oCSpell(379)=Array("bie",-19986)
oCSpell(380)=Array("biao",-19990)
oCSpell(381)=Array("bian",-20002)
oCSpell(382)=Array("bi",-20026)
oCSpell(383)=Array("beng",-20032)
oCSpell(384)=Array("ben",-20036)
oCSpell(385)=Array("bei",-20051)
oCSpell(386)=Array("bao",-20230)
oCSpell(387)=Array("bang",-20242)
oCSpell(388)=Array("ban",-20257)
oCSpell(389)=Array("bai",-20265)
oCSpell(390)=Array("ba",-20283)
oCSpell(391)=Array("ao",-20292)
oCSpell(392)=Array("ang",-20295)
oCSpell(393)=Array("an",-20304)
oCSpell(394)=Array("ai",-20317)
oCSpell(395)=Array("a",-20319)

'SQL Server的B-Tree算法。
sub GetSpell(ByRef tStr,ByRef Ary,iCode,fromPosition,toPosition)
dim i,j,k
if fromPosition = toPosition then
tStr=tStr&Ary(fromPosition)(0)&" "
exit sub
end if
i=cint((toPosition-fromPosition+1)/2)+fromPosition
j=Ary(i)(1)
k=Ary(i-1)(1)
if iCode>=j and i<=k then
tStr=tStr&Ary(i)(0)&" "
elseif iCode>k then
GetSpell tStr,Ary,iCode,fromPosition,i-1
else
GetSpell tStr,Ary,iCode,i,toPosition
end if
end sub
'循环中连接(&)的解决
sub CombineString(byref tStr,tAdd)
tStr=tStr&tAdd
end sub

function CToSpell(tStr)
dim i,j,iCode,tmpString,Ary
if trim(tStr) = "" then exit function
Ary=oCSpell
tmpString=""
for i=1 to len(tStr)
iCode = ASC(Mid(tStr,i,1))
if iCode >= -20319 and iCode<= -10247 then
GetSpell tmpString,oCSpell,iCode,0,ubound(oCSpell)
else
CombineString tmpString,Chr(iCode)
end if
next
CToSpell=tmpString
end function
</script>
把汉字转换成拼音,可以对汉字进行文本(ANSI方式)比较,也可以用vbs的strcomp方法比较。

<nobr>请输入汉字:<input type=text id=txtZHCN>
<input type=button onclick='alert(CToSpell(txtZHCN.value))' value=点击此处转换成拼音></nobr>

来源:  动网论坛  


本系统由虚拟主机评测网制作维护
E-mail:xianweixie@gmail.com OICQ:7834843
Copyright © 2003-2004 All Rights Reserved