美联红木展示柜图片:取文字的声母的问题

来源:百度文库 编辑:神马品牌网 时间:2024/04/27 15:13:47
我做了一个表单,现在当提交时,我想将其中的一项的文字提取其开头的大写字母,如:“表单”提取“BD”,大家说有办法吗?

asp或VB的话可以用下面的代码。
<%
Set objDictonary = CreateObject("Scripting.Dictionary")
objDictonary.Add "a",-20319
objDictonary.Add "ai",-20317
objDictonary.Add "an",-20304
objDictonary.Add "ang",-20295
objDictonary.Add "ao",-20292
objDictonary.Add "ba",-20283
objDictonary.Add "bai",-20265
objDictonary.Add "ban",-20257
objDictonary.Add "bang",-20242
objDictonary.Add "bao",-20230
objDictonary.Add "bei",-20051
objDictonary.Add "ben",-20036
objDictonary.Add "beng",-20032
objDictonary.Add "bi",-20026
objDictonary.Add "bian",-20002
objDictonary.Add "biao",-19990
objDictonary.Add "bie",-19986
objDictonary.Add "bin",-19982
objDictonary.Add "bing",-19976
objDictonary.Add "bo",-19805
objDictonary.Add "bu",-19784
objDictonary.Add "ca",-19775
objDictonary.Add "cai",-19774
objDictonary.Add "can",-19763
objDictonary.Add "cang",-19756
objDictonary.Add "cao",-19751
objDictonary.Add "ce",-19746
objDictonary.Add "ceng",-19741
objDictonary.Add "cha",-19739
objDictonary.Add "chai",-19728
objDictonary.Add "chan",-19725
objDictonary.Add "chang",-19715
objDictonary.Add "chao",-19540
objDictonary.Add "che",-19531
objDictonary.Add "chen",-19525
objDictonary.Add "cheng",-19515
objDictonary.Add "chi",-19500
objDictonary.Add "chong",-19484
objDictonary.Add "chou",-19479
objDictonary.Add "chu",-19467
objDictonary.Add "chuai",-19289
objDictonary.Add "chuan",-19288
objDictonary.Add "chuang",-19281
objDictonary.Add "chui",-19275
objDictonary.Add "chun",-19270
objDictonary.Add "chuo",-19263
objDictonary.Add "ci",-19261
objDictonary.Add "cong",-19249
objDictonary.Add "cou",-19243
objDictonary.Add "cu",-19242
objDictonary.Add "cuan",-19238
objDictonary.Add "cui",-19235
objDictonary.Add "cun",-19227
objDictonary.Add "cuo",-19224
objDictonary.Add "da",-19218
objDictonary.Add "dai",-19212
objDictonary.Add "dan",-19038
objDictonary.Add "dang",-19023
objDictonary.Add "dao",-19018
objDictonary.Add "de",-19006
objDictonary.Add "deng",-19003
objDictonary.Add "di",-18996
objDictonary.Add "dian",-18977
objDictonary.Add "diao",-18961
objDictonary.Add "die",-18952
objDictonary.Add "ding",-18783
objDictonary.Add "diu",-18774
objDictonary.Add "dong",-18773
objDictonary.Add "dou",-18763
objDictonary.Add "du",-18756
objDictonary.Add "duan",-18741
objDictonary.Add "dui",-18735
objDictonary.Add "dun",-18731
objDictonary.Add "duo",-18722
objDictonary.Add "e",-18710
objDictonary.Add "en",-18697
objDictonary.Add "er",-18696
objDictonary.Add "fa",-18526
objDictonary.Add "fan",-18518
objDictonary.Add "fang",-18501
objDictonary.Add "fei",-18490
objDictonary.Add "fen",-18478
objDictonary.Add "feng",-18463
objDictonary.Add "fo",-18448
objDictonary.Add "fou",-18447
objDictonary.Add "fu",-18446
objDictonary.Add "ga",-18239
objDictonary.Add "gai",-18237
objDictonary.Add "gan",-18231
objDictonary.Add "gang",-18220
objDictonary.Add "gao",-18211
objDictonary.Add "ge",-18201
objDictonary.Add "gei",-18184
objDictonary.Add "gen",-18183
objDictonary.Add "geng",-18181
objDictonary.Add "gong",-18012
objDictonary.Add "gou",-17997
objDictonary.Add "gu",-17988
objDictonary.Add "gua",-17970
objDictonary.Add "guai",-17964
objDictonary.Add "guan",-17961
objDictonary.Add "guang",-17950
objDictonary.Add "gui",-17947
objDictonary.Add "gun",-17931
objDictonary.Add "guo",-17928
objDictonary.Add "ha",-17922
objDictonary.Add "hai",-17759
objDictonary.Add "han",-17752
objDictonary.Add "hang",-17733
objDictonary.Add "hao",-17730
objDictonary.Add "he",-17721
objDictonary.Add "hei",-17703
objDictonary.Add "hen",-17701
objDictonary.Add "heng",-17697
objDictonary.Add "hong",-17692
objDictonary.Add "hou",-17683
objDictonary.Add "hu",-17676
objDictonary.Add "hua",-17496
objDictonary.Add "huai",-17487
objDictonary.Add "huan",-17482
objDictonary.Add "huang",-17468
objDictonary.Add "hui",-17454
objDictonary.Add "hun",-17433
objDictonary.Add "huo",-17427
objDictonary.Add "ji",-17417
objDictonary.Add "jia",-17202
objDictonary.Add "jian",-17185
objDictonary.Add "jiang",-16983
objDictonary.Add "jiao",-16970
objDictonary.Add "jie",-16942
objDictonary.Add "jin",-16915
objDictonary.Add "jing",-16733
objDictonary.Add "jiong",-16708
objDictonary.Add "jiu",-16706
objDictonary.Add "ju",-16689
objDictonary.Add "juan",-16664
objDictonary.Add "jue",-16657
objDictonary.Add "jun",-16647
objDictonary.Add "ka",-16474
objDictonary.Add "kai",-16470
objDictonary.Add "kan",-16465
objDictonary.Add "kang",-16459
objDictonary.Add "kao",-16452
objDictonary.Add "ke",-16448
objDictonary.Add "ken",-16433
objDictonary.Add "keng",-16429
objDictonary.Add "kong",-16427
objDictonary.Add "kou",-16423
objDictonary.Add "ku",-16419
objDictonary.Add "kua",-16412
objDictonary.Add "kuai",-16407
objDictonary.Add "kuan",-16403
objDictonary.Add "kuang",-16401
objDictonary.Add "kui",-16393
objDictonary.Add "kun",-16220
objDictonary.Add "kuo",-16216
objDictonary.Add "la",-16212
objDictonary.Add "lai",-16205
objDictonary.Add "lan",-16202
objDictonary.Add "lang",-16187
objDictonary.Add "lao",-16180
objDictonary.Add "le",-16171
objDictonary.Add "lei",-16169
objDictonary.Add "leng",-16158
objDictonary.Add "li",-16155
objDictonary.Add "lia",-15959
objDictonary.Add "lian",-15958
objDictonary.Add "liang",-15944
objDictonary.Add "liao",-15933
objDictonary.Add "lie",-15920
objDictonary.Add "lin",-15915
objDictonary.Add "ling",-15903
objDictonary.Add "liu",-15889
objDictonary.Add "long",-15878
objDictonary.Add "lou",-15707
objDictonary.Add "lu",-15701
objDictonary.Add "lv",-15681
objDictonary.Add "luan",-15667
objDictonary.Add "lue",-15661
objDictonary.Add "lun",-15659
objDictonary.Add "luo",-15652
objDictonary.Add "ma",-15640
objDictonary.Add "mai",-15631
objDictonary.Add "man",-15625
objDictonary.Add "mang",-15454
objDictonary.Add "mao",-15448
objDictonary.Add "me",-15436
objDictonary.Add "mei",-15435
objDictonary.Add "men",-15419
objDictonary.Add "meng",-15416
objDictonary.Add "mi",-15408
objDictonary.Add "mian",-15394
objDictonary.Add "miao",-15385
objDictonary.Add "mie",-15377
objDictonary.Add "min",-15375
objDictonary.Add "ming",-15369
objDictonary.Add "miu",-15363
objDictonary.Add "mo",-15362
objDictonary.Add "mou",-15183
objDictonary.Add "mu",-15180
objDictonary.Add "na",-15165
objDictonary.Add "nai",-15158
objDictonary.Add "nan",-15153
objDictonary.Add "nang",-15150
objDictonary.Add "nao",-15149
objDictonary.Add "ne",-15144
objDictonary.Add "nei",-15143
objDictonary.Add "nen",-15141
objDictonary.Add "neng",-15140
objDictonary.Add "ni",-15139
objDictonary.Add "nian",-15128
objDictonary.Add "niang",-15121
objDictonary.Add "niao",-15119
objDictonary.Add "nie",-15117
objDictonary.Add "nin",-15110
objDictonary.Add "ning",-15109
objDictonary.Add "niu",-14941
objDictonary.Add "nong",-14937
objDictonary.Add "nu",-14933
objDictonary.Add "nv",-14930
objDictonary.Add "nuan",-14929
objDictonary.Add "nue",-14928
objDictonary.Add "nuo",-14926
objDictonary.Add "o",-14922
objDictonary.Add "ou",-14921
objDictonary.Add "pa",-14914
objDictonary.Add "pai",-14908
objDictonary.Add "pan",-14902
objDictonary.Add "pang",-14894
objDictonary.Add "pao",-14889
objDictonary.Add "pei",-14882
objDictonary.Add "pen",-14873
objDictonary.Add "peng",-14871
objDictonary.Add "pi",-14857
objDictonary.Add "pian",-14678
objDictonary.Add "piao",-14674
objDictonary.Add "pie",-14670
objDictonary.Add "pin",-14668
objDictonary.Add "ping",-14663
objDictonary.Add "po",-14654
objDictonary.Add "pu",-14645
objDictonary.Add "qi",-14630
objDictonary.Add "qia",-14594
objDictonary.Add "qian",-14429
objDictonary.Add "qiang",-14407
objDictonary.Add "qiao",-14399
objDictonary.Add "qie",-14384
objDictonary.Add "qin",-14379
objDictonary.Add "qing",-14368
objDictonary.Add "qiong",-14355
objDictonary.Add "qiu",-14353
objDictonary.Add "qu",-14345
objDictonary.Add "quan",-14170
objDictonary.Add "que",-14159
objDictonary.Add "qun",-14151
objDictonary.Add "ran",-14149
objDictonary.Add "rang",-14145
objDictonary.Add "rao",-14140
objDictonary.Add "re",-14137
objDictonary.Add "ren",-14135
objDictonary.Add "reng",-14125
objDictonary.Add "ri",-14123
objDictonary.Add "rong",-14122
objDictonary.Add "rou",-14112
objDictonary.Add "ru",-14109
objDictonary.Add "ruan",-14099
objDictonary.Add "rui",-14097
objDictonary.Add "run",-14094
objDictonary.Add "ruo",-14092
objDictonary.Add "sa",-14090
objDictonary.Add "sai",-14087
objDictonary.Add "san",-14083
objDictonary.Add "sang",-13917
objDictonary.Add "sao",-13914
objDictonary.Add "se",-13910
objDictonary.Add "sen",-13907
objDictonary.Add "seng",-13906
objDictonary.Add "sha",-13905
objDictonary.Add "shai",-13896
objDictonary.Add "shan",-13894
objDictonary.Add "shang",-13878
objDictonary.Add "shao",-13870
objDictonary.Add "she",-13859
objDictonary.Add "shen",-13847
objDictonary.Add "sheng",-13831
objDictonary.Add "shi",-13658
objDictonary.Add "shou",-13611
objDictonary.Add "shu",-13601
objDictonary.Add "shua",-13406
objDictonary.Add "shuai",-13404
objDictonary.Add "shuan",-13400
objDictonary.Add "shuang",-13398
objDictonary.Add "shui",-13395
objDictonary.Add "shun",-13391
objDictonary.Add "shuo",-13387
objDictonary.Add "si",-13383
objDictonary.Add "song",-13367
objDictonary.Add "sou",-13359
objDictonary.Add "su",-13356
objDictonary.Add "suan",-13343
objDictonary.Add "sui",-13340
objDictonary.Add "sun",-13329
objDictonary.Add "suo",-13326
objDictonary.Add "ta",-13318
objDictonary.Add "tai",-13147
objDictonary.Add "tan",-13138
objDictonary.Add "tang",-13120
objDictonary.Add "tao",-13107
objDictonary.Add "te",-13096
objDictonary.Add "teng",-13095
objDictonary.Add "ti",-13091
objDictonary.Add "tian",-13076
objDictonary.Add "tiao",-13068
objDictonary.Add "tie",-13063
objDictonary.Add "ting",-13060
objDictonary.Add "tong",-12888
objDictonary.Add "tou",-12875
objDictonary.Add "tu",-12871
objDictonary.Add "tuan",-12860
objDictonary.Add "tui",-12858
objDictonary.Add "tun",-12852
objDictonary.Add "tuo",-12849
objDictonary.Add "wa",-12838
objDictonary.Add "wai",-12831
objDictonary.Add "wan",-12829
objDictonary.Add "wang",-12812
objDictonary.Add "wei",-12802
objDictonary.Add "wen",-12607
objDictonary.Add "weng",-12597
objDictonary.Add "wo",-12594
objDictonary.Add "wu",-12585
objDictonary.Add "xi",-12556
objDictonary.Add "xia",-12359
objDictonary.Add "xian",-12346
objDictonary.Add "xiang",-12320
objDictonary.Add "xiao",-12300
objDictonary.Add "xie",-12120
objDictonary.Add "xin",-12099
objDictonary.Add "xing",-12089
objDictonary.Add "xiong",-12074
objDictonary.Add "xiu",-12067
objDictonary.Add "xu",-12058
objDictonary.Add "xuan",-12039
objDictonary.Add "xue",-11867
objDictonary.Add "xun",-11861
objDictonary.Add "ya",-11847
objDictonary.Add "yan",-11831
objDictonary.Add "yang",-11798
objDictonary.Add "yao",-11781
objDictonary.Add "ye",-11604
objDictonary.Add "yi",-11589
objDictonary.Add "yin",-11536
objDictonary.Add "ying",-11358
objDictonary.Add "yo",-11340
objDictonary.Add "yong",-11339
objDictonary.Add "you",-11324
objDictonary.Add "yu",-11303
objDictonary.Add "yuan",-11097
objDictonary.Add "yue",-11077
objDictonary.Add "yun",-11067
objDictonary.Add "za",-11055
objDictonary.Add "zai",-11052
objDictonary.Add "zan",-11045
objDictonary.Add "zang",-11041
objDictonary.Add "zao",-11038
objDictonary.Add "ze",-11024
objDictonary.Add "zei",-11020
objDictonary.Add "zen",-11019
objDictonary.Add "zeng",-11018
objDictonary.Add "zha",-11014
objDictonary.Add "zhai",-10838
objDictonary.Add "zhan",-10832
objDictonary.Add "zhang",-10815
objDictonary.Add "zhao",-10800
objDictonary.Add "zhe",-10790
objDictonary.Add "zhen",-10780
objDictonary.Add "zheng",-10764
objDictonary.Add "zhi",-10587
objDictonary.Add "zhong",-10544
objDictonary.Add "zhou",-10533
objDictonary.Add "zhu",-10519
objDictonary.Add "zhua",-10331
objDictonary.Add "zhuai",-10329
objDictonary.Add "zhuan",-10328
objDictonary.Add "zhuang",-10322
objDictonary.Add "zhui",-10315
objDictonary.Add "zhun",-10309
objDictonary.Add "zhuo",-10307
objDictonary.Add "zi",-10296
objDictonary.Add "zong",-10281
objDictonary.Add "zou",-10274
objDictonary.Add "zu",-10270
objDictonary.Add "zuan",-10262
objDictonary.Add "zui",-10260
objDictonary.Add "zun",-10256
objDictonary.Add "zuo",-10254

Public Function SimTrans(Num)
Dim A, B, I
If Num>0 and Num<160 Then
SimTrans=Chr(Num)
Else
If Num<-20319 or Num>-10247 then
SimTrans=""
Else
'判断为汉字才进行转换
A=objDictonary.Items
B=objDictonary.keys
For I=objDictonary.Count-1 To 0 Step -1
If A(I)<=Num Then Exit For
Next
SimTrans=B(I)
End If
End If
End Function

'将汉字转化为拼音的子函数
Public Function SpellTrans(Str)
SpellTrans=""
For I=1 To Len(str)
'逐个进行转换
SpellTrans=SpellTrans&left(SimTrans(Asc(Mid(Str,I,1))),1)
Next
End Function

ping=left(SpellTrans("表单"),1) '这就是你要的
%>

不知道你是用什么软件。
用delphi的:
http://www.qqtime.org/knowskycom/336165.html
其它的思路一样

需要在数据库里面建立一定的对应关系

建议参考下面的帖
http://topic.csdn.net/t/20030711/23/2018940.html