取汉字拼音首字符的Function

取汉字拼音首字符的Function.txt生活是一张千疮百孔的网，它把所有激情的水都漏光了。寂寞就是你说话时没人在听，有人在听时你却没话说了！OptionExplicit'功能:取汉字拼音首字母函数'参数:as_data要提取的汉字'返回:汉字拼音首字母'时间:2006年05月29日'设计:李成章PublicFunctionf_get_py(ByValas_dataAsString)AsStringDimll_posAsLongDimls_pyAsStringDimls_posAsStringForll_pos=1ToLen(as_data)IfMid(as_data,ll_pos,1)128Thenls_py=ls_py+hz2py(Mid(as_data,ll_pos,1))Elsels_py=ls_py+Mid(as_data,ll_pos,1)EndIfNextf_get_py=ls_pyEndFunctionPublicFunctionhz2py(ByValhzAsString)AsStringDimstr1AsString'====================================以A开头的汉字======================================str1=啊阿呵吖嗄腌锕錒str1=str1&爱矮挨哎碍癌艾唉哀蔼隘埃皑呆嗌嫒瑷暧捱砹嗳锿霭乃剀呃噫奇阂乂伌僾儗凒剴叆呝啀嘊噯堨塧壒娭娾嬡嵦愛懓懝敱敳昹曖欬欸毐溰溾濭烠焥璦皚皧瞹硋磑礙絠薆藹諰譪譺賹躷醷鎄鑀閡阨阸隑靄靉餲馤騃鯦鱫鴱str1=str1&按安暗岸俺案鞍氨胺厂广庵揞犴铵桉谙鹌埯黯干盒钳顸侒儑匼厈咹唵啽垵垾堓婩媕屽峖晻洝玵痷盦盫碪罯腤荌菴萻葊蓭裺誝諳豻貋遃鉗銨錌闇陰隂隌雸鞌韽頇頞馣鮟鴳鵪鶕str1=str1&昂肮盎仰卬岇昻枊醃醠骯str1=str1&袄凹傲奥熬懊敖翱澳嚣拗媪廒骜嗷坳遨聱螯獒鏊鳌鏖岙噢棍浇厫嗸嚻囂垇墺墽奡奧媼嫯岰嶅嶴慠扷抝摮擙柪梎泑滶澆澚熝爊獓璈眑磝磽礉翶翺芺蔜蝹襖謷謸軪郩鏕镺隞驁鰲鴁鴢鷔鼇IfInStr(1,str1,hz,vbTextCompare)=1Thenhz2py=AExitFunctionEndIfstr1='====================================以B开头的汉字======================================str1=把八吧爸拔罢跋巴芭扒坝霸叭靶笆疤耙捌粑茇岜鲅钯魃菝灞伯捭杷湃萆仈叐哱哵坺垻墢壩夿妭峇弝抜抪朳柭欛炦犮玐癹皅矲笩紦罷羓胈茷蚆覇詙豝跁軷釛釟鈀颰魞鮁鮊鲃鲌鼥把八吧爸拔罢跋巴芭扒坝霸叭靶笆疤耙捌粑茇岜鲅钯魃菝灞伯捭杷湃萆仈叐哱哵坺垻墢壩夿妭峇弝抜抪朳柭欛炦犮玐癹皅矲笩紦罷羓胈茷蚆覇詙豝跁軷釛釟鈀颰魞鮁鮊鲃鲌鼥str1=str1&百白摆败柏拜佰伯稗捭呗掰扒排派薜鞴唄庍拝挀擺敗栢猈竡粨粺絔薭襬贁鞁韛str1=str1&半办班般拌搬版斑板伴扳扮瓣颁绊癍坂钣舨阪瘢分彬豳辨辩並坢埿姅岅怑搫攽斒昄朌柈湴瓪秚籓粄絆肦蝂螁螌褩覂跘辦辧辬辯鈑鉡闆靽頒魬鳻str1=str1&帮棒绑磅镑邦榜蚌傍梆膀谤浜蒡彭旁纺螃並嗙垹埲塝嫎峀崗幇幚幫徬挷捠搒棓牓玤硥稖紡綁縍艕蚄蛖蜯謗邫鎊鞤騯髈str1=str1&包抱报饱保暴薄宝爆剥豹刨雹褒堡苞胞鲍炮瀑龅孢煲褓鸨趵葆勹呆簿袍裒佨儤剝勽嘐嚗堢報媬嫑寚寳寶忁怉曓枹珤砲窇笣緥菢蕔藵虣蚫袌裦襃賲鉋鑤铇闁靌靤飹飽駂骲髱鮑鳵鴇齙str1=str1&萡str1=str1&被北倍杯背悲备碑卑贝辈钡焙狈惫臂褙悖蓓鹎鐾呗邶鞴孛陂碚俾埤怫波菩萆葡蜚跋俻偝偹備僃哱唄喺垻愂憊揹昁杮柸桮梖棑棓椑牬犕狽珼琲痺盃禙箃糒苝茀萯藣蛽襬誖諀貝軰輩鄁鉳鋇錍鐴骳鵯str1=str1&本奔苯笨夯锛贲畚坌体倴喯夲奙捹撪桳楍泍渀炃燌犇獖翉蟦賁輽逩錛鐼str1=str1&蹦绷甭崩迸蚌泵甏嘣俸傍唪堋平抨旁榜伻傰嗙埄埲塴奟嵭挷搒漨熢琣琫痭祊絣綳繃菶跰逬錋鏰镚閍鞛str1=str1&比笔闭鼻碧必避逼毕臂彼鄙壁蓖币弊辟蔽毙庇敝陛毖痹秘泌秕薜荸芘萆匕裨畀俾嬖狴筚箅篦舭荜襞庳铋跸吡愎贲滗濞璧哔髀弼妣婢仳佛卑埤复媲幅庀拂捭服枇檗殍波瞥纰脾虑被费跛鐾陂陴馥佊佖偪匂咇啚嗶坒堛夶奰妼娝嬶屄崥幣幤廦弻彃怭怶悂愊斃旇朼枈柀柲梐椑楅毴沘湢滭潷煏熚獘獙珌畁畐畢疕疪痺皀皕禆稫笓筆箃箄箆篳粃粊紕紴綼縪繴罷罼翍聛肶肸胇腗腷苾萞蓽蘗蜌螕袐襅襣觱詖诐豍貏貱費賁贔赑踾蹕躃躄邲鄨鄪鈚鉍錍鎞鏎鐴閇閈閉閟闬鞁鞞鞸韠飶饆馝駜驆髲魓魮鮅鮩鰏鲾鴓鵖鶝鷝鷩鸊鼊str1=str1&边变便遍编辩扁贬鞭卞辨辫忭砭匾汴碥蝙褊鳊笾苄窆弁髟缏煸封拚稹変峅徧惼抃揙昪汳炞牑猵獱甂疺稨箯籩糄編緶臱艑萹藊覍覵變豍貶辡辦辧辮辯邉邊邲釆鍽閞鞕頨鯾鯿鴘鶣str1=str1&表标彪膘杓婊飑飙鳔瘭飚镳裱骠镖剽嫖漂灬苞鏖髟俵僄儦墂幖徱摽標檦淲滮瀌熛爂猋穮篻脿膔臕蔈藨褾諘謤贆錶鏢鑣颮颷飆飇飈飊驃驫骉鰾麃str1=str1&别憋鳖瘪蹩扒拔捌撇秘蔽別咇彆徶撆柭柲猰癟穪苾莂虌蛂蟞襒鱉鼈龞str1=str1&宾濒摈彬斌滨豳膑殡缤髌傧槟鬓镔玢份浜频儐擯椕殯氞汃濱濵瀕瑸璸砏繽臏虨蠙訜豩賓賔贇赟邠鑌霦頻顮髕髩鬂鬢str1=str1&并病兵冰丙饼屏秉柄炳摒槟禀邴冫平拼枋燹绠並仌併倂偋傡垪寎幷庰怲抦掤昞昺栟栤梹棅檳氷燷琕痭癛癝眪稟窉竝絣綆苪蛃誁跰鈵鉼鋲陃靐鞆鞞鞸餅餠鮩str1=str1&拨波播泊博伯驳玻剥薄勃菠钵搏脖帛般柏舶渤铂箔膊魄卜礴跛檗亳鹁踣啵蕃簸钹饽擘佛募孛怕拍拔擗暴服泼潘瀑爆番白百簿艴菩蒲薜蘖趵跑鲅仢侼僠僰剝哱噃嚗壆妭孹嶓帗彴愽懪挬撥柭桲榑檘欂殕浡淿湐潑煿牔犦犻狛猼瓝瓟癶發皪盋砵碆磻礡秡穛笩箥簙糪紴缽肑胉艊苩茀茷葧蔔蔢蘗蚾袚袯袹襎襏襮詙譒豰蹳郣鈸鉑鉢鋍鎛鑮镈餑餺馎馛馞駁駮驋髆髉鮁鮊鱍鲌鵓str1=str1&不步补布部捕卜簿哺堡埠怖埔瓿逋晡钸钚醭卟拊溥薄附鞴佈僕勏吥咘埗婄尃峬庯廍悑抪捗捬撲擈柨歨歩獛秿箁篰荹蔀補誧踄輹轐郶鈈鈽陠餔餢鯆鳪鵏鸔IfInStr(1,str1,hz,vbTextCompare)=1Thenhz2py=BExitFunctionEndIfstr1='====================================以C开头的汉字======================================str1=擦拆礤嚓蔡傪囃攃橴磣礸遪str1=str1&才菜采材财裁猜踩睬蔡彩倸偲啋埰婇寀戝扐採揌棌綵縩纔財跴str1=str1&蚕残掺参惨惭餐灿骖璨孱黪粲傪儏參叄叅喰嘇噆囋嬠嬱嵾慘慙慚憯戔摲朁殘淺湌澯燦爘穇篸薒蝅蠶蠺謲蹔鏒飡飱驂鯵鰺鲹黲str1=str1&藏仓沧舱苍伧臧仺倉傖凔匨嵢欌滄濸獊瑲篬罉艙蒼蔵螥賶鑶鶬鸧str1=str1&草操曹槽糙嘈艚螬漕屮澡艹造傮嶆愺慅慒懆撡曺肏艸蓸褿襙鄵鏪鐰騲鼜str1=str1&册侧策测厕恻帻栅赦側冊厠墄嫧幘廁惻憡拺敇柵測畟笧筞筴箣簎粣荝萗萴蓛齰str1=str1&参岑涔參叄叅嵾梣汵硶穇笒篸膥str1=str1&曾层蹭噌僧增缯層嶒橧竲繒驓str1=str1&查插叉茶差岔搽察茬碴刹诧楂槎镲衩汊馇檫姹杈锸嚓土捷接斜猹苴荼钗仛侘偛剎嗏垞奼岎嵖扠扱挿捈揷摖査梌疀秅紁肞臿艖芆荖褨訍詧詫蹅釵銟鍤鎈鑔靫餷str1=str1&柴拆差豺钗瘥虿侪叉搓查茈龇儕勑喍囆扠犲祡茝蔕蠆袃訍釵齜str1=str1&产缠掺搀阐颤铲谗蝉单馋觇婵蒇谄冁廛孱蟾羼镡忏潺禅骣躔澶兔厘嬗崭掸沾渐胀苫裣谶丳亶佔僝僤儃儳兎刬剗剷劖単啴單嘽嚵囅團墠壥嬋嵼嶃嶄巉幝幨憚懴懺摌摲摻撣攙斺旵梴棎榐欃毚浐湹滻漸潹瀍瀺灛煘燀獑產産硟磛禪簅緂緾繟繵纏纒脠艬蕆螹蟬蟺袩裧襌襜襝覘誗諂譂讇讒讖蹍辿鄽酁醦鉆鋋鋓鏟鑱镵閳闡韂顫饞str1=str1&长唱常场厂尝肠畅昌敞倡偿猖裳鲳氅菖惝嫦徜鬯阊怅伥昶苌娼倘尚淌仧倀僘償儻兏厰嘗嚐場塲尙廠悵晿暢棖椙淐焻玚琩瑒瑺瓺甞畼脹腸膓萇蟐裮誯鋹鋿錩鏛锠長镸閶闛韔鯧鱨鲿鼚str1=str1&朝抄超吵潮巢炒嘲剿绰钞怊焯耖晁唠涛绉绍诌仦仯劋勦嘮巐巣弨摷槱樔欩漅濤焣煼牊眧窲粆紹綤綽縐繛罺觘訬謅謿趠趫轈鄛鈔麨鼂鼌str1=str1&车撤扯掣彻尺澈坼砗多宅屮斥池伡俥偖勶呫唓喢夛奲徹揊摰撦烢烲焎爡瞮硨硩聅莗蛼詀謵車迠頙str1=str1&趁称辰臣尘晨沉陈衬橙忱郴榇抻谌碜谶宸龀嗔伧琛堪填帘枕沈湛疹眈缜肜胂闯侲傖儭嚫塡塵墋夦愖捵揨敐曟桭棧棽樄櫬瀋烥煁疢瘎瘨瞋硶磣稱綝縝茞莀莐蔯薼螴襯訦諃諶謓謲讖賝贂趂趻跈踸軙迧醦鈂鍖闖陳霃鷐麎齓齔str1=str1&成乘盛撑称城程呈诚秤惩逞骋澄橙承塍柽埕铖噌铛酲晟裎枨蛏丞瞠伥净呛嵊徵抢敞樘浈盯趟蹦郢醒乗侱倀偁僜嗆埩堘塖娍宬峸庱徎徴悜憆憕懲挰掁搶摚摤撐撜朾棖棦椉槍橕橖檉檙氶泟洆浧浾淨溗澂瀓瀞爯牚珵珹琤瑲畻睈矃碀稱穪窚竀筬絾緽脀脭荿虰蟶觕誠赪赬踜郕鋮鎗鏳鏿鐺阷靗頳饓騁騬鯎黨str1=str1&吃尺迟池翅痴赤齿耻持斥侈弛驰炽匙踟坻茌墀饬媸豉褫敕哧瘛蚩啻鸱眵螭篪魑叱彳笞嗤傺哆啸喜她抬拆拖提搋柢沱治滞眙离移胝芪茬莉蛇踅饰骊佁侙俿剟勅卙卶叺呎呬呮呹喫嘨嘯噄噭坘垑奓妛屟岻彨彲徲恜恥慗慸憏懘扡抶拕拸捇摛摴攡杘柅樆欼歗歭歯汖沶泜淔湁滯漦灻烾熾狋瓻痓痸瘈癡瞝祇竾筂箈箎粚糦絺翄翤翨耛肔胣胵脪腟荎菭蚇蚳蝭袲袳裭訵誀誃誺謘謻貾赿趍趐趩跅跢跮踶軧迡迣遅遟遫遲邌鉓鉹銐鍉離雴飭飾餝饎馳騺驪鳷鴟鵄鵣鶒鶗鶙鷘麶黐齒齝str1=str1&冲重虫充宠崇涌种艟忡舂铳憧茺僮潼烛盅茧酮偅傭喠嘃埫寵崈徸憃揰摏樁沖浺漴爞珫痋祌種緟罿翀蝩蟲衝褈蹖蹱銃隀str1=str1&抽愁臭仇丑稠绸酬筹踌畴瞅惆俦帱瘳雠圳妯扭揄溴诌钮鲋丒侴偢儔吜嚋婤媿嬦幬怞懤掫搊擣杻杽栦椆檮殠燽牰犨犫畤疇皗盩眣矁篘籌紬絒綢臰菗薵裯詶謅譸讎讐诪跾躊遚酧醔醜醻鈕雔魗鮘鯈str1=str1&出处初锄除触橱楚础储畜滁矗搐躇厨雏楮杵刍怵绌亍憷蹰黜蜍樗助柠涂淑硫祝絮著褚诎诸俶傗儊儲処嘼埱媰岀幮廚慉懨拀摢摴敊斶椘榋槒橻檚櫉櫖櫥欪歜滀濋炪犓珿琡璴礎禇竌竐篨絀耝耡臅芻菆蒢蒭蓫蕏藸處蟵蠩觕觸詘諔諸豖豠貙趎跦踀踰躕鄐鉏鋤閦雛鶵鸀齣齭齼str1=str1&撮欻歘str1=str1&揣膪啜嘬搋踹欼腄膗str1=str1&穿船传串川喘椽氚遄钏舡舛巛惴掾踹镩傳僢剶圌堾暷歂汌猭玔瑏甎篅膞舩荈賗踳輲釧鶨str1=str1&窗床闯创疮幢怆仓囱舂葱仺倉傸刅刱剏剙創噇囪愴戧摐朣橦漴漺牀牎牕瘡磢窓窻膧蔥闖str1=str1&吹垂炊锤捶椎槌棰陲倕圌埀惙搥桘箠腄菙郵錘鎚顀鬌魋龡str1=str1&蠢春唇纯醇淳椿蝽莼鹑朐沌肫辁偆僢堾媋惷旾暙杶楯槆橁櫄浱湻滣漘犉瑃睶箺純胊脣膞芚萅萶蒓蓴賰踳輇輴醕錞陙鯙鰆鶉鶞str1=str1&戳绰踔啜龊辍促斫淖焯簇缀荃蔟趵踱躇辶醛镞吷嚽娕娖婥婼孎惙拺擉歠涰磭箹綴綽繛腏趠跿輟辵逴酫鋜錣鏃鑡齪齱str1=str1&次此词瓷慈雌磁辞刺茨伺疵赐差兹呲鹚祠糍厕司嵯措柴滋粢茈荠蚝螅趑佌佽偨刾厠呰啙垐堲姕嬨嵳庛廁朿枱柌栜栨泚澬濨玼珁甆皉礠絘縒胔茦茲莿萕薋薺蛓螆蠀詞賜赼趀跐辝辤辭鈶飺餈骴髊鮆鴜鶿鷀齹str1=str1&从丛葱匆聪囱琮枞淙璁骢苁偬窗纵叢囪婃孮従徖從忩怱悤悰慒憁暰棇楤樅樬樷欉漎漗潀潈潨灇焧熜燪爜瑽瞛碂篵総緫縦縱總繱聡聦聰茐菆蓯蔥藂蟌誴謥賨賩鏦騘驄str1=str1&凑楱辏腠奏揍族簇蔟薮趋趣湊玼藪趨輳str1=str1&粗醋簇促卒徂猝蔟蹙酢殂蹴且戚绉趋趣错卆噈娕娖媨怚憱捽瘄瘯皻縐縬脨蔍蔖觕誎趗趥趨踀踓踤踧蹵錯顣麁麄麆麤鼀str1=str1&窜蹿篡攒汆爨镩撺昕僔巑攅攛攢櫕欑殩濽灒熶穳窾竄篹簒菆襸躥鋑鑹str1=str1&催脆摧翠崔淬衰瘁粹璀啐悴萃毳榱体察隹乼伜倅凗啛墔崒崪嶉忰慛椊槯漼濢焠熣獕琗疩皠磪竁粋紣綷縗繀缞翆脃脺膬膵臎襊趡踤鏙顇str1=str1&村寸存蹲忖皴浚侟刌吋墫拵洊澊竴籿踆邨str1=str1&错撮搓挫措磋嵯厝鹾脞痤蹉瘥锉矬摧昔最躜剉剒夎嵳庴棤澨營瑳睉縒莝莡蒫蓌蔖虘襊諎躦逪遳酂酇醝銼錯髊鹺齹'====================================以D开头的汉字======================================IfInStr(1,str1,hz,vbTextCompare)=1Thenhz2py=CExitFunctionEndIfstr1='==========