Board logo

标题: [转贴] 汉字转拼音.vbs [打印本页]

作者: fastslz    时间: 2011-7-19 10:07     标题: 汉字转拼音.vbs

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

作者: pdanniel66    时间: 2011-10-17 06:51

似乎不支援繁體 ?




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2