以下寫法在PB9中正常，升級到10.5后不能得到正確結果，請高手指點
//==============================================================================
// 函式: f_getpywb()
//------------------------------------------------------------------------------
// 描述:
//------------------------------------------------------------------------------
// 引數:
// string inputstring
// string pywb
//------------------------------------------------------------------------------
// 回傳值: string
//==============================================================================
STRING LETTER,LETTER1,THISLETTER,HZ,PYSTRING
INTEGER LETTERLEN,I
LONG QW
THISLETTER = TRIM(INPUTSTRING)
LETTERLEN = LEN(THISLETTER)
PYSTRING = ""
CHOOSE CASE upper(pywb)
CASE 'PY'
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'
......
//太長了，省去
FOR I = 1 TO LETTERLEN
IF ASC(MID(THISLETTER,I,1)) > 128 THEN
HZ = MID(THISLETTER,I,2)
QW = 190 * (ASC(LEFT(HZ,1)) - 129) + ASC(RIGHT(HZ,1)) - 64 + 1
IF QW < 1 THEN
PYSTRING = PYSTRING + "?"
ELSE
if QW>len(LETTER) then
PYSTRING = PYSTRING + "?"
else
PYSTRING = PYSTRING + MID(LETTER,QW,1)
end if
END IF
I = I + 1
ELSE
PYSTRING = PYSTRING + MID(THISLETTER,I,1)
END IF
NEXT
CASE 'WB'
..........
//太長了，省去
//254 * (ASC(LEFT(HZ,1)) - 129) + ASC(RIGHT(HZ,1)) - 64 + 1
FOR I = 1 TO LETTERLEN
IF ASC(MID(THISLETTER,I,1)) > 128 THEN
HZ = MID(THISLETTER,I,2)
QW = 254 * (ASC(LEFT(HZ,1)) - 129) + ASC(RIGHT(HZ,1)) - 64 + 1
IF QW < 1 THEN
PYSTRING = PYSTRING + "?"
ELSE
if QW>len(LETTER1) then
PYSTRING = PYSTRING + "?"
else
PYSTRING = PYSTRING + MID(LETTER1,QW,1)
end if
END IF
I = I + 1
ELSE
PYSTRING = PYSTRING + MID(THISLETTER,I,1)
END IF
NEXT
END CHOOSE
RETURN TRIM(lower(PYSTRING))
uj5u.com熱心網友回復：
頂一個uj5u.com熱心網友回復：
PB10后很多取字串的函式都改成XXX（A）后面加了個A，原有的名稱的功能不一樣了。uj5u.com熱心網友回復：
把ASC改為ASCA,left改為lefta,mid改為mida,right改為righta,len改為lena即可轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/99354.html
標籤：腳本語言
上一篇：有薪請教關于網站登錄，內詳！