倒序取字符串函数

来源:互联网 发布:澳洲网络运营商 编辑:程序博客网 时间:2024/04/28 06:01
PARAMETERS cCLEARP=SPACE(0)I=1DO WHILE I<=LEN(C)   x=ASC(SUBSTR(C,I,1))   IF x>127       P=SUBSTR(C,I,2)+P      I=I+1   ELSE      P=SUBSTR(C,I,1)+P   ENDIF   I=I+1ENDDO *STRTOFILE(P,"P.TXT")RETURN P
原创粉丝点击