>>>>lcStrIn = "between(price, 100,1000000)" >>>>lcStrOut = "" >>llDelimiter = .T. >>>>FOR i=1 TO Len( lcStr) >>>> lcCurChar = Substr( lcStrIn, i, 1 ) >>>> IF Isdigit(lcCurChar) And llDelimiter >>>> lcStrOut = lcStrOut + "$" + lcCurChar >>>> ELSE >>>> lcStrOut = lcStrOut + lcCurChar >>>> ENDIF >>>> <b>llDelimiter = NOT ISALPHA(lcCurChar) And NOT ISDIGIT(lcCurChar) And (lcCurChar <> "_")</b> >>>> >>>>ENDFOR >>