Reformat a sentence.

[cerberus_gr]

Hello,

I have this sentence

Code: Select all

abcdef word1 word2 word3 word4 ::msg:: word_last
or
abcdsi 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?

[Ofloo]

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: Select all

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: Select all

[lindex $arg end-1]

[cerberus_gr]

I want something like

Code: Select all

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 )

[Ofloo]

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

[strikelight]

Is this something of what you are after?

Code: Select all

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