egghelp/eggheads community

Reformat a sentence.

2004-03-31T22:44:08-04:00

Is this something of what you are after?

Code:

set text "abcadf word1 word2 word3 ::msg:: morewords moremorewords"regsub {[^ ]* ([^:]*) :[^ ]* (.*)} $text {\1 \2} text

Statistics: Posted by strikelight — Wed Mar 31, 2004 10:44 pm

Reformat a sentence.

2004-03-31T21:28:32-04:00

honestly i don't have regexp fully covert could u plz just xplain think of me as stupid

Statistics: Posted by Ofloo — Wed Mar 31, 2004 9:28 pm

Reformat a sentence.

2004-03-31T16:25:13-04:00

I want something like

Code:

regexp (:$)+ $str tmp; set file [lrange $tmp 1 end]

but I'm not sure if this is the best way.

(I don't know the usage of the regexp, so maybe the above to be wrong )

Statistics: Posted by cerberus_gr — Wed Mar 31, 2004 4:25 pm

Reformat a sentence.

2004-03-29T18:46:57-04:00

could be more specific i not realy sur what u mean do you wana create an array where u get

word(1) = ...
word(2) = ...

Code:

foreach line $arg {  if {[info exists i]} {    incr i  } else {    set i 1  }  set word($i) "$line"}

or do you want
the word before the last one
then do

Code:

[lindex $arg end-1]

Statistics: Posted by Ofloo — Mon Mar 29, 2004 6:46 pm

Reformat a sentence.

2004-03-29T17:47:36-04:00

Hello,

I have this sentence

Code:

abcdef word1 word2 word3 word4 ::msg:: word_lastorabcdsi word1 word2 ::msg:: word_last

abcdef or abcdsi: are words which change
word1-4: words I want
::msg:: standard
word_last: in could be 1-15 words

I want to set to a variable only word1-*, like:
word1 word2 word3 word4
or
word1 word2

Any help?

Statistics: Posted by cerberus_gr — Mon Mar 29, 2004 5:47 pm