egghelp/eggheads community

foreach usage question

2004-01-28T16:21:29-04:00

You might want to check this post. It's a word wrapping proc that splits the entire string and loops through the words. It doesn't split words that are too long to fit on a single line, though. But if you can live with that it should be just what you need. (I didn't do any speed tests to compare it to other methods of splitting because I'm too lazy right now, but it can't be that bad...it's fairly compact)

Statistics: Posted by user — Wed Jan 28, 2004 4:21 pm

foreach usage question

2004-01-25T20:27:19-04:00

i certainly will tnx

Statistics: Posted by Ofloo — Sun Jan 25, 2004 8:27 pm

foreach usage question

2004-01-25T16:47:50-04:00

Check out string last (or first - depending on what you want) or string wordstart (or wordend). You should be able to make a word wrapping proc with one/more of these commands.

Statistics: Posted by user — Sun Jan 25, 2004 4:47 pm

foreach usage question

2004-01-25T13:06:09-04:00

ok got it used textutils (tcllib) to do so but if someone knows how to do it with out this plz post tnx

Statistics: Posted by Ofloo — Sun Jan 25, 2004 1:06 pm

foreach usage question

2004-01-25T01:11:51-04:00

yes and no looks like it but not exactly would be same as

[lrange [split $arg {}] 0 100]

i got a description of somethig in db and that description is one line but some descriptions have byte count of 500 - 1000

and others have bytecounts of 1 - 20

in those descriptions are words with byte count 1 - 60 and i just wana output a deasend text but if you use the format thing then its like some workds are pressed to eachother sometimes don't even see the space and some are spread out that you have to go look for the second word .. so i want to a make a loop that splits the word on the first space after byte count 100 ..

Statistics: Posted by Ofloo — Sun Jan 25, 2004 1:11 am

foreach usage question

2004-01-25T00:39:43-04:00

Code:
proc bytesplit {nick uhost hand chan arg} {  foreach line [split {[string bytelength $arg] > 100 && [string bytelength $arg]} < 120 \x20] {      putserv "privmsg $chan :$line"  }}
more something like that but this doesn't work have to find the right syntax and way to put it ..

Are you trying to truncate your strings if they are too large? If this is the case, you should be using string range obviously.

Statistics: Posted by strikelight — Sun Jan 25, 2004 12:39 am

foreach usage question

2004-01-25T00:33:07-04:00

Code:

proc bytesplit {nick uhost hand chan arg} {  foreach line [split {[string bytelength $arg] > 100 && [string bytelength $arg]} < 120 \x20] {      putserv "privmsg $chan :$line"  }}

more something like that but this doesn't work have to find the right syntax and way to put it ..

Statistics: Posted by Ofloo — Sun Jan 25, 2004 12:33 am

foreach usage question

2004-01-25T00:30:44-04:00

i do understand what it is and what it does its

%s $a thats what your doing in a way your makeing colums

then you add

% -20%s like the with of the colum becomes 20 .. but its not exactly what i am looking for realy sorry if i am making you feel unconfortable .. don't mean to .. realy realy sorry hehe could be wrong but i think that is what you do

Statistics: Posted by Ofloo — Sun Jan 25, 2004 12:30 am

foreach usage question

2004-01-25T00:13:18-04:00

Omg, I hate spoon feeding like this, but I guess I'm going to have to...

You have a general idea how long your longest string is, let's say its 20 characters in length... so we use format to padd each string with (20-length of string) [twenty minus length of string] spaces, by using the formatting option %-20s .... This way, all strings are columnized underneath eachother in a proper fashion.....

Code:

set outfile [open "yourfile" w]foreach {a b c d e} $yourlist {  puts $outfile "[format %-20s%-20s%-20s%-20s%s $a $b $c $d $e]"}close $outfile

Other than this, I have no idea on how to make you comprehend.

Statistics: Posted by strikelight — Sun Jan 25, 2004 12:13 am

foreach usage question

2004-01-25T00:08:49-04:00

Sorry didn't mean to trouble u about it just want to have nice text format how its done who cares result counts but by spreading it out isn't realy working for me cause some strings contain realy big words and verry small ones so doesn't have a nice out put .. as i sad before its not realy what i am looking for but tnx for the help

.. sorry ..

Statistics: Posted by Ofloo — Sun Jan 25, 2004 12:08 am

foreach usage question

2004-01-25T00:04:20-04:00

Make up your mind, you either want to spread the data out evenly, or you don't.... If you do, use format, if you don't, don't use format. Simple as that...

Statistics: Posted by strikelight — Sun Jan 25, 2004 12:04 am

foreach usage question

2004-01-25T00:02:11-04:00

yes but its not exacty what i wanted to do isn't there a way to do byte count and split the space on a certain byte ?? so it doesn't spread out looks mutch nicer just don't have a clue how to begin on that ..

Statistics: Posted by Ofloo — Sun Jan 25, 2004 12:02 am

foreach usage question

2004-01-24T23:57:51-04:00

Again, the spaces are there in the file if you format the text exactly how I showed you for the putlog formatting.... Why is this so hard for you to grasp?

Statistics: Posted by strikelight — Sat Jan 24, 2004 11:57 pm

foreach usage question

2004-01-24T23:56:12-04:00

hmm i know but in the channel it adds spaces to spread it out .. but in txt those spaces are not there so ..

in channel

text_______text__textextextext
text________text_______________text

Statistics: Posted by Ofloo — Sat Jan 24, 2004 11:56 pm

foreach usage question

2004-01-24T23:52:43-04:00

You write to file formatted exactly like you write it to channel formatted. It isn't rocket science.

Statistics: Posted by strikelight — Sat Jan 24, 2004 11:52 pm