Zugg Software :: View topic

Wanderer Joined: 11 Oct 2000 Posts: 52 Location: Sweden

Is there a way to "chop" a variable? For instance i would like something like

#var list {1 a|2 b|3 c}
%getfirst(@list)
and then it would be 1|2|3 so i can trigger it on 2 instead of 2 a.

Enchanter Joined: 20 Nov 2002 Posts: 627 Location: USA

#var choplist %replace(@list," ","|")
choplist = 1|a|2|b|3|c

or

#alias getfirst {#var choplist %item(@list,%i);#var choplist %replace(@choplist," ","|");#var choplist %item(@choplist,1);#show @choplist}

or

#trigger {you get some ({@list})} {#var choplist %replace("%1"," ","|");get %item(@choplist,1)}

but if you want this:

#trigger {you get some {@list}}
where list = 1 a|2 b|3 c
and you want it to do this instead:
list = 1|2|3

then no I don't think you can.

Wanderer Joined: 11 Oct 2000 Posts: 52 Location: Sweden

*ponder*
So there is no way to do like :

#forall @listan {
#var listan %expandlist( @listan, ",")
#var adding %max( @listan)
#var list2 %additem( @adding, @list2)
#var listan %replace( @listan, ",", "|")
#delitem listan @adding
}
#var list2 %dups( @list2)

It seams to work fine exept that it only reacts on first number in a list... Hmm...

@Listan is something like = 41 e|1 b|2000 c

SubAdmin Joined: 18 Nov 2001 Posts: 5182

Use a record variable instead of a list. Look at the commands #ADDKEY, #DELKEY, #LOOPDB; and functions %db and %expanddb. Also triggers can use record variables the same way as lists (read Pattern Matching).

Wanderer Joined: 11 Oct 2000 Posts: 52 Location: Sweden

Woho. It's a whole new world. Thanks vijilante.. Now i can have some more fun and stop crying ;)

EDIT : ok more crying :P

Umm how do i do this correctly? :)
#loopdb @db1 {#show %sort(%val,1)}

Nm... (http://www.zuggsoft.com/forum/topic.asp?TOPIC_ID=10049&SearchTerms=loopdb)

GURU Joined: 23 Dec 2000 Posts: 4834 Location: USA

%sort() doesn't do numbers, so your list will end up going along the lines of 1|10|100|2|20|200|etc. You will have to manually sort the list. If I remember my sort logic correctly, it goes something like this:

Enchanter Joined: 20 Nov 2002 Posts: 627 Location: USA

This question about putting numbers in order has intreged me, so I will indever to research the problem and maybe come up with something for you. I am currently working on a script that requires thing to be in numerical order, so it will benifit us both.

write soon.

GURU Joined: 10 Oct 2000 Posts: 4379 Location: USA

It's not so hard. The link Jah provided already has the solution. Just use %repeat to pad the beginning of all the numbers in the list with 0's until they are all the same length. Example:
#LOOP 1,%numitems(@list) {#VAR list %replaceitem(%concat(%repeat("0", 10 - %len(%item(@list, %i))), %item(@list, %i)), %i, @list)}

Then, use %sort on it to sort the numbers and use %eval to remove the extra 0's:
#VAR list %sort(@list)
#LOOP 1,%numitems(@list) {#VAR list %replaceitem(%eval(%item(@list, %i)), %i, @list)}

If numbers longer than 10 digits are to be sorted, the only thing that needs to be changed is the 10 in the %repeat to the amount of digits desired.

Enchanter Joined: 20 Nov 2002 Posts: 627 Location: USA

UNfortunatly I did not check back here or I would have seen Kjata post and saved myself alot of time and effort but here is what i came up with. (i usually collor these things but this is pretty big so I will forgo that)

#CLASS {Numerical}
#ALIAS no {#var ones "";#var tens "";#var hundreds "";#var thousands "";#var tentho "";#var huntho "";#var millians "";#var tenmil "";#var hunmil "";#var billions "";#var recount "";#var new %sort(@new);#var countlist %numitems(@new);#loop 1,@countlist {#if %len(%item(@new,%i))=1 {#addi ones %item(@new,%i)};#if %len(%item(@new,%i))=2 {#addi tens %item(@new,%i)};#if %len(%item(@new,%i))=3 {#addi hundreds %item(@new,%i)};#if %len(%item(@new,%i))=4 {#addi thousands %item(@new,%i)};#if %len(%item(@new,%i))=5 {#addi tentho %item(@new,%i)};#if %len(%item(@new,%i))=6 {#addi huntho %item(@new,%i)};#if %len(%item(@new,%i))=7 {#addi millians %item(@new,%i)};#if %len(%item(@new,%i))=8 {#addi tenmil %item(@new,%i)};#if %len(%item(@new,%i))=9 {#addi hunmil %item(@new,%i)};#if %len(%item(@new,%i))=10 {#addi billions %item(@new,%i)}};#if !%len(@ones)=0 {#addi recount @ones};#if !%len(@tens)=0 {#addi recount @tens};#if !%len(@hundreds)=0 {#addi recount @hundreds};#if !%len(@thousands)=0 {#addi recount @thousands};#if !%len(@tentho)=0 {#addi recount @tentho};#if !%len(@huntho)=0 {#addi recount @huntho};#if !%len(@millians)=0 {#addi recount @millians};#if !%len(@tenmil)=0 {#addi recount @tenmil};#if !%len(@hunmil)=0 {#addi recount @hunmil};#if !%len(@billions)=0 {#addi recount @billions};#echo %replace(%replace(@recount,")",""),"(","")}
#VAR new {1|12|2|3|30|54|55}
#VAR countlist {7}
#VAR ones {1|2|3}
#VAR tens {12|30|54|55}
#VAR hundreds {}
#VAR thousands {}
#VAR tentho {}
#VAR huntho {}
#VAR millians {}
#VAR tenmil {}
#VAR hunmil {}
#VAR billions {}
#VAR recount {(1|2|3)|(12|30|54|55)}
#CLASS 0

Change the alias if you wish
and set variable @new with your numbers to put in order
I used echo to show me the results so you might have something else to do with this. have fun and remember with zmud all is posible