PPWIZARD Manual
[Bottom][Contents][Search][Prev]: REXAMPLE.XH[Next]: [CONTENTS]

REXAMPLE.REX (generated output)

/*
 * Generator   : PPWIZARD version 2K.319
 *             : FREE tool for Windows, OS/2, DOS and UNIX by Dennis Bareis (dbareis@labyrinth.net.au)
 *             : http://www.labyrinth.net.au/~dbareis/ppwizard.htm
 * Time        : Tuesday, 14 Nov 2000 9:02:48pm
 * Input File  : C:\DBAREIS\Projects\MultiOs\PPWIZARD\rexample.x
 * Output File : out\REXAMPLE.REX
 */

if arg(1)="!CheckSyntax!" then exit(21924)

/*
* $Header:   E:/DB/PVCS.IT/OS2/PPWIZARD/REXAMPLE.X_V   1.0   15 Mar 1999 17:33:38   Dennis_Bareis  $
*/
/*
* $Header:   E:/DB/PVCS.IT/OS2/PPWIZARD/REXAMPLE.XHV   1.2   09 Sep 1999 13:29:16   Dennis_Bareis  $
*/
signal REXAMPLE_1

AddCommas2DecimalNumber:
procedure expose Variable1 Variable2
z1NoComma = strip( arg(1) )
if  pos(',', z1NoComma) <> 0 then
return(z1NoComma)
z1DotPos = pos('.', z1NoComma)
if  z1DotPos = 0 then
z1AfterDecimal = ''
else
do
if  z1DotPos = 1 then
return("0" || z1NoComma)
z1AfterDecimal = substr(z1NoComma, z1DotPos+1)
z1NoComma      = left(z1NoComma, z1DotPos-1)
end
z1NoComma = reverse(z1NoComma)
z1ResultWithCommas = ""
do  while length(z1NoComma) > 3
z1ResultWithCommas = z1ResultWithCommas || left(z1NoComma, 3) || ','
z1NoComma          = substr(z1NoComma, 4)
end
z1ResultWithCommas = z1ResultWithCommas || z1NoComma
z1ResultWithCommas = reverse(z1ResultWithCommas)
if  z1AfterDecimal <> '' then
z1ResultWithCommas = z1ResultWithCommas || '.' || z1AfterDecimal
return(z1ResultWithCommas)

StringReplace:
z2String       = arg(1)
z2ChangeFrom   = arg(2)
z2ChangeTo     = arg(3)
z2ChangeCntVar = arg(4)
z2ChangeFromLength = length(z2ChangeFrom)
z2ChangeToLength   = length(z2ChangeTo)
z2FoundPosn        = pos(z2ChangeFrom, z2String)
z2ChangesMade      = 0
do  while z2FoundPosn <> 0
z2String = left(z2String, z2FoundPosn-1) || z2ChangeTo || substr(z2String, z2FoundPosn+z2ChangeFromLength)
z2FoundPosn = pos(z2ChangeFrom, z2String, z2FoundPosn+z2ChangeToLength)
z2ChangesMade = z2ChangesMade + 1
end
if  z2ChangeCntVar <> "" then
interpret z2ChangeCntVar || " = z2ChangesMade + " || z2ChangeCntVar
return(z2String)

REXAMPLE_1:
Count  = 0
String = StringReplace('AAAA', 'A', 'B', "Count")
if Count = 0 then
say 'No Changes made'
else
say 'Count = ' || AddCommas2DecimalNumber(Count)
return(Count)


[Top][Contents][Search][Prev]: REXAMPLE.XH

PPWIZARD Manual
My whole website and this manual itself was developed using PPWIZARD (free preprocessor written by Dennis Bareis)
Tuesday January 02 2001 at 7:37am