OORexx and ReginaThis is a discussion on OORexx and Regina within the REXX forums in Programming Languages category; I have the following OORexx-script and need it to convert to regina. Any suggestions? date1=date('S') time1=time('N') /* hh:mm:ss */ parse var time1 hh':'mm':'ss hhmmss=hh||mm||ss datetime=date1||hhmmss wrongdat = .stream~new( 'd:\foo\wrongdatcollect.txt' ) wrongdat~lineout( '############# S T A R T :' DATE() TIME() '####################') rightdat = .stream~new('d:\foo\withoutwrong'datetime'.txt') origdat=.stream~new( 'd:\foo\origdata.txt' ) do while origdat~lines <> 0 origdaten = origdat~linein If LEFT(origdaten,7) = 'XXXYYY1' Then wrongdat~lineout(origdaten) Else rightdat~lineout(origdaten) end /*do*/ Thanks, Xi... | ||||||||
| | ||||||||
| ||||||||
| Register | FAQ | Calendar | Search | Today's Posts | Mark Forums Read |
|
#1
07-21-2008, 12:10 PM
| |||
| |||
 OORexx and Regina I have the following OORexx-script and need it to convert to regina. Any suggestions? date1=date('S') time1=time('N') /* hh:mm:ss */ parse var time1 hh':'mm':'ss hhmmss=hh||mm||ss datetime=date1||hhmmss wrongdat = .stream~new( 'd:\foo\wrongdatcollect.txt' ) wrongdat~lineout( '############# S T A R T :' DATE() TIME() '####################') rightdat = .stream~new('d:\foo\withoutwrong'datetime'.txt') origdat=.stream~new( 'd:\foo\origdata.txt' ) do while origdat~lines <> 0 origdaten = origdat~linein If LEFT(origdaten,7) = 'XXXYYY1' Then wrongdat~lineout(origdaten) Else rightdat~lineout(origdaten) end /*do*/ Thanks, Xi  |
|
#2
07-21-2008, 01:36 PM
| |||
| |||
| Re: OORexx and Regina This turns out to be very straightforward. See the replacement lines below. Xizor wrote: > I have the following OORexx-script and need it to convert to regina. > Any suggestions? > > date1=date('S') > time1=time('N') /* hh:mm:ss */ > parse var time1 hh':'mm':'ss > hhmmss=hh||mm||ss > datetime=date1||hhmmss > > wrongdat = .stream~new( 'd:\foo\wrongdatcollect.txt' ) wrongdat = 'd:\foo\wrongdatcollect.txt' > wrongdat~lineout( '############# S T A R T :' DATE() TIME() > '####################') call lineout wrongdat, '############# S T A R T :' DATE() TIME() '####################' > rightdat = .stream~new('d:\foo\withoutwrong'datetime'.txt') rightdat = 'd:\foo\withoutwrong'datetime'.txt' > origdat=.stream~new( 'd:\foo\origdata.txt' ) origdat = 'd:\foo\origdata.txt' > > do while origdat~lines <> 0 do while lines(origdat) <> 0 > origdaten = origdat~linein origdaten = linein(origdat) > > If LEFT(origdaten,7) = 'XXXYYY1' Then > > wrongdat~lineout(origdaten) call lineout wrongdat, origdaten > > Else > > rightdat~lineout(origdaten) call lineout rightdat, origdaten > > end /*do*/ > > Thanks, > Xi |
|
#3
07-21-2008, 02:40 PM
| |||
| |||
| Re: OORexx and Regina Thanks! Worked! |
 |
| Thread Tools | |
| Display Modes | |
Linear Mode
