//==============================================================================
//function: f_getpywb ()
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//description:
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//parameters:
//string inputstring
//string pywb
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//the return value: a string
//==============================================================================
STRING LETTER, LETTER1 THISLETTER, HZ, PYSTRING
INTEGER LETTERLEN, I
LONG've
THISLETTER=TRIM (INPUTSTRING)
LETTERLEN=LEN (THISLETTER)
PYSTRING=""
CHOOSE a CASE upper (pywb)
CASE 'x'
LETTER='ysx mcsdqlybjjjgczbdfyawj yhcywgj dsn xy sng lggllyj z yssgyqyd xjyydldwj wbbft xdhgbczsrfmjwyfcwdzpyddwylfaypdftzyjqxxzxnnxxzqbpysyzgmzbqbzcyzbxqsbhgxefmbhhgqcxstglygymxalelccxzrjsdnjjtzzcljdtstbnxtyxxgkwyflhyqspxmxxdjzlshxjbcfybyxhczbjyzlwlcz gtsmdzxpqglsjfzzlslhdzbwjncjysqycjrzcwybtyfdwecskdcbyhyzqyyxzcfbzmjyxxcdcztbzjwszsxyrnygmdthjxsjjccsbxyytsyfbxzgclczzbscyzqscjzqydxlbbjllmqxtydzsqjtzplcgqdzwjbhctdyfxyelbgxxmyjjqfzasyjncydk jcjszcbatcclyjqmwnqncllkbybzzsyhjqltwlccxthllzntylnzxddtceejys sd hwnly t jymrymcjgjmzgxykymsmjkmfxmtghpfmqjsmtgjqdgyalcmzsdjlxdffjczfmzffkgpkhrcjqcjdwjlfqdmlzbjjscgckdejcjdlzyckccclfcq czgbdldjjyhddwgsjdaccctllpskghzzljlgjgjjtjjjzczmlzyjklzyzmljkywxmkjlkjgmclykjqlblkmdxwyxysllpsjjjqxyjfjdjdmxxllcxqyjb bggypjyggdjgnjyjkhqfqzkhyghdkllsdjjxeyqxnzsxwwxdjlgxxjaqscsqkjex yzhydz p qyzmtstzfcyldjagylallyyygmqq ldhcssadsgbrlyjsjwrcgqc hmmxjdyohycqgbehwnjdogjlgwqwjycstwesjpwmrdsztxyqpzhyhykhtpbfyhtdwzbtxhqexzxxkhtexwltxymnx hykpmzhxlblbmlsfhyyggbhyjt'
LETTER=LETTER+'fhbxqbjjzjqtyzkxbyqxbjxshztsfglxmxzxfghkzssggylclsarjyhslllmzxelgl xdjtbgyzbpktzhkzjyqsbctwwqjpjwxhgaqtgylbxmmygszldydqmjjrgbjtkgdhgkblqkbdmbylxwcxyttybkmrtjzxqjbhlmhmjjzmqasldcyxyqdlqcafywyxqhzgnyfljbyfdjfrgsfmbyzhqfbwj yfaggphzbyyzffwodgrlbftwlbzgycgxcdj ygzyyyytytydwegazahxj zyyhlrmgrxx'+space(93)+'dclhneljjthtbwjybjjbxjjtjteekhwsljplpsfazpqqbdlqjjtyyqlyzkdksqj yyqzldqcgjjyzjs cmraqthtejmbctyhy'+space(93)+'bkmhyzw dqfhyyxwshctxrljgjxhccyyyjltktsytmxgtcjtzayyoczlylbszyw jytsjyhbyshfjlygjxxtmzyyltxxypzlx'+space(93)+'yjzyzyybnhmymdyylblhlsyyggllsqxlxhdwkqgyshqywljyyhzmsljljjcjjyy cbcpzjmylcjlnjjjlxyjmlzjqlycmhcfm'+space(93)+'mfpqqmfylmcfqmmmz fhjgtthkhchydxtmjdymyydyyydydcymdydlfmycqzwzz mabtbzmdzgdfycgqyttsfwbdtzqssstjj'+space(93)+'hjytsxlywwkxexwznnqzjjjjccchyyxbzxzcyjtllcqxynjycyycynzcqyyoewy czdcjehylpwp mlgkdldgqbchjxy'
.
//is too long, save
FOR I=1 TO LETTERLEN
IF the ASC (MID (THISLETTER, I, 1)) & gt; THEN 128
HZ=MID (THISLETTER, I, 2)
've=190 * (ASC (LEFT (HZ, 1)) - 129) + ASC (HZ, 1) (RIGHT) - 64 + 1
IF've & lt; 1 THEN
PYSTRING=PYSTRING + "?"
The ELSE
If QW> Len (LETTER) then
PYSTRING=PYSTRING + "?"
The else
PYSTRING=PYSTRING + MID (LETTER,'ve 1)
End the if
END the IF
I=I + 1
The ELSE
PYSTRING=PYSTRING + MID (THISLETTER, I, 1)
END the IF
NEXT
CASE 'WB'
.
//is too long, save
//254 * (ASC (LEFT (HZ, 1)) - 129) + ASC (HZ, 1) (RIGHT) - 64 + 1
FOR I=1 TO LETTERLEN
IF the ASC (MID (THISLETTER, I, 1)) & gt; THEN 128
HZ=MID (THISLETTER, I, 2)
've=254 * (ASC (LEFT (HZ, 1)) - 129) + ASC (HZ, 1) (RIGHT) - 64 + 1
IF've & lt; 1 THEN
PYSTRING=PYSTRING + "?"
The ELSE
If QW> Len (LETTER1) then
PYSTRING=PYSTRING + "?"
The else
PYSTRING=PYSTRING + MID (LETTER1've, 1)
End the if
END the IF
I=I + 1
The ELSE
PYSTRING=PYSTRING + MID (THISLETTER, I, 1)
END the IF
NEXT
The END CHOOSE
RETURN the TRIM (the lower (PYSTRING))
CodePudding user response:
The top oneCodePudding user response:
After PB10 many string of function such as XXX (A) A A, after the name of the function is not the same as the original,CodePudding user response:
Changed the ASC to ASCA left lefta instead, mid to mida, right to righta, len to Lena