Insert or Append characters to each line

[joeb5110]

I use Zoc Rexx, so the question may be more specific to Zoc. Is there a way to insert or append characters to each line as data is captured? I want to add the <br> symbol so there will be line breaks when viewing the output in a browser. I used Notepad++ to quickly insert <br> down the first column, but it's a manual step I need to complete before anyone views the file.
Thanks.

 

[mikrom]

IMHO, you should read the original file and create new with the corrected lines.
i.e
for every line in the original file
append break to the end of line
write changed line to the new file

At end rename the files

 

[mikrom]

I don't know ZOC REXX, but the following example shows how to do it with ooREXX and Regina:

insert_br.rex

[COLOR=#0000ff]/* check REXX-version */[/color]
[COLOR=#804040][b]parse upper version[/b][/color] rexx_version
[COLOR=#0000ff]/* set specific option for Regina */[/color]
[COLOR=#804040][b]if[/b][/color] [COLOR=#008080]pos([/color][COLOR=#ff00ff]"REGINA"[/color][COLOR=#804040][b],[/b][/color] rexx_version[COLOR=#008080])[/color] [COLOR=#804040][b]>[/b][/color] 0 [COLOR=#804040][b]then[/b][/color] [COLOR=#804040][b]do[/b][/color]
  [COLOR=#0000ff]/* Don't show meessages when system commands fail */[/color]
[COLOR=#804040][b]  trace O[/b][/color]   [COLOR=#0000ff]/* Turns off all tracing */[/color]
[COLOR=#804040][b]end[/b][/color]

[COLOR=#0000ff]/* get filename from program argument */[/color]
[COLOR=#804040][b]parse arg[/b][/color] input_file
[COLOR=#804040][b]if[/b][/color] input_file [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]""[/color] [COLOR=#804040][b]then[/b][/color] [COLOR=#804040][b]do[/b][/color]
  [COLOR=#804040][b]say[/b][/color] [COLOR=#ff00ff]"usage: rexx insert_br.rex <filename>"[/color]
  [COLOR=#804040][b]exit[/b][/color]
[COLOR=#804040][b]end[/b][/color]

[COLOR=#0000ff]/* check if input_file exists */[/color]
[COLOR=#ff00ff]"DIR"[/color] input_file [COLOR=#ff00ff]">NUL 2>&1"[/color]
[COLOR=#804040][b]if[/b][/color] [COLOR=#6a5acd]RC[/color] [COLOR=#804040][b]<>[/b][/color] 0 [COLOR=#804040][b]then[/b][/color] [COLOR=#804040][b]do[/b][/color]
  [COLOR=#804040][b]say[/b][/color] [COLOR=#ff00ff]"file '"[/color] [COLOR=#804040][b]||[/b][/color] input_file [COLOR=#804040][b]||[/b][/color] [COLOR=#ff00ff]"' was not found !!!"[/color]
  [COLOR=#804040][b]exit[/b][/color]
[COLOR=#804040][b]end[/b][/color] 

output_file [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]"new_"[/color] [COLOR=#804040][b]||[/b][/color] input_file

[COLOR=#0000ff]/* Open output for writing */[/color]
[COLOR=#804040][b]call [/b][/color][COLOR=#008080]lineout[/color] output_file[COLOR=#804040][b],[/b][/color] [COLOR=#804040][b],[/b][/color] 1

[COLOR=#0000ff]/* Read lines in loop and process them */[/color]
[COLOR=#804040][b]do [/b][/color][COLOR=#804040][b]while[/b][/color][COLOR=#804040][b] [/b][/color][COLOR=#008080]lines([/color]input_file[COLOR=#008080])[/color] [COLOR=#804040][b]<>[/b][/color] 0
  [COLOR=#0000ff]/* read line from input file */[/color]
  line [COLOR=#804040][b]=[/b][/color] [COLOR=#008080]linein([/color]input_file[COLOR=#008080])[/color]
  [COLOR=#0000ff]/* create new line with <br> at end */[/color]
  line [COLOR=#804040][b]=[/b][/color] line [COLOR=#804040][b]||[/b][/color] [COLOR=#ff00ff]"<br>"[/color]
  [COLOR=#0000ff]/* write line to output file */[/color]
  [COLOR=#804040][b]call [/b][/color][COLOR=#008080]lineout[/color] output_file[COLOR=#804040][b],[/b][/color] line
[COLOR=#804040][b]end[/b][/color]
[COLOR=#0000ff]/* close all files */[/color]
[COLOR=#804040][b]call [/b][/color][COLOR=#008080]lineout[/color] output_file
[COLOR=#804040][b]call [/b][/color][COLOR=#008080]lineout[/color] input_file

[COLOR=#0000ff]/* At end rename the files */[/color]
input_file_old [COLOR=#804040][b]=[/b][/color] input_file [COLOR=#804040][b]||[/b][/color] [COLOR=#ff00ff]".old"[/color] 

[COLOR=#0000ff]/* check if old file exists */[/color]
[COLOR=#ff00ff]"DIR"[/color] input_file_old [COLOR=#ff00ff]">NUL 2>&1"[/color]
[COLOR=#0000ff]/* when exists, then delete it */[/color]
[COLOR=#804040][b]if[/b][/color] [COLOR=#6a5acd]RC[/color] [COLOR=#804040][b]=[/b][/color] 0 [COLOR=#804040][b]then[/b][/color] [COLOR=#804040][b]do [/b][/color]
  [COLOR=#ff00ff]"DEL"[/color] input_file_old
[COLOR=#804040][b]end[/b][/color]

[COLOR=#0000ff]/* rename original file to *.old */[/color]
[COLOR=#ff00ff]"REN"[/color] input_file  input_file_old
[COLOR=#0000ff]/* rename new file to original */[/color]
[COLOR=#ff00ff]"REN"[/color] output_file input_file

[COLOR=#804040][b]exit[/b][/color]

Now, for given example data file
data.htm

1
2
hallo

that's all

after running the script with

rexx insert_br.rex data.htm

or

rexx insert_br.rex data.htm

we get as result the modified file
data.htm

1<br>
2<br>
hallo<br>
<br>
that's all<br>

and the original data file renamed to data.htm.old

 

[mikrom]

Correct the typo:
You can run the script above with

rexx insert_br.rex data.htm

and/or

regina insert_br.rex data.htm

 

[SerSteve]

clip= ZocClipboard("READ")
clip= clip"^M"
Call ZocSend ""clip||""

this is a simple script to take what you have on the clipboard and add enter to the end.

cr= x2c(0d)
lf= x2c(0a)
crlf= cr||lf

you can use CR or LF or both to replace the ^M which as i understand is just enter.

if your using an array of line just change clip to line and ignore the 1st line as thats just to read from the clipboard

 

[joeb5110]

Thank you for the replies. I'll see how these suggestions work out.