本人是刚学VFP，现想要把一个字符型字段转换成数字型，字符型字段（SL）内容如下：10*2+5  、  10*2+2*5+3   、 5  、 1*5 等等，加个数字型字段计算出来也行！

现手上有一段相关代码不知道能否用上:
PROCEDURE EVA_CH
PARA X,Z
PRIV M,N,I,J,X1
SET EXAC ON
STOR 1 TO M,N
IF PARA()=1
        Z=1
ENDIF
X=UPPE(ALLT(X))
IF TYPE(X)="U"
        RETURN "0"
ENDIF

IF TYPE(X)="N".AND.AT("*",X)=0
                M=LTRI(STR(&X.*Z))
                RETURN IIF(VAL(M)>9999999999,"0",M)
ENDIF
J=INT((LEN(X)+1)/2)

DIME A(J,2)
A=""
FOR I=1 TO LEN(X)
        X1=SUBS(X,I,1)
        DO CASE
        CASE X1=" "
                *NOTHING
        CASE BETW(X1,"0","9") AND N=1
                A(M,1)=A(M,1)+X1
        CASE X1="+" OR X1="-"
                N=1
                IF A(1,1)<>""
                        M=M+1
                ENDIF
                A(M,1)=X1
        CASE X1="*" AND N=1 AND A(M,1)<>""
                N=2
        CASE N=2 AND X1<>"*"
                A(M,2)=A(M,2)+X1
        OTHE
                RETURN "0"
        ENDC
ENDF

=ASORT(A,2,-1,1)

FOR I=1 TO J
        A(I,1)=LTRIM(STR(VAL(A(I,1))*Z))
        IF I=1
                LOOP
        ENDIF
        IF A(I,2)=A(I-1,2)
                A(I,1)=LTRIM(STR(VAL(A(I,1))+VAL(A(I-1,1))))
                A(I-1,1)=""
                A(I-1,2)=""
        ENDIF
ENDF

FOR I=1 TO J
        A(I,2)=VAL(A(I,2))
        IF A(I,2)=1
                A(I,2)=0
        ENDIF
ENDF
=ASORT(A,2,-1,1)
FOR I=1 TO J
        A(I,2)=LTRI(STR(A(I,2)))
        IF A(I,2)="0"
                A(I,2)=""
        ENDIF
ENDF

X=""
FOR I=1 TO J
        IF A(I,1)="" OR A(I,1)="0"
                LOOP
        ENDIF
        X1=LEFT(A(I,1),1)
        IF X1<>"-" AND X1<>"+"
                A(I,1)="+"+A(I,1)
        ENDIF
        X=X+A(I,1)
        IF A(I,2)<>""
                X=X+"*"+A(I,2)
        ENDIF
ENDF
IF LEFT(X,1)="+"
        X=SUBS(X,2)
ENDIF
IF TRIM(X)=""
        X="0"
ENDIF
RETURN IIF(EVAL(X)=0,"0",X)

[[it] 本帖最后由 lsp_2 于 2008-6-1 15:00 编辑 [/it]]

[[it] 本帖最后由 lsp_2 于 2008-6-2 09:07 编辑 [/it]]