字符替换,有没更加简单的
lcStr1=""lcStr2=""
FOR i=33 TO 47
lcStr1 = lcStr1 + CHR(i)
lcStr2 = lcStr2 + "_"
ENDFOR
FOR i=58 TO 64
lcStr1 = lcStr1 + CHR(i)
lcStr2 = lcStr2 + "_"
ENDFOR
FOR i=91 TO 96
lcStr1 = lcStr1 + CHR(i)
lcStr2 = lcStr2 + "_"
ENDFOR
FOR i=123 TO 128
lcStr1 = lcStr1 + CHR(i)
lcStr2 = lcStr2 + "_"
ENDFOR
?lcStr1
lcTmp="adk-/dad~kj!jkm@0(m),*m&%n$n,l./?lka|+=_jh"
?lcTmp
lcTmp=CHRTRAN(lcTmp,lcStr1,lcStr2)
?lcTmp