Adding comma to list of numbers

[Gary Atkinson]

I have a long flat file with a list of numbers.  I want to add a comma in front of each number.  So, my file looks like this:

1234

5678

8908

And I want it to look like:

,1234

,5678

,8908

What is the best approach to do this in tcl?

Topic

[Charlie Bursell]

If all the numbers are part of the same record, I would do something like:

        regsub -all — {m(d+?)M}  $rec {,1} rec

[Gary Atkinson]

How do I add in that regsub into reading in my flat file?

[Charlie Bursell]

You asked how to do this in Tcl.  I assumed, depending on where and how you are processing the flat file, you would know how to access the message.

If you put a tcl script in your inbound thread you would simply add this as part of the script.  To be more specific I would have to know how you are reading the flat file.  Are you reading a record at a time or is it coming in as a complete file? Do you then forward through the engine as a single file or as multiple records?

[Gary Atkinson]

Sorry I am not doing this in the engine

[Charlie Bursell]

if this is a file of records with each erecord containing a number do this:

set inp [read_file -nonewline file]

regsub -line -all — {^(d+)} $inp {,1} out

write_file newfile $out

As I said, it is hard to give an answer unless we know specifically what you are dealing with.

You should have enough to figure it out if there are variances to my assumptions

[Gary Atkinson]

Thanks, I got it to work.

[Author]

Replies