倒序取字符串函数

分类： vfp-自定义函数 原创 2012-02-19 18:06 4人阅读 评论(0) 收藏 编辑 删除

 PARAMETERS c
CLEAR
P=SPACE(0)
I=1

DO 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+1
ENDDO
*STRTOFILE(P,"P.TXT")
RETURN P