View previous topic :: View next topic
|
Author |
Message |
seenivasakan Currently Banned New User
Joined: 13 May 2007 Posts: 13 Location: Karnataka
|
|
|
|
Greetings.
i have to do some sort of string manupulation. Please refer the code below.
3 WST-EBH-AMEX-AREA GROUP 52 38 47 10
4 WST-EBH-AMEX-FORMAT-CODE
XX 53 38 39 2
4 WST-EBH-AMEX-INV-NBR XXX 54 40 42 3
4 WST-EBH-AMEX-SUB-CODE XX 55 43 44 2
4 WST-EBH-AMEX-CURRENCY-CODE
XXX 56 45 47 3
i read the above piece of code into one array and moved the data of 3rd line and 6th line(split line) into 2nd and 5 the line (original line) respectively. after i moved the datas i wanted to delete the split lines.
i tried to delete the same using DELSTR() function. but no fruitful results.
Regards |
|
Back to top |
|
|
seenivasakan Currently Banned New User
Joined: 13 May 2007 Posts: 13 Location: Karnataka
|
|
|
|
small correction.
i moved the data of 3rd line and 7th line into 2nd and 6th line respectively.
Regards |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
The easiest way is to use two arrays (stem)
Code: |
'execio * diskr myinput (finis stem inp.' /* for example */
out. = ''
ixO = 0
do ixI = 1 to inp.0
if <new line> then do
ixO = ixO + 1
out.ixO = inp.ixI /* start new line */
end; else do
out.ixO = out.ixO inp.ixI /* append line to previous */
end
end
/* out. now contains reunited lines */ |
|
|
Back to top |
|
|
|