ʻ㣨VBSű棩 |
ıǩ,ʻ ƴ : ʻ㣨VBSű棩 dim word,key word=inputbox("Ҫ") if word="" then msgbox "С ǽ㲻Ҫ" Wscript.Quit end if key=char_wordnum(word) msgbox key Function char_wordnum(my_char_word) dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnum temp_wordnum="" if my_char_word="" then char_wordnum=0 exit function end if char_wordtable(0)="" char_wordtable(1)="һ" char_wordtable(2)="ؿ˶缸ɵذʮ" char_wordtable(3)="آѾرôҲϰءڿأǧʿϦŮСʬɽݴȽ۹߮ŷ" char_wordtable(4)="ؤרзᵤΪ֮ƻ微ʲƽͳԴزԪڸ߷Ȱ카Ȼƥئ˫̫زͰͱһإ껧֧Ķ﷽ԻľǷֹëˮצسƬţȮռƶϼ˳ŶΤ緦" char_wordtable(5)="اҵԶ˿է̸ǪȽдۻ۽ұѻ߲ܰռ¬شîȥž߶ߵֻٰȶ̨߳ʷҶ˾̾߷ߴʥ뺻ʧͷū島Զɾв˧ƽ˰Ǵӳδĩĸص֭͡㺺ϸ˦ɼƤĿìʸʯʾѨܴܵڦڧڨѵѶ㼢Ԧ" char_wordtable(6)="ةƹبǽηݷ鼿Żɡΰαȹȫپũ̻մӶٽﻪЭӡΣѹԸߺϼͬ߸߹ضعݵ۳׳ĿжżױִլذѰ⳾ҢѲʦ겢ׯ͢ʽڵæϷпǤִɨּѮҷӶɱȨλϫǺѴ꽭ƻүIJԼϿɫܹܷܻܺܶâܼ֥ܸѪ۽کڪګϷþ긺ǨѸǰаƱʴҳѱ" char_wordtable(7)="ϴҺĶ٣٤赫λס٢١Ӷұ䶳ɾŬ۾ۿϻҽ±ȴؾķɶַԺ˱֨ⳳǺѽʸ߽߾Ż߿ԱǺضΧַ̮ӿ̳ްۼʼТβƨ᯲ᰵϣʱӴ®пӦŪͮ۳߯־黳ҽŤ糶ŰҼץͶ۸ҿĹ꺺ʱɼӲĴȶ迼죲ÿ̭ɳ湵ûŽٲֲĵ״ұ긦е˽ͺϵγ硴ɴڷֽƷŦ磺ǼФǸ뿳ܽҽ«ܾҰоܿѿέɲ֤ڬڭʶթڮߴڰگڱȶƳӭ˽·ûԶΥʺۢۡ붤ȼ簢鸽½¤¿" char_wordtable(8)="ɥЩؽۼ٦٥٬ٮ٫ʹ٩ֶ٨٪٧ٰ½ȿ٭ٯߵƾεˢȯɲ̹̿ܶбԾȡζզ;ӽǹа̹ͼ̹ƺ崹¢䱸ҹηܱķʼίѧڹ涨˱ʵоẰᴿ㲯ҵҵӷϽһ¼̬²巿̧ĨѺĴذ־£ӵšŸն껲ºɰ幹ö֦ǹɹŷŹåĭӷӹմйŢݲעӾкdz¯׳Ȳְõ߰űäֱ֪ѱϸ֯称ᆳҮ֫ʼ緾ǰɷвԷٰ̦ܿɻӢƻïéݾỢ²ʭĹڲڳڴʫڵڶڷڸڹѯںڻڼͰ˻ʷ̰ƶṺתǵȵۥۣۧۤۨۦ֣۩ɽǥ̷բָªİǶ꽤αʻפ" char_wordtable(9)="پֱͤٶٴٸٵٷٹٶٱٲٳðǰнѫжܱҧҿۿްƷӺ۹ܻӴҹԫѵ︴ȽҦ¦欽ȺϿ嶻ܹ⽫ٳʺϿͲ۴֡Ӷͥߺŭ˼Թѻк㡶ս˩ٿƴקʰָֹ̢ЮӵŲͦʩӳԿռܼڱijȾܲѼդջжжζձȪϴ嶴䢺䬶䡻Ǣ䤽Dz䫼䯻Ũ̿ھƱը˸ǣݽʨ貣ɺ巩η̽ߴԻӯζʡüգɰשףخֿͻĸѰ笻Ѥͳˣθе̥ʤհطݢãٻӫݡݣݥݤݦݧҩŰϺʴǰҪڽھջڿ˵ܴóѺſԱżѡѷۭۮ۬¿۪۫ظҶ۳ƱԿվٹťٹ̷ұ춸Ժ˳ʳýȱ溧ǹŸѻ" char_wordtable(10)="ٽٺıٿȺý賫žٻپծֵټڣԩڤڡ߰·ԭŸŶԲɼ淶ثݿмչͷϯͽˡϢҶ㩺㨻ȭֿΰͱ۰ƺ貶Ч͵аի˻νɹ˷ʲ˨У˸Φͩɣ嵵ѳ볺̩㿣ֺ˸ԡͿӿлɬȺ̿ǻ̽Ȱƿƣ۾Ҽ䲡֢Ӹյμѣ|խվǰЦʷ篾мȱո̳ȸŰʳܵٿܸؽذ༹֬ŧҨݩݶݱݴݰɯݮݷݯݸݬݹݳݭĪݨݪݫݲݵӨݺݻç˥Ԭ̻ȱŵ·̿˭ŵ̸ֻ¸ϵ;Ѷͨųҷ߲ۯ۰ƸǮǯܲǦí˶ԤĶ鿥تѼԧ" char_wordtable(11)="Ǭȼƫͣż͵dzջ˼ÿɾΨ৳ơɶžХȦܤܣܥöܡܢǵ¹Ȣ漻Ӥżܿξdz±ոijᡳӹȵʱϤƻ㲼㬵㰾ϧΩ㫲ѵߴƵڵҴ̽ӿڴ°뷽ָбͰ÷е봸Һõĵ㻴Ԩ½ϩɺʻˬ⨲ͲèȬ̺𨰨пǵʢι˶ƱƻҤϵӷεͼɴճۼ糴ά緱ְ㸬沰ݼѹվݿ˲ݾݽƼήөӪȹƵ´ϮıȵгνβֺԾľմ۱۲̪Ұͭϳ綠ҿղ¡ȸѩľڹظ¹ƹ" char_wordtable(12)="ϴаʣļó౿ιิϲܧܦܩ̿ܨҼýɩܸºԢǶñᢷ߱ǿѭݳͱ㷻㶷ſƳҾմԮ§ɦѴɢؾ쳰˹վ羧ؼɭֲ駽Ҭۿֳ̺릵μֿպտʪӸѳ̻ͱٽȻϬ⮺⪻帷趻ʹƦ컾Ӳȷ»˰ѴѿͯڵȽܷͲɸ罼翼ĻƱԵƢҸ縭ǻ˴ͧظ϶ڿݵֻԸѽֲװԣȹϿлҥǫʹԽ̰ϵȼԹꢹٵﭳﲷп϶żȲƭɧ³" char_wordtable(13)="ɵڵɤܪܫĹϱżįջĻ㺴°Яҡ̯Ͼů驴Ш騿¥鯸鶻ЪԴϪб̲ĮӻͼɷúԳ觺ɪ̵ձ˯Ƕ鰫ֵµ鱮տǩӾǷɲȺƸȾӼչղܽáӿ·ѶҶꣷδDZDzң۱۴۳۵ҳͪﻴêസĶӺ³ױѥƵӱտֱȵ" char_wordtable(14)="ɮӾмѸܬܭǽܮ˵ͷկαԸĽ㼿ˤժġߡƲ黰եȶģǸعƯ©ΫɿϨѬݴغܱ̼̼۴Ŵ߶빿䲭վӧԴظĤޤޣεǾޢޡ֩Ӭۺ̷ܺòӻԯϽշ۷۶øͶþؿؾ" char_wordtable(15)="Ƨ˻ҭܯīᦴӰ»ο㿺㽶¾Ħ˺ߤײ˲ߢߣߥܷĺβȷӣDZ̶γ̱Ϲޫݿ𡵾ڻƪ¨ںϱϥެަޥީިާޭުЫǴԥȤ̤۲ָùЬնƮϺ" char_wordtable(16)="弽جԱиߦòߧߨٳӳº壼ȼ̡ưȳƳĥܲٽ纲ޮٱޱѦޯްнꥱ۸ȩص쮲ǭĬ" char_wordtable(17)="麿ֺڻųߪߩ̴ϭƾ˲ͫ㿷㷱족ӷӮ念̣˪ϼκȣ" char_wordtable(18)="´հݷźٷӥ" char_wordtable(19)="߫嬱跰꽮ѢĢзྯߵŲ۹´" char_wordtable(20)="ػ½Ρ容ǼŴҫƩۺܰħ" char_wordtable(21)="¶" char_wordtable(22)="ܱܲȿպ" char_wordtable(23)="߬ȧ" char_wordtable(24)="屴" char_wordtable(25)="߭" char_wordtable(26)="" wordnum_i=0 wordnum_j=0 wordnum_k=0 for wordnum_i=1 to Len(my_char_word) temp_wordnum=Mid(my_char_word,wordnum_i,1) for wordnum_j=1 to 26 if instr(1,char_wordtable(wordnum_j),temp_wordnum)>0 then wordnum_k=wordnum_k+wordnum_j exit for end if next next char_wordnum=wordnum_k End Function |