getpy.prg

这是我给某个单位上编制的

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: GETPY.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE getpy
 PARAMETER CHNSTR
 LOCAL PYTABLE
 PYTABLE =  ;
      'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' + 'aaaabbbbbbbbbbbbbbbbbbbbbbbbbbbb' +  ;
'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb' + 'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb' +  ;
'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb' + 'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb' +  ;
'bbbbbbbbbbbbbbbbbbbbbbbbbbbbcccc' + 'cccccccccccccccccccccccccccccccc' +  ;
'cccccccccccccccccccccccccccccccc' + 'cccccccccccccccccccccccccccccccc' +  ;
'cccccccccccccccccccccccccccccccc' + 'cccccccccccccccccccccccccccccccc' +  ;
'cccccccccccccccccccccccccccccccc' + 'cccccccccccccccccccccccccccccccc' +  ;
'cccccddddddddddddddddddddddddddd' + 'dddddddddddddddddddddddddddddddd' +  ;
'dddddddddddddddddddddddddddddddd' + 'dddddddddddddddddddddddddddddddd' +  ;
'dddddddddddddddddddddddddddddddd' + 'dddddddddddddddddddddddddddddeee' +  ;
'eeeeeeeeeeeeeeeeeeefffffffffffff' + 'ffffffffffffffffffffffffffffffff' +  ;
'ffffffffffffffffffffffffffffffff' + 'ffffffffffffffffffffffffffffffff' +  ;
'ffffffffffffffffgggggggggggggggg' + 'gggggggggggggggggggggggggggggggg' +  ;
'gggggggggggggggggggggggggggggggg' + 'gggggggggggggggggggggggggggggggg' + 'gggggggggggggggggggggggggggggggg' +  ;
'ggggggggggghhhhhhhhhhhhhhhhhhhhh' + 'hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh' +  ;
'hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh' + 'hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh' +  ;
'hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh' + 'hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh' +  ;
'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' + 'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' +  ;
'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' + 'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' +  ;
'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' + 'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' +  ;
'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' + 'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' +  ;
'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj' + 'jjjjjjjkkkkkkkkkkkkkkkkkkkkkkkkk' +  ;
'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk' + 'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk' +  ;
'kkkkkkkkkkklllllllllllllllllllll' + 'llllllllllllllllllllllllllllllll' +  ;
'llllllllllllllllllllllllllllllll' + 'llllllllllllllllllllllllllllllll' +  ;
'llllllllllllllllllllllllllllllll' + 'llllllllllllllllllllllllllllllll' +  ;
'llllllllllllllllllllllllllllllll' + 'llllllllllllllllllllllllllllllll' +  ;
'lllmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' + 'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' +  ;
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' + 'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' +  ;
'mmmmmmmmmmmmmmmmmmmmmmmmmmnnnnnn' + 'nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn' +  ;
'nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn' + 'nnnnnnnnnnnooooooooppppppppppppp' +  ;
'pppppppppppppppppppppppppppppppp' + 'pppppppppppppppppppppppppppppppp' + 'pppppppppppppppppppppppppppppppp' +  ;
'pppppppppppppqqqqqqqqqqqqqqqqqqq' + 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq' +  ;
'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq' + 'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq' +  ;
'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq' + 'qqqqqqqqqqrrrrrrrrrrrrrrrrrrrrrr' +  ;
'rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr' + 'rrrrrsssssssssssssssssssssssssss' +  ;
'ssssssssssssssssssssssssssssssss' + 'ssssssssssssssssssssssssssssssss' +  ;
'ssssssssssssssssssssssssssssssss' + 'ssssssssssssssssssssssssssssssss' +  ;
'ssssssssssssssssssssssssssssssss' + 'ssssssssssssssssssssssssssssssss' +  ;
'ssssssssssssssssssssssssssssssss' + 'ssssssssssssssssssssssssssssssss' +  ;
'sssttttttttttttttttttttttttttttt' + 'tttttttttttttttttttttttttttttttt' +  ;
'tttttttttttttttttttttttttttttttt' + 'tttttttttttttttttttttttttttttttt' +  ;
'tttttttttttttttttttttttttttttttw' + 'wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww' +  ;
'wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww' + 'wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww' +  ;
'wwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxx' + 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' +  ;
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' + 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' +  ;
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' + 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' +  ;
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' + 'xxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyy' +  ;
'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' + 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' +  ;
'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' + 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' +  ;
'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' + 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' + 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' +  ;
'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' + 'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy' +  ;
'yyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzz' + 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' +  ;
'zzzzzzzznzzzzzzzzzzzzzzzzzzzzzzz' + 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' +  ;
'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' + 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' +  ;
'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' + 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' +  ;
'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' + 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz' +  ;
'zzzzzzzzzzz{{{{{cjwgnspgcgne{y{b' + 'tyyzdxykygt{jnnjqmbsgzscyjsyy{pg' +  ;
'kbzgy{ywykgkljswkpjqhy{w{dzlsgmr' + 'ypywwcckznkyygttnjjeykkzytcjnmcy' +  ;
'lqlypyqfqrpzslwbtgkjfyxjwzltbncx' + 'jjjjzxdttsqzycdxxhgck{phffss{ybg' +  ;
'mxlpbyll{hlxs{zm{jhsojnghdzqyklg' + 'jhxgqzhxqgkezzwyscscjxyeyxadzpmd' +  ;
'ssmzjzqjyzc{j{wqjbdzbxgznzcpwhkx' + 'hqkmwfbpbydtjzzkqhylygxfptyjyyzp' +  ;
'szlfchmqshgmxxsxj{{dcsbbqbefsjyh' + 'xwgzkpylqbgldlcctnmayddkssngycsg' +  ;
'xlyzaybnptsdkdylhgymylcxpy{jndqj' + 'wxqxfyyfjlejpzrxccqwqqsbzkymgplb' +  ;
'mjrqcflnymyqmsqyrbcjthztqfrxqhxm' + 'jjcjlxxgjmshzkbswyemyltxfsydsgly' +  ;
'cjqxsjnqbsctyhbftdcyzdjwyghqfrxw' + 'ckqkxebptlpxjzsrmebwhjlbjslyysmd' +  ;
'xlclqkxlhxjrzjmfqhxhwywsbhtrxxgl' + 'hqhfnm{ykldyxzpwlgg{mtcfpajjzylj' +  ;
'tyanjgbjplqgdzyqyaxbkysecjsznsly' + 'zhzxlzcghpxzhznytdsbcjkdlzayfmyd' +  ;
'lebbgqyzkxgldndnyskjshdlyxbcghxy' + 'pkdqmmzngmmclgwzszxzjfznmlzzthcs' + 'ydbdllscddnlkjykjsycjlkohqasdknh' +  ;
'csganhdaashtcplcpqybsdmpjlpzjoql' + 'cdhjjysprchn{nnlhlyyqyhwzptczgww' +  ;
'mzffjqqqqyxaclbhkdjxdgmmydjxzlls' + 'ygxgkjrywzwyclzmssjzldbydcpcxyhl' +  ;
'xchyzjq{{qagmnyxpfrkssbjlyxysygl' + 'nscmhswwmnzjjlxxhchsy{{ctxrycyxb' +  ;
'yhcsmxjsznpwgpxxtaybgajcxly{dccw' + 'zocwkccsbnhcpdyznfcyytyckxkybsqk' +  ;
'kytqqxfcwchcykelzqbsqyjqcclmthsy' + 'whmktlkjlycxwhyqqhtqh{pq{qscfymm' +  ;
'dmgbwhwlgsllysdlmlxpthmjhwljzyhz' + 'jxhtxjlhxrswlwzjcbxmhzqxsdzpmgfc' +  ;
'sglsxymqshxpjxwmyqksmyplrthbxftp' + 'mhyxlchlhlzylxgsssstclsltclrpbhz' +  ;
'hxyyfhb{gdmycnqqwlqhjj{ywjzyejjd' + 'hpblqxtqkwhlchqxagtlxljxmsl{htzk' +  ;
'zjecxjcjnmfby{sfywybjzgnysdzsqyr' + 'sljpclpwxsdwejbjcbcnaytwgmpabcly' +  ;
'qpclzxsbnmsggfnzjjbzsfzyndxhplqk' + 'zczwalsbccjx{yzhwkypsgxfzfcdkhjg' +  ;
'xdlqfsgdslqwzkxtmhsbgzmjzrglyjbp' + 'mlmsxlzjqshzyj{zydjwbmjklddpmjeg' +  ;
'xyhylxhlqyqhkycwcjmyyxnatjhyccxz' + 'pcqlbzwwytwbqcmlpmyrjcccxfpznzzl' +  ;
'jplxxyztzlgdldcklyrzzgqtgjhhgjlj' + 'axfgfjzslcfdqzlclgjdjcsnclljpjqd' +  ;
'cclcjxmyzftsxgcgsbrzxjqqctzhgyqt' + 'jqqlzxjylylbcyamcstylpdjbyregkjz' +  ;
'yzhlyszqlznwczcllwjqjjjkdgjzolbb' + 'zppglghtgzxyghzmycnqsycyhbhgxkam' +  ;
'txyxnbskyzzgjzlqjdfcjxdygjqjjpmg' + 'wgjjjpkqsbgbmmcjssclpqpdxcdyyky{' +  ;
'cjddyygywrhjrtgznyqldkljszzgzqzj' + 'gdykshpzmtlcpwnjafyzdjcnmwescygl' +  ;
'btzcgmssllyxqsxsbsjsbbsgghfjlypm' + 'zjnlyywdqshzxtyywhmzyhywdbxbtlms' +  ;
'yyyfsxjc{txxlhjhf{sxzqhfzmzcztqc' + 'xzxrttdjhnnyzqqmnqdmmg{ytxmjgdhc' + 'dyzbffallztdltfxmxqzdngwqdbdczjd' +  ;
'xbzgsqqddjcmbkzffxmkdmdsyyszcmlj' + 'dsynsprskmkmpcklgdbqtfzswtfgglyp' +  ;
'lljzhgj{gypzltcsmcnbtjbqfkthbyzg' + 'kpbbymtdssxtbnpdkleycjnyddykztdh' +  ;
'qhsdzsctarlltkzlgecllkjlqjaqnbdk' + 'kghpjtzqksecshalqfmmgjnlyjbbtmly' +  ;
'zxdcjpldlpcqdhzycbzsczbzmsljflkr' + 'zjsnfrgjhxpdhyjybzgdljcsezgxlblh' +  ;
'yxtwmabchecmwyjyzlljjyhlg{djlsly' + 'gkdzpzxjyyzlwcxszfgwyydlyhcljscm' +  ;
'bjhblyzlycblydpdqysxqzbytdkyyjy{' + 'cnrjmpdjgklcljbctbjddbblblczqrpp' +  ;
'xjcglzcshltoljnmdddlngkaqhqhjhyk' + 'heznmshrp{qqjchgmfprxhjgdychghly' +  ;
'rzqlcyqjnzsqtkqjymszswlcfqqqxyfg' + 'gyptqwlmcrnfkkfsyylqbmqammmyxctp' +  ;
'shcptxxzzsmphpshmclmldqfyqxszyjd' + 'jjzzhqpdszglstjbckbxyqzjsgpsxqzq' +  ;
'zrqtbdkyxzkhhgflbcsmdldgdzdblzyy' + 'cxnncsybzbfglzzxswmsccmqnjqsbdqs' +  ;
'jtxxmbltxzclzshzcxrqjgjylxzfjphy' + '{zqqydfqjjlzznzjcdgzygctxmzysctl' +  ;
'kphtxhtlbjxjlxscdqxcbbtjfqzfsltj' + 'btkqbxxjjljchczdbzjdczjdcprnpqcj' +  ;
'pfczlclzxzdmxmphjsgzgszzqlylwtjp' + 'fsyaxmcjbtzyycwmytcsjjlqcqlwzmal' +  ;
'bxyfbpnlsfhtgjwejjxxglljstgshjql' + 'zfkcgnndszfdeqfhbsaqtgylbxmmygsz' +  ;
'ldydqmjjrgbjtkgdhgkblqkbdmbylxwc' + 'xyttybkmrtjzxqjbhlmhmjjzmqasldcy' + 'xy??????????????'
 STRR = CHNSTR
 PYI = 1
 PY = ''
 LENGTH = LEN(STRR)
 DO WHILE PYI <= LENGTH
    CH1 = SUBSTR(STRR,PYI,1)
    PYI = PYI + 1
    IF ASC(CH1) >= 176 AND PYI <= LENGTH
       CH2 = SUBSTR(STRR,PYI,1)
       PYI = PYI + 1
       NO = (ASC(CH1) - 176) * 94 + (ASC(CH2) - 160)
       PY = PY + SUBSTR(PYTABLE,NO,1)
    ELSE 
       IF ASC(CH1) > 32 AND ASC(CH1) <= 126
          IF CH1 >= 'A' AND CH1 <= 'Z'
             CH1 = CHR(ASC(CH1) + 32)
          ENDIF 
       ENDIF 
       PY = PY + CH1
    ENDIF 
 ENDDO 
 RETURN (RTRIM(PY))
ENDPROC
*------*