找到的
Function
StoB
parameters Text1
JE="????·??????é????°???"
cDW="????°??°?ò??°??°????°??°?ò??°??°????·?"
newString=alltrim(str(text1*100,19))
&&??????????·???×??ó?¤????19??????????
newStringLong=Len(newString)
&&????×?·??¤??
newDW=right(cDW,newStringLong*2)
&&??????×?·????ù??????????????
Num0=0
&&????????????
DXJE=""
for m=1 to newStringLong
xZF=substr(NewString,m,1)
&&????????×?·?
dZF=Substr(JE,2*val(xZF)+1,2)
&&?????ó??×?·?
DW=substr(NewDW,2*M-1,2)
&&????????
if dZF="??"
dZF=""
do case
case DW $"????"
&&?????????ò??
Case DW="?ò"
if right(DW,2)="??"
dZF=""
endif
otherwise
DW=""
endcase
Num0=Num0+1
else
if Num0>0
dZF="??"+dZF
endif
Num0=0
endif
Dxje=Dxje+dZF+DW
endfor
Dxje=Dxje+iif(right(NewString,1)="0","??","")
Return Dxje