egghelp/eggheads community

long line spliting...

2003-02-18T10:34:46-04:00

Somthing like

Code:

proc createarray {name input delimeter args} {  set inject "\n"  if {[lindex $args 0] != ""} { set inject "[lindex $args 0] }  set output ""  regsub -all -- $delimeter $input $inject output  set i 1  foreach a [split $output $inject] {    uplevel 1 [list set "${name}(${i})" $a]  }}

You can use it like follows.

Code:

set html "

 .... (and so on)
 "createarray this $html "
"puts stdout "First line: $this(1)"puts stdout "Second: $this(2)"

Unlike some langs, you can't go out of bounds with Tcl arrays. It causes an error of "Variable doesn't exist".

You may find it is far easier to stick with the existing code (the one posted in your previous reply), and use "[lindex $lines 0]" and so on.

Statistics: Posted by ppslim — Tue Feb 18, 2003 10:34 am

long line spliting...

2003-02-18T10:24:47-04:00

Code:

set html "

 .... (and so on)
 "regsub -all "
" $html "\n" htmlset lines [split $html "\n"]

how could i acces to the lines with some kinda array (like in delphi information[1], information[2], etc) ? i could loop i throught a counter and check all lines easily with that.

Statistics: Posted by GodOfSuicide — Tue Feb 18, 2003 10:24 am

long line spliting...

2003-02-18T04:42:26-04:00

I was not aware that it is only splitting on single chars... thanks for enlightening me stdragon

Statistics: Posted by Papillon — Tue Feb 18, 2003 4:42 am

long line spliting...

2003-02-17T16:41:47-04:00

Unfortunately split always splits on single letters. Splitting on "
" simply splits the line at <, b, r, and >.

I think GodOfSuicide was on the right track with regsub and \n.

Code:

set html "

 .... (and so on)
 "regsub -all "
" $html "\n" htmlset lines [split $html "\n"]

Note you don't get pure lines of text from this -- it leaves all other tags in the code. You could use another regsub to get rid of them.

Statistics: Posted by stdragon — Mon Feb 17, 2003 4:41 pm

long line spliting...

2003-02-17T15:17:52-04:00

Code:

set newline [split $oldline "
"]

will return a list with each line as a element in the list

Statistics: Posted by Papillon — Mon Feb 17, 2003 3:17 pm

long line spliting...

2003-02-17T15:13:52-04:00

i have a very long string (~600 chars) which i want to split up into some lines.

the line looks something like this :

.... (and so on)

everytime there is the
(which means new line in html) tag i want the string to be split up so i can acces to each "real" html line directly.

i tried it with regsub & \n, but it didnt work.....

would be great if somebody could help.

Statistics: Posted by GodOfSuicide — Mon Feb 17, 2003 3:13 pm