>>>>*****************Extract Usage Charges From PS File****************** >>>>cExit='N' >>>>lnRowposition=10000 >>>> >>>>FOR I= 1 TO nU1 && nU1 is the Length of Array >>>>IF 'Usage Charges' $ laArray(I)=.T. >>>>lnRowposition = VAL(GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 1)) && The second last word >>>>lnLeftColumnposition = GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>>>lnLeftColumnposition=VAL(STREXTRACT(lnLeftColumnposition,')','')) >>>>EXIT >>>>ENDIF >>>>ENDFOR >>>> >>>>FOR nFor=-1 TO 1 >>>>lcRowposition=ALLTRIM(STR(lnRowposition+nFor))+' x' >>>>FOR I= 1 TO nU1 >>>>IF lcRowposition $ laArray(I)=.T. >>>>lnRightColumnposition=GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>>>lnRightColumnposition=VAL(STREXTRACT(lnRightColumnposition,')','')) >>>>IF lnRightColumnposition>lnLeftColumnposition >>>>IF TYPE(STREXTRACT(laArray(I),'(',')'))='N' >>>>nUsagecharges=VAL(STREXTRACT(laArray(I),'(',')')) >>>>cEXit='Y' >>>>EXIT >>>>ENDIF >>>>ENDIF >>>>ENDIF >>>>IF cExit='Y' >>>>EXIT >>>>ENDIF >>>>ENDFOR >>>>ENDFOR >>>>************************************************************************ >>>>*****************Extract Balance Minimum Guarantee PS File****************** >>>>cExit='N' >>>>lnRowposition=10000 >>>> >>>>FOR I= 1 TO nU1 >>>>IF 'Minimum Guarantee' $ laArray(I)=.T. >>>>lnRowposition = VAL(GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 1)) && The second last word >>>>lnLeftColumnposition = GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>>>lnLeftColumnposition=VAL(STREXTRACT(lnLeftColumnposition,')','')) >>>>EXIT >>>>ENDIF >>>>ENDFOR >>>> >>>>FOR nFor=-1 TO 1 >>>>lcRowposition=ALLTRIM(STR(lnRowposition+nFor))+' x' >>>>FOR I= 1 TO nU1 >>>>IF lcRowposition $ laArray(I)=.T. >>>>lnRightColumnposition=GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>>>lnRightColumnposition=VAL(STREXTRACT(lnRightColumnposition,')','')) >>>>IF lnRightColumnposition>lnLeftColumnposition >>>>IF TYPE(STREXTRACT(laArray(I),'(',')'))='N' >>>>nBalMinimumGuarantee=VAL(STREXTRACT(laArray(I),'(',')')) >>>>cEXit='Y' >>>>EXIT >>>>ENDIF >>>>ENDIF >>>>ENDIF >>>>IF cExit='Y' >>>>EXIT >>>>ENDIF >>>>ENDFOR >>>>ENDFOR >>>>************************************************************************ >>>> >>>>