想必现在有很多小伙伴对于取文字的声母的问题方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于取文字的声母的问题方面的知识分享给大家，希望大家会喜欢哦。

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) '这就是你要的

%>

本文到此结束，希望对大家有所帮助。