Glen Bojsza wrote:

> Sorry to bother everyone but either I'm tired or brain dead.
> 
> I have a field which has hundreds of lines.
> 
> For all [ in the field I need to check to see if the character to it's
> immediate left is a number.
> 
> If it is a number then the [ is to be converted into an _.
> 
> If it is not a number then the [ is to be removed (no substitution or
> spaces).
> 
> I need to be able to cycle through the entire field which each line may
> contain several [.
> 
> Any thoughts would be appreciated as I have tried using a combination
> of
> find characters and foundchunk on the field without success.

Use the *offset()* function as in:

On replaceChar
        Local tOffset, tCharsToSkip, tFieldText
        ----
        put 0 into tCharsToSkip
        put fld "theFieldName" into tFieldText
        repeat
                put offset("[",tFieldText,tCharsToSkip) into tOffset
                if tOffset = 0 then exit repeat
                if char (tOffset - 1) of tFieldText is an integer then
                        replace char tOffset of tFieldText with "_"
                        put tOffset + 1 into tCharsToSkip
                else
                        replace char tOffset of tFieldText with empty
                        put tOffset into tCharsToSkip
        end repeat
        put tFieldText into fld "theFieldName"
end replaceChar

Aloha from Hawaii,

Jim Bufalini


_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to