Insert and delete Commas

[bvg@mac.com]

err... check the docs for "evaluate" why do it yourself if they can do 
it for you?



Am Mittwoch, 18.09.02 um 15:24 Uhr schrieb Robert Presender:

> The following custom handlers(?) are used in an application developed 
> in SuperCard.
> They are used for math processes such as addition, subtraction, etc..  
> They work in Rev.
>
> Would appreciate any comments relating to shorting or modifying the 
> scripts or a different approach.  The scripts are to be used on Mac 
> and Windows platforms.
>
> Regards ... Bob
>
> on insertCommaCd startNum, finishNum  --number must end in .00. 
> --syntax: insertCommaCd --[integer, integer]
>   repeat with x = startNum to finishNum
>     if char 1 of fld x  is "-" then
>       put "-" into minusHold
>       delete char 1 of  fld x
>     else
>       put "" into minusHold
>     end if
>
>     if "," is not in fld x then
>       get the number of chars of  fld x
>       if it >= 7 and it <= 9 then
>         put "," after char (it -6) of  fld x
>       else
>         if it >= 10 then
>           get the number of chars of  fld x
>           put "," after char (it -9) of  fld x
>           put "," after char (it -5) of  fld x
>         end if
>       end if
>     end if
>     put minusHold before char 1 of  fld x
>   end repeat
> end insertCommaCd
>
> --**Deletes commas from multiple or single  fields having 1 or
> --**more lines per  field. Minus numbers can be used
> on deleteComma startNo, finishNo --syntax: deleteComma [integer, 
> integer]
>   repeat with x = startNo to finishNo
>     get the number of lines of fld x
>     repeat with y = 1 to it
>       if "," is in line y of fld x then  --**
>         get offset(",", line y of fld x )
>         delete char it of line y of fld x
>         if it is not 0 then
>           get offset(",", line y of fld x )
>           delete char it of line y of fld x
>         else
>           next repeat
>         end if
>       end if
>     end repeat
>   end repeat
> end deleteComma
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution