www.pudn.com > ¿¼ÇÚ¹ÜÀíϵͳԴÂë(VBº¬´®¿Ú½Ó¿Ú³ÌÐò).zip > ModPy.bas
Attribute VB_Name = "modGetPy"
Option Explicit
Public Function GetPy1(hzChar As String) As String
Dim tmpLng As Long
Dim RetValue As String
tmpLng = Asc(hzChar) ') * 2 ^ 8 + AscB(RightB(hzChar, 1))
Select Case tmpLng
Case &HB0A1 To &HB0C4
RetValue = "a"
Case &HB0C5 To &HB2C0
RetValue = "b"
Case &HB2C1 To &HB4ED
RetValue = "c"
Case &HB4EE To &HB6E9
RetValue = "d"
Case &HB6EA To &HB7A1
RetValue = "e"
Case &HB7A2 To &HB8C0
RetValue = "f"
Case &HB8C1 To &HB9FD
RetValue = "g"
Case &HB9FE To &HBBF6
RetValue = "h"
Case &HBBF7 To &HBFA5
RetValue = "j"
Case &HBFA6 To &HC0AB
RetValue = "k"
Case &HC0AC To &HC2E7
RetValue = "l"
Case &HC2E8 To &HC4C2
RetValue = "m"
Case &HC4C3 To &HC5B5
RetValue = "n"
Case &HC5B6 To &HC5BD
RetValue = "o"
Case &HC5BE To &HC6D9
RetValue = "p"
Case &HC6DA To &HC8BA
RetValue = "q"
Case &HC8BB To &HC8F5
RetValue = "r"
Case &HC8F6 To &HCBF9
RetValue = "s"
Case &HCBFA To &HCDD9
RetValue = "t"
Case &HCDDA To &HCEF3
RetValue = "w"
Case &HCEF4 To &HD1B8
RetValue = "x"
Case &HD1B9 To &HD4D0
RetValue = "y"
Case &HD4D1 To &HD7F9
RetValue = "z"
Case Else
RetValue = Empty
End Select
GetPy1 = RetValue
End Function
Public Function GetPy2(tmpStr As String) As String
Dim CString As String
Dim HZ As String
Dim Py As String
Dim Py1 As String
Dim Hstr(23) As String
Dim Zm(23) As String
Hstr(0) = Empty
Zm(0) = Empty
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim RetValue As String
Zm(1) = "a"
Zm(2) = "b"
Zm(3) = "c"
Zm(4) = "d"
Zm(5) = "e"
Zm(6) = "f"
Zm(7) = "g"
Zm(8) = "h"
Zm(9) = "j"
Zm(10) = "k"
Zm(11) = "l"
Zm(12) = "m"
Zm(13) = "n"
Zm(14) = "o"
Zm(15) = "p"
Zm(16) = "q"
Zm(17) = "r"
Zm(18) = "s"
Zm(19) = "t"
Zm(20) = "w"
Zm(21) = "x"
Zm(22) = "y"
Zm(23) = "z"
CString = "0123456789abcdefghijklmnopqrstuvwxyz"
CString = CString & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
CString = CString & "!.#$%()*+-,/[\|^~`@{}_"
Hstr(1) = "ï¹ Þß àÈ àÉ æÈ è¨ êÓ íÁ ïÍ ö° ÚÏ Ûû Þî áí âÖ èñ ï§ ðÆ ÷ö "
Hstr(1) = Hstr(1) & "Ïù Ûê ÞÖ à» á® âÚ åÛ æÁ æñ éá ñú òü öË ÷¡ ÷é "
Hstr(2) = "ÜØ ÝÃ á± å± îÙ ôÎ öÑ ÷É Þã êþ Úæ Ûà îÓ ñ£ ñ ô² Ýò äº ÆØ "
Hstr(2) = Hstr(2) & "Ýá æß ìÒ ð± ñÙ õÀ öµ Øà Úé Úý Ûý ÝÉ Ýí ß 㣠íÕ ðÇ ñØ öÍ ÷¹ º» "
Hstr(2) = Hstr(2) & "ÛÎ ÛÐ êÚ ï¼ àÔ ê´ Ø° Ù Ûý ÜÅ Üê Ý© ÝÉ Þµ ßÁ ßÙ áù âØ ã¹ ää å¨ "
Hstr(2) = Hstr(2) & "åö åþ æ¾ æÔ èµ êÚ î¢ î¯ îé ïõ ñÔ óÙ óë ó÷ ô° ôÅ õÏ ÷ ØÒ ÛÍ ÜÐ "
Hstr(2) = Hstr(2) & "âí ãê çÂ ì® ìÔ í¾ íÜ ñ¹ ñÛ òù óÖ öý æ» æô è¼ ì© ì ïÚ ïð ñ¦ ñÑ "
Hstr(2) = Hstr(2) & "÷§ ÷Ô õ¿ ÙÏ áÙ çÍ çã éÄ éë ë÷ ïÙ ÷Æ ÷Þ Ù÷ Úû Þð éÄ °Ø ²· Øà Ùñ "
Hstr(2) = Hstr(2) & "࣠âÄ éÞ êþ ë¢ íç îà ð¾ ô¤ õÀ õË õÛ ß² åÍ ê³ êÎ îÐ îß õ³ "
Hstr(3) = "àê íå åî æî è² ôÓ ÷õ àÐ äî ó© ô½ âü á¯ ä¹ É² Ôû àê ⪠âÇ ãâ æ± è¾ é« "
Hstr(3) = Hstr(3) & "é¶ éß ïÊ ïï ñà ٠îÎ ðû ò² Ùæ ÚÆ ÝÛ âÜ âã äý å¤ åî åñ æ¿ æö êè "
Hstr(3) = Hstr(3) & "ìø ïâ ó¸ õð ÌÈ Øö ÛË ÜÉ ÝÅ áä âê ã® ãÑ æ½ æÏ êÆ ë© öð ´Â ½Ë â÷ "
Hstr(3) = Hstr(3) & "êË ìÌ ñé Ûå íº ³» Ø÷ ÚÈ Úß ÞÓ àÁ å· è¡ é´ í× ö³ ³Ò ³Ó Ø© Ûô àá "
Hstr(3) = Hstr(3) & "èÇ èß ëó îª îñ îõ ñÎ òÉ õ¨ ÙÑ Ûæ ܯ ÜÝ ß³ ßê à´ àÍ âÁ æÊ ë· í÷ "
Hstr(3) = Hstr(3) & "ð· ñ¡ ñÝ ò¿ ó¤ ó× óø ôù õØ ÷Î Üû âç ã¿ ï¥ ô© ô¾ Ù± àü ã° ñ¬ öÅ "
Hstr(3) = Hstr(3) & "Ðó Ø¡ Û» âð ãÀ ç© èÆ èú éË ñÒ òÜ õé ÷í Þõ ëú õß à¨ àÜ â¶ å× çÝ "
Hstr(3) = Hstr(3) & "ë° îË ô âë Úï é¢ é³ Üë ßÚ ìô ðË ôÙ é¨ ê£ ëí Ýý áÞ â§ éã õ¡ õ¾ "
Hstr(3) = Hstr(3) & "õí ÔÜ Ùà ߥ ìà ïé ÝÍ ßý ã² è éÁ ë¥ ö¿ ââ ñå ØÈ áÏ ëâ ï± ïó ðî "
Hstr(3) = Hstr(3) & "ðû õº õã "
Hstr(4) = "ÞÇ ßÕ àª âò æ§ í³ ðã ñ× óÎ ÷° ÷² ܤ ß° ß¾ á· åÊ ææ çª çé ÷ì "
Hstr(4) = Hstr(4) & "µ® ÙÙ ÝÌ à¢ å£ éé êæ íñ ðã ð÷ ñõ óì ÚÔ ÛÊ ÝÐ å´ í¸ ñÉ ß¶ àü âá "
Hstr(4) = Hstr(4) & "ë® ìâ ôî ï½ àâ áØ ê íã ïë ô£ ص Ùá Ú® ÚÐ Û¡ Ûæ ݶ àÖ æ· ç° èÜ "
Hstr(4) = Hstr(4) & "é¦ êë íÆ íÚ íû ïá ôÆ ÷¾ àÇ Úç Ûã áÛ çè îä ñ° ñ² ô¡ õÚ îö ï¢ õõ "
Hstr(4) = Hstr(4) & "öô Ûì ܦ Þé à© ëº ð¬ ñó õÚ õÞ öø Øê ठçà ëë íÖ î® îú ðÛ ñô ôú "
Hstr(4) = Hstr(4) & "îû Ûí ßË á´ á¼ ë± ëË ëØ íÏ ð´ Ýú ñ¼ ò½ óû ܶ འä èü ë¹ ó¼ óÆ "
Hstr(4) = Hstr(4) & "÷Ç ÷ò é² ìÑ óý í¡ í íÔ ãç ìÀ í» íâ íï ïæ õ» ÍÔ ßÍ ßá ãõ ç¶ èÞ "
Hstr(4) = Hstr(4) & "îì ñÖ õâ "
Hstr(5) = "ج ÚÌ ÛÑ ÜÃ Ý Ýà ßÀ ãµ åí æ¹ éî ëñ ï° ïÉ ðÊ ò¦ öù ÚÀ Ýì Þô Ù¦ åÇ çí îï ð¹ öÜ "
Hstr(6) = "ÛÒ íÀ Þ¬ ÞÀ ᦠèó ìÜ î² õì ·» Úú áÝ èÊ îÕ ô³ öÐ ÜÀ áô ã äÇ åú ç³ é¼ ëè "
Hstr(6) = Hstr(6) & "ì³ ìé ïÐ ðò òã óõ ôä ö öî ÙÇ å¯ çã èû ö÷ ÷÷ Ùº Ûº Ý× ßô ãã í¿ ó¾ "
Hstr(6) = Hstr(6) & "Ùë Ùì Û® ܽ ÜÀ ÜÞ Üò ݳ ÝÊ ÞÔ ß» ᥠâö äæ åõ æÚ æâ ç¦ ç¨ èõ êç "
Hstr(6) = Hstr(6) & "ìð íÉ íê íë î· ïû ð¥ ò¶ òÝ òð òó ôï õà õÆ öÖ öû "
Hstr(7) = "ÞÎ æØ æÙ ê¸ îŠؤ Úë Ûò ê® êà Ûá ÜÕ ÞÏ ß¦ ãï äÆ ä÷ ç¤ éÏ êº í· ðá ôû "
Hstr(7) = Hstr(7) & "í° î¸ óà غ Ú¾ Û¬ Þ» çÉ éÀ éÂ ê½ ï¯ ¿© Ò٠ت Øî ÛÁ Û٠ܪ àà æü "
Hstr(7) = Hstr(7) & "ë¡ ëõ íÑ ïÓ ñË ò¢ ò´ ô´ ÷À ب Ý¢ ßç ôÞ ßì âÙ ç® öá çî ëÅ ò¼ ö¡ "
Hstr(7) = Hstr(7) & "Øþ Ú¸ ḠåÜ æÅ çà èÛ êí ì° óÑ óô ÷¸ ØÅ Ú¬ ÝÔ ßÉ áÄ ãé èô éï êô "
Hstr(7) = Hstr(7) & "êö ëû ì± î î¹ îÜ ïÀ ð³ ðÀ ðó òÁ ôþ õý öñ ÷½ ØÔ Ú´ ßÉ èé ëÒ ð» "
Hstr(7) = Hstr(7) & "ÂÚ ÙÄ Ý¸ Þè äÊ î ðÙ ñæ ÷¤ ßÛ áî èæ ë× ¿þ Ȳ ØÐ ØÛ âÑ å³ æ£ èí "
Hstr(7) = Hstr(7) & "êÁ êÐ ð§ óþ öÙ ÷¬ Ùò çµ íÞ öç ÎÐ Ùå Ûö Þâ ßà àþ áÆ â£ é¤ ë½ ñø òä òå "
Hstr(8) = "¸ò Ϻ îþ ºÙ ¿È àË ëÜ õ° Úõ ÝÕ Þþ ãÛ å« êÏ ìÊ ñü ò¥ òÀ ÷ý ãì ç¬ çñ ñþ ¸ä "
Hstr(8) = Hstr(8) & "ºÑ Ýï Þ¶ àÆ àã å© å° ê» ð© ò« òº Ú ÛÀ ÛÖ àÀ ãØ æü ê îÁ ò¢ ò ôç "
Hstr(8) = Hstr(8) & "Þ¿ çñ èì Ùä Ùê Ú§ ݦ Þ® Þ° ãÈ ãü Ü© áá åË ðú óó ô× ö× ÷¿ Ùü ßü àñ "
Hstr(8) = Hstr(8) & "á² â© âï ã± ä° äï çú éÎ éõ ì² ìà ìÎ ìæ ìè ìï ð ðÀ ðÉ ð× óË õ õú "
Hstr(8) = Hstr(8) & "æè èë í¹ îü õ× Û¨ Û¼ ÝÈ ß§ à÷ âµ ä¡ ä½ äñ å¾ åÕ çÙ ïÌ öé ÷ß Úò áå "
Hstr(8) = Hstr(8) & "äÒ äê åØ è« ëÁ ñ¥ ó¨ óò öü Üî Üö Þ¥ ßÔ ßÜ à¹ ãÄ ä§ ä« åç çÀ çõ èí "
Hstr(8) = Hstr(8) & "êÍ í£ ò³ ó³ ÷â Ú» âÆ ãÔ äã Øå Þ½ ß« àë â· îØ ïÁ ïì ñë ó¶ "
Hstr(9) = "Ø¢ ؽ ØÀ ØÞ Ù¥ ÙÊ Úµ ÛÔ Ü¸ ÜÁ Üù Ýð Þª Þá ß´ ßÒ ßâ ßó ᧠áÕ ä© åì æ÷ çÜ "
Hstr(9) = Hstr(9) & "çá é® éê êª ê« êå êé ê÷ ì´ í¶ î¿ ïú ð¢ ñ¤ ò± óÅ óÇ ôß õÒ õÕ ö« öÝ "
Hstr(9) = Hstr(9) & "öê ÷Ù ÷ä ØÅ Ù¤ Û£ Ýç áµ ä¤ åÈ çì ê© ëÎ í¢ îò ïØ ðè ðý ñÊ òÌ óÕ "
Hstr(9) = Hstr(9) & "ô õÊ ÙÔ ÚÉ ÚÙ ÝÑ Ýó Þö àî äÕ å¿ åÀ çÌ èÅ é¥ ê§ ê¯ êð êù ë¦ ëì "
Hstr(9) = Hstr(9) & "íú ïµ ðÏ ñÐ óÈ ôå õ õÝ öä ÷µ ¼ª °² Üü ä® ç çÖ êñ íä ñð ôÝ ôø "
Hstr(9) = Hstr(9) & "ÙÕ Ü´ Üú ÞØ àÝ á½ áè äÐ æ¯ ë¸ ð¨ ðÔ òÔ õ´ õÓ öÞ ÙÊ Ú¦ Úµ Þ× à® "
Hstr(9) = Hstr(9) & "àµ æ¼ æÝ èî íÙ ðÜ ò¡ ò» ôÉ öÚ ÷º ¼¢ ¶ö Úá Ý£ ÝÀ àä âË âÛ æ¡ çÆ "
Hstr(9) = Hstr(9) & "èª éÈ êá êî ñÆ ØÙ ÙÓ Úå ݼ â° ã½ ãþ åÉ åò æº ë ëÖ ëæ ìº ö¦ åÄ "
Hstr(9) = Hstr(9) & "êÁ ìç ÙÖ à± ãÎ èÑ èê ð¯ ðÕ ôñ ÷Ý ÙÆ Úª ÜÄ ÜÚ Üì Þä åá åð è¢ èÛ "
Hstr(9) = Hstr(9) & "é§ é° é· éÙ êø ì« îÒ ï¸ ñÀ ñÕ ôò õ¶ õá ö´ ö öÄ ÷¶ Û² áú ä¸ èð "
Hstr(9) = Hstr(9) & "îà ïà ïÔ öÁ ØÊ Øã ÚÜ ÛÇ Þ§ ൠàÙ àå áÈ â± æÞ çå èö éÓ ìß ïã õê "
Hstr(9) = Hstr(9) & "õû ¾Þ ¶î ÞÜ ñä óÞ ÷å "
Hstr(10) = "Øû ßÇ ëÌ ØÜ Ûî ÝÜ âé âý îø ï´ ïÇ Ù© ݨ ãÛ ê¬ íè î« Øø ãÊ îÖ åê èà "
Hstr(10) = Hstr(10) & "êû îí ྠ᳠㡠äÛ æì ç¼ çæ éð ë´ î§ îÝ ï¾ ïý ðâ ñ½ ò¤ òò ÷Á "
Hstr(10) = Hstr(10) & "ñÌ ï¬ ÙÅ áÇ óí ÜÒ Þ¢ ßµ íî óØ ØÚ Ü¥ à· ç« ÷¼ Ù¨ ¿ë Øá Û¦ ßà "
Hstr(10) = Hstr(10) & "áö ä« ëÚ ÷Å Ú² Ú¿ Ú÷ ÛÛ ÞÅ ßÑ æþ êÜ Ø¸ ØÑ Ùç Úó ÝÞ Þñ à à° "
Hstr(10) = Hstr(10) & "㦠㴠åÓ êÒ î¥ ñù òñ óñ õÍ ã§ ãÍ çû ï¿ õ« öï ÷Õ èé òÒ "
Hstr(11) = "ØÝ åå ê¹ íÇ ðø áÁ áâ äµ äþ êã íù ïª ñ® ô¥ á° äí é ìµ î½ ïç ñÜ "
Hstr(11) = Hstr(11) & "ݹ Ýõ ॠãÏ ï¶ ïü òë ÁÊ ßë áÀ èá îî ï© ðì ñì õ² Øì ß· ãî ÷¦ "
Hstr(11) = Hstr(11) & "Ùú Ú³ àÏ æÐ çÐ éÛ ñç õª ܨ 㶠ت Ù³ Ùµ Ûª ÛÞ Ü ݰ Ýñ Þ¼ ß¿ "
Hstr(11) = Hstr(11) & "ঠଠáû 㦠äà å¢ åÎ æ² æË æê çÊ èÀ èÝ éö ìå íÂ îº î¾ ï® ð¿ "
Hstr(11) = Hstr(11) & "ðÝ ðß òà òÛ ó» óÒ óö ôÏ õ· õÈ ö¨ öâ ÷¯ ÷ó Ýü ÞÆ äò å¥ çö é¬ "
Hstr(11) = Hstr(11) & "éç ì¡ ñÍ ñÏ ó¹ öã Á¢ °¸ Ü® ݹ é£ õÔ ö¦ ÷Ë Þ¤ ÞÍ àÚ â² å¼ çÔ "
Hstr(11) = Hstr(11) & "îÉ ðÓ Ùý Ûø Þæ ßÖ ä£ ôó õñ ÷à Ýþ ßø á× âÞ ãÁ åà éÝ ê¥ ì¢ î¬ "
Hstr(11) = Hstr(11) & "ôÔ õï Û¹ Üß ßÊ àò ãö ç± èÚ èù ê² ñö òÈ ôá öì ä¯ åÞ æò ç¸ ì¼ "
Hstr(11) = Hstr(11) & "ìÖ ï³ ïÖ ðÒ öÌ Ü× ãñ çç èÐ ëÊ íà ñª ÙÍ Ýä චáÐ ïÎ ðü ñï ò÷ "
Hstr(11) = Hstr(11) & "÷à Ûä Þ¤ ߣ àà ãÌ ãò äË äõ åÖ è´ èÓ éµ éÖ éñ éû ê¤ ëª ëÍ ëö "
Hstr(11) = Hstr(11) & "ïå ïù ðµ ðØ ñÚ óü ôµ öÔ ÂÎ ÂÏ ÂÐ Ùõ æ® èï ð½ öÇ ï² àð ÙÀ Ùù "
Hstr(11) = Hstr(11) & "Üý ÞÛ Þû ⤠ãø äð çó é¡ ëá íÑ ïÝ ñ§ öà "
Hstr(12) = "ßé áï æÖ è¿ ó¡ Û½ ݤ ö² ܬ ᣠçÏ ì× ïÜ ò© òý ÷© ÷´ Úø äÝ íË òþ "
Hstr(12) = Hstr(12) & "Ùó Üâ á¹ ã÷ è£ êÄ êó ë£ ì¸ í® î¦ ó± ÷Ö ÷á Ý® áÒ â ä¼ äØ é¹ "
Hstr(12) = Hstr(12) & "ïÑ ðÌ ñÇ ÷È ÞÑ ìË í¯ îÍ Û Ýù Þ« ã ëü íæ òµ òì ó· ô» ô¿ Ø "
Hstr(12) = Hstr(12) & "Ú× Þ ßä à× â¨ ãè åµ åô ëß ìò ôÍ ôé ÷ã ÷ç ãæ äÅ äÏ ëï íí ß÷ "
Hstr(12) = Hstr(12) & "åã ç¿ çÑ èÂ íµ íð ðÅ Ø¿ ßã óº óú Üå ẠãÉ ãý çÅ çä çë íª ö¼ "
Hstr(12) = Hstr(12) & "÷ª Ú¤ Üø äé êÔ î¨ õ¤ ÚÓ ÜÔ Ýë âÉ æÆ éâ ïÒ ï÷ ñ¢ ñò õö õø Ù° "
Hstr(12) = Hstr(12) & "ßè çÑ íø òÖ òú öÊ Øï Ûé ÜÙ ãå ë¤ îâ "
Hstr(13) = "Þà ëÇ ïÕ ñÄ Ø¾ ܵ ÝÁ èÍ à« àî àï éª ëî òï ôö ß àì âÎ êÙ Ø« Ûñ ßÎ â® "
Hstr(13) = Hstr(13) & "è§ íÐ îó òÍ Ú« í¥ Ù£ Ûè ⥠âõ êÇ ì» ìò í« íþ îê öò Ø¥ Ûþ éý "
Hstr(13) = Hstr(13) & "ð¤ öÓ öó Üà æÕ ëå ôÁ Ø¿ Úí ÞÁ à¿ ò¨ ô« õæ Øú ÜÑ ßÌ å¸ ñ÷ ÞÖ "
Hstr(13) = Hstr(13) & "áð âî æ¤ Ù¯ ßæ ññ åó æÀ æÛ æå í¤ îÏ ô¬ ÙÐ Þù ßö ï» "
Hstr(14) = "Ú© âæ ê± ñî "
Hstr(15) = "Ýâ èË îÙ óá Ù½ Ýå ÞÕ ãÝ ãú ñÈ ñá ó´ õç áÝ äè åÌ ó¦ ÞË áó âÒ ëã ðå àÎ "
Hstr(15) = Hstr(15) & "àú ì· ï õ¬ ö¬ äÔ Ü¡ àØ âñ ó² ا Øò Úé Úð Úü Û¯ ÛÜ Ûý ܱ ÜÅ "
Hstr(15) = Hstr(15) & "ߨ ßÁ àè âÏ äÄ æÇ ç¢ èÁ ê¶ î¢ î¼ îë ñ± ñÔ ñâ ò· òç õù ÚÒ æé "
Hstr(15) = Hstr(15) & "ç êú ëÝ ôæ õä Øâ ݳ àÑ æÎ æô çÎ éè î© óª ÜÖ ë æ° æÉ é¯ êò "
Hstr(15) = Hstr(15) & "ò Ù· æ³ öÒ ØÏ Úé Û¶ ãø çê ê· îÇ îÞ îà ð« óÍ Ùö Þå Ùé àÛ äß "
Hstr(15) = Hstr(15) & "å§ è± ë« ïä ïè õë "
Hstr(16) = "ؽ ØÁ Ù¹ Ûß Ü» ÜÎ Üù ݽ Ý ÝÝ Þ àÒ á¨ áª á« ãà ä¿ æë ç² ç÷ çù è½ èç "
Hstr(16) = Hstr(16) & "éÊ êÈ ì¥ ì÷ í¬ íÓ ñý òÓ òà ôë ôì õè ÷¢ ÷è ÝÖ ñÊ ÷Ä Ù» ÙÝ Úä "
Hstr(16) = Hstr(16) & "Ü· ÜÍ Üç Ý¡ Þç á© ã¥ ã» å¹ åº å½ ç× èý êù ëÉ í© îÔ ò¯ óè óé "
Hstr(16) = Hstr(16) & "ãÞ æÍ éÉ ê¨ ìÁ ïº ïÏ ïê ñß òÞ ôÇ õÄ Øä Ú½ ÚÛ Üñ ὠ㸠㾠çØ "
Hstr(16) = Hstr(16) & "éÔ íÍ õÎ ÷³ Û§ ã« ã» æª êü ïÆ óæ ÜË Þì ßÄ àº àß âÛ äÚ éÕ ï· "
Hstr(16) = Hstr(16) & "ñæ ñû òû ôÀ ÜÜ àõ éÑ íà òß óÀ óä ôì ö¥ öë ÷ô Úö Üä ñ· òË óÌ "
Hstr(16) = Hstr(16) & "õ¼ öÆ Ù´ ÛÏ áì äÐ åÏ åÙ é± êä ò° òÇ òø ôà ôÜ öú ÷ü Ú° Û¾ ÜÄ "
Hstr(16) = Hstr(16) & "Þ¡ Þ¾ á« áé ãÖ è³ êï ë¬ ëÔ ìî íá ð¶ ñ³ òÐ ó½ ôð öÄ ÷ñ Ú¹ Üõ "
Hstr(16) = Hstr(16) & "ãª ç¹ éú î° îý òé óÜ ÷Ü ã× ãÚ í¨ åÒ "
Hstr(17) = "ÜÛ òÅ ÷× ìü ð¦ Üé æ¬ èã Øð Üó ÝØ â¿ éí áÉ áõ éÅ ëÀ òî ôÛ õå ÷· Ýê Þ¸ "
Hstr(17) = Hstr(17) & "àé ä² äá å¦ çÈ ï¨ ñà ò¬ ëà ÜÇ Þ¨ èÄ î£ ò¸ Ù¼ "
Hstr(18) = "ئ Øí êý ëÛ ìª àç âÌ ë§ ôÖ íß òª Ü£ çÒ çØ ëý ðþ öþ ØÄ ï¤ ßþ àÄ êý ì¦ "
Hstr(18) = Hstr(18) & "ï¡ ðð ôÄ ö® öè Øß Ú¨ Û· Ûï ÜÏ äú æ© æÓ æó ëþ ìø îÌ ðÞ óµ ô® "
Hstr(18) = Hstr(18) & "õÇ ÷ Ûð ç´ éä ìØ õü Û¿ Üæ äû è¼ òÙ óâ ô¹ Éå ØÇ ÙÜ ß¡ ⦠äÜ "
Hstr(18) = Hstr(18) & "ì¨ î´ ÷ê Ú· ÚÅ Ý· ÝØ ßÓ äÉ é© ëÏ ïò ò× áÓ äÅ êÉ íò óÏ ÊÈ ÊÉ "
Hstr(18) = Hstr(18) & "ÊË ÊÌ ÊÑ ÚÖ Ûõ ݪ Ýé ß± éø êÛ ì îæ ó§ ó óß õ§ õ¹ öå öõ á÷ "
Hstr(18) = Hstr(18) & "ç· ô¼ Êò Ù¿ ÛÓ ÝÄ Þó ãð äø æ ç£ ë¨ ëò ì¯ ïø ৠó° ãÅ äÌ ãñ "
Hstr(18) = Hstr(18) & "æ× Ýô Þ÷ åù éà îå Ëà ËÅ ËÈ ØË Ù¹ Ùî ÛÌ ßÐ ãá ãô äù æ¦ æá çÁ "
Hstr(18) = Hstr(18) & "ìë ïÈ ð¸ ñê òÏ óÓ ËË ËÏ ËÐ Ú¡ Ý¿ á áÔ âì 㤠äÁ ñµ Þ´ ಠàÕ "
Hstr(18) = Hstr(18) & "âÈ äÑ ì¬ î¤ ïË òô Ùí ÚÕ Ýø à¼ ãº ä³ óù ö¢ öÕ Ëâ â¡ Ëå Ëç Ëè "
Hstr(18) = Hstr(18) & "Ëì Ëí Ëî ÚÇ Ý´ å¡ åä ìÝ íõ î¡ Ý¥ áø â¸ é¾ öÀ Ëò àÊ æ¶ èø êý íü ôÈ "
Hstr(19) = "Ì¡ Ì¢ Ì£ ÍØ àª ãË äâ äð åÝ é½ í³ îè õÁ ÷£ ̦ ̪ Ì Û¢ Þ· ß¾ ææ ëÄ ìÆ "
Hstr(19) = Hstr(19) & "îÑ õÌ öØ Ì´ ̵ ̶ Ì· ̺ Ì» ̾ Û° å£ ê¼ ìþ îã ïÄ ïâ ÙÎ àû äç "
Hstr(19) = Hstr(19) & "è© éÌ ï¦ ïÛ ñí ó¥ ó« ôÊ õ± Ø» ßû ä¬ èº ìâ ÷Ò ß¯ ìý í« ï« ÌÙ "
Hstr(19) = Hstr(19) & "ÌÜ ëø Ìà Ìã Ìä Ìç Ìé Ìê Ìë Ùà Üè ã© åÑ ç° ç¾ ðà ñÓ õ® Ìò Ìñ "
Hstr(19) = Hstr(19) & "Ìó ÞÝ ãà ãÙ éå î± Ù¬ Üæ ìö ñ» òè óÔ ôÐ ö¶ öæ ÷Ø ÝÆ ÷Ñ Ìþ Í¡ "
Hstr(19) = Hstr(19) & "ͤ ͧ Üð Ýã æà èè î® îú òÑ öª ¶± ¶² Í© ͪ Í« Í® ͱ Ù¡ ÙÚ Ûí "
Hstr(19) = Hstr(19) & "Üí àÌ á¼ âú äü íÅ î× ÷» Ü¢ ݱ ÝË îÊ õ© ÞÒ åè î¶ ÍÉ ß¯ ìÕ â½ "
Hstr(19) = Hstr(19) & "êÕ ëà ر Ù¢ Ûç âÕ ãû èØ èÞ éÒ íÈ îè óê õ¢ õÉ ö¾ "
Hstr(20) = "Øô æ´ ëð Íé Íî Íï Íð Íñ Íó Øà ܹ ݸ ÝÒ æý çº çþ ëä îµ òê Øè ÞÌ ã¯ éþ "
Hstr(20) = Hstr(20) & "÷Í Úà Úñ Úó Û× ÝÚ Þ± àø á¡ áË áÍ â« â¬ ãÇ ãí ä¢ ä¶ åÔ æ¸ çâ "
Hstr(20) = Hstr(20) & "è¸ ê¦ ì¿ ìÐ ðô ôº öÛ ÎÉ ØØ ãÓ ãë è· ö© Ýî Þ³ ÎÓ ÙÁ Ý« ภᢠ"
Hstr(20) = Hstr(20) & "ä× ë¿ íÒ ö» Ø£ Øõ Úã Úù ÛØ ÜÌ ßí âÐ âä âè ä´ å» åà åü æÄ æð "
Hstr(20) = Hstr(20) & "è» êõ ìÉ ðÄ ðÍ ðí òÚ öÈ ÷ù "
Hstr(21) = "ÙÒ Ùâ Úô Û Üç ݾ Ýß Ýû ÞÉ ßñ áã â¾ ãÒ ä» äÀ åï çô éØ êØ êê ì¤ ì¨ ìä "
Hstr(21) = Hstr(21) & "ìù ìû ðª ñ¶ ñÓ òá ó£ ó¬ ôª ô¸ ôË ôÑ ôâ õµ õè ÷û ßÈ áò åÚ è¦ "
Hstr(21) = Hstr(21) & "èÔ íÌ ðý óÁ ÷ï Ùþ ÜÈ Ý² Þº á áý åß æµ ë¯ ìÞ ìì ð ðï ò¹ óÚ "
Hstr(21) = Hstr(21) & "ôÌ õ£ õÐ õÑ ö± ܼ ÝÙ âà âÔ æø ç½ ó öß ÷Ï ßØ áÅ äì åÐ æç ç¯ "
Hstr(21) = Hstr(21) & "èÉ èÕ òÙ óã óï ÷Ì ÙÉ Ùô ÛÄ ÛÆ Þ¯ ߢ â³ âÝ äÍ å¬ åâ ç¥ çÓ é¿ "
Hstr(21) = Hstr(21) & "éÇ ò¡ õó Ðà ÐÆ Ø¶ Ü° ê¿ ì§ ïâ öÎ Úê Üô Üþ ß© ⼠㬠íÊ Üº ßÝ "
Hstr(21) = Hstr(21) & "ᶠâÊ âÓ äå ð¼ õ÷ ÷Û Ú¼ Ûà Û× Þ£ äª ä° äÓ çï èò ìã í¹ íì ñã "
Hstr(21) = Hstr(21) & "ôÚ õ¯ ÙØ ÚÎ Ýæ Þï ãù äÖ äö è¯ é¸ êÑ ìÅ ìÓ íÛ îç ïà ðç Ѧ ÚÊ "
Hstr(21) = Hstr(21) & "àå í´ õ½ ÷¨ ¿£ Ùã Û¨ Û÷ Ü÷ Þ¦ â´ âþ ä ä± êÖ ñ¿ õ¸ öà "
Hstr(22) = "Ûë Þë ᬠåÂ æ« çð èâ ë² í¼ íý ðé ØÉ ØÍ Øß Ù² ÙÈ Ùð ÚÝ Úç Û± Û³ ܾ ÝÎ "
Hstr(22) = Hstr(22) & "áà âû ãÆ ãÕ äÎ äÙ åû æÌ çü éÜ êÌ ëÙ ëç ìÍ î» óÛ õ¦ ÷Ê ÷Ð ÷ú "
Hstr(22) = Hstr(22) & "Ññ ì¾ ìÈ í¦ òÕ Ò¨ Ô¿ ز س ߺ áÊ áæ çÛ çò èà é÷ ê× ëÈ ï¢ ðÎ "
Hstr(22) = Hstr(22) & "ñº ôí ÷¥ Ò Ò® Ò´ Ò· Ò¸ ק ØÌ ÚË Úþ ÞÞ êÊ ìÇ îô Ò¿ Òî Òï Ø× "
Hstr(22) = Hstr(22) & "Øæ Øî Øý Ù« Ú± ÛÝ Ûü ܲ ÜÓ Üè Þ² ÞÄ ÞÈ ÞÚ ß® ß½ ß× ßÞ àÉ àæ "
Hstr(22) = Hstr(22) & "á» áÚ â¢ â âø âù 㨠éì éó êÝ ì¥ ì½ ìÚ íô îÆ ï× ïî ðê ðù ñ¯ "
Hstr(22) = Hstr(22) & "ñ´ òæ ô¯ ôà ôè ôý ÷ð Ø· Û´ Ûß Ûó ܧ Üá ßÅ à³ áþ â¹ ä¦ äÎ ë³ "
Hstr(22) = Hstr(22) & "î÷ ñ« ñ¿ ò¾ ö¯ ö¸ Ùø Û« Üã Üþ ݺ ÝÓ Ýö Þü àÓ âß äÞ äë å çø "
Hstr(22) = Hstr(22) & "è¬ éº ëô ðÐ ñ¨ ò£ ó¿ Ó· Ó¸ Óº Ó» Ó½ Ó¾ ÓÁ Ù¸ ÛÕ Ü à¯ ã¼ çß "
Hstr(22) = Hstr(22) & "ïÞ ð® ÷« ÷Ó ÓÔ ØÕ Øü Ù§ ݬ ݯ ݵ ÞÌ ßÏ àó å¶ èÖ éà ë» îð ðà "
Hstr(22) = Hstr(22) & "òÄ òÊ òö òø ôí öÏ ÷î ÷ø Ø® ع Øñ Ù¶ ÚÄ ÚÍ ÝÇ ÝÒ Ý÷ Þí àô àö "
Hstr(22) = Hstr(22) & "áÎ áü âÀ âÅ â× ãÐ å÷ åý æ¥ æú è¤ êÅ êì ëé ëò ì£ ì¶ ìÏ ìÙ ìÛ "
Hstr(22) = Hstr(22) & "í² îÚ ðÁ ðÖ ðõ ðö ñ¾ ñÁ òâ òõ óÄ ô§ ô¨ ö§ ö¹ Ûù Ü« ܾ Þò à÷ "
Hstr(22) = Hstr(22) & "ãä æÂ è¥ éÚ ë¼ íó ð° ó¢ óî ö½ Ùß å® èÝ éÐ ë¾ îá ÔÇ ÔÉ ÔÌ ÔÍ "
Hstr(22) = Hstr(22) & "ÔÎ ÔÏ Û© Ü¿ áñ ã¢ ã³ ç¡ è¹ éæ êÀ ëµ ìÙ "
Hstr(23) = "ßÆ çÞ ÞÙ è¶ êà ô¢ ôØ ôõ öÉ ÞÊ æà ê° ßð ØÆ ØÓ ßõ àý åÅ ê¾ óÐ óå ô· ÚÚ "
Hstr(23) = Hstr(23) & "çÕ êµ îÀ ï Þê ߸ ßî à© é« íÄ ðä òÆ ÷þ íÎ ñ© ÚÞ Þø ì¹ ÕÎ Øë "
Hstr(23) = Hstr(23) & "Ûµ ᤠáÖ â¯ æÑ è° ó¯ ÕØ Ú¯ ßú èþ îÈ óÉ Õà Õá ÚØ ß¡ èÏ éü íÝ "
Hstr(23) = Hstr(23) & "ðÑ ñÞ òØ ô÷ Õç Õè Õé Õê Õì Õí Õî ÛÚ Ýè ä¥ äÚ çÇ èå é© é» éô "
Hstr(23) = Hstr(23) & "êâ ëÓ ëÞ ìõ î³ ð¡ ð² óð Ö¡ Úº á¿ áç îÛ Ø´ Úì Û¤ Ûú ÜÆ Þý àù "
Hstr(23) = Hstr(23) & "áç âå åé åë æï èÎ è× èÙ èä éò éù êÞ ëÕ ëù ìí ìó íé ïô ðº ðë "
Hstr(23) = Hstr(23) & "òÎ ôê õ¥ õÅ õÙ õÜ õô ö£ Ú£ âì ïñ ó® ô± õà ݧ ßú æ¨ æû ç§ ëÐ "
Hstr(23) = Hstr(23) & "íØ ô¦ ôí ôü Øù Ùª Û¥ Üï ä¨ ä¾ äó èÌ éÆ éÍ ìÄ îù ðæ ðñ ñÒ óà "
Hstr(23) = Hstr(23) & "óç ô¶ ôã õî ÷æ ÎÎ Ò· ק × ßù âÍ ãç ò§ Ù× ÞÊ æí çÄ Ù¾ Ú ߪ "
Hstr(23) = Hstr(23) & "ä· äÃ åª èþ ìÌ ìú í½ ïí Üë ßÚ áÑ æ¢ æÜ ç» è÷ ê¢ êß í§ íö ïÅ "
Hstr(23) = Hstr(23) & "ïö ñè óÊ ôÒ ôô õþ ö¤ ö· öö ÷Ú ÙÌ èÈ ëê ôÕ ÚÁ Úî Û¸ æã öí ×ç "
Hstr(23) = Hstr(23) & "ÙÞ ÝÏ ïß ß¬ çÚ õò Þ© ߤ é× ÷® ×õ Úè ßò àÜ âô ëÑ ìñ óÐ "
j = 1
i = Len(tmpStr)
Dim IsNotFoundInEr As Boolean
While (j <= i)
If InStr(1, CString, Mid(tmpStr, j, 1), vbTextCompare) > 0 Then 'Èç¹ûenglish
Py = Py & Mid(tmpStr, j, 1)
'j = j + 1
Else 'chinese
HZ = Mid(tmpStr, j, 1)
Py1 = GetPy1(HZ)
If Py1 <> Empty Then 'yi ji han zi
Py = Py & Py1
Else 'er ji han zi
IsNotFoundInEr = True
For k = 1 To 23
If InStr(1, Hstr(k), HZ, vbTextCompare) > 0 Then
Py = Py & Zm(k)
IsNotFoundInEr = False
Exit For
End If
Next
If IsNotFoundInEr Then Py = Py & "!"
End If
'j = j + 1
End If
j = j + 1
Wend
GetPy2 = Py
End Function