How to split this $arg ?

SkiRmiS · Post by **SkiRmiS** » Tue Jan 08, 2002 5:47 pm

Hija,
How to split this :
$arg="mail@mail.com messagesstext" into $mail="mail@mail.com" ; $message="everything after email adress"
Thanks in advice

Bye

Petersen · Post by **Petersen** » Tue Jan 08, 2002 5:51 pm

set mail [lindex [split $arg] 0]
set message [join [lrange [split $arg] 1 end]]

<font size=-1>[ This Message was edited by: Petersen on 2002-01-08 14:52 ]</font>

SkiRmiS · Post by **SkiRmiS** » Tue Jan 08, 2002 6:04 pm

Thank you :]

egghead · Post by **egghead** » Tue Jan 08, 2002 6:05 pm

Assuming your $arg is a one line string, you could try:

Code: Select all


scan $arg "%s %[^n]" mail message

Mata Hari · Post by **Mata Hari** » Sun Jan 13, 2002 8:30 pm

added note

the split will kill multiple spaces, you can use a more general solution using:

Code: Select all

set mail "[string range $arg 0 [expr ([string first " " $arg] - 1)]]"
set message "[string range $arg [expr ([string first " " $arg] + 1)] end]"

also fixed the n problem

_________________
<sig>
This is a Signature virus, please place me in your signature so I can spread
</sig>

<font size=-1>[ This Message was edited by: Mata Hari on 2002-01-13 17:31 ]</font>