Welcome to the MacNN Forums.

Synotic · Aug 6, 2001, 01:18 AM

Okay here is stupid question #47142, lists in lists. Okay well I know you can write stuff to empty properties..

<BLOCKQUOTE>code:<HR><pre>property emptyProp : {}

set emptyProp to (emptyProp & "added")[/code]

I also know that I can set stuff to lists in lists...

<BLOCKQUOTE>code:<HR><pre>property emptyProp : {{}}

set item 1 of emptyProp to ((item 1 of emptyProp) & "added")[/code]

But how can I write a new list to a blank list..? Like this:

<BLOCKQUOTE>code:<HR><pre>property emptyProp : {}

set source to "Synotic"
set whatToWrite to (source & " " & "text")
set emptyProp to (emptyProp & {whatToWrite}[/code]

So now if I get emptyProp it'll be:

{{Synotic text}}

If I ran it again.. it'd be:

{{Synotic text}, {Synotic text}}

Why do I want to do this? Well here is my final goal.. I want to make a script for ircle.. what it will do is, every time somebody speaks.. it will check the property to see if they already have their own list.. if not it will add a list for them.. then it adds the number of words that they said something.. next time they say something.. it will add the number of words to the first number.. Get it? Well here is my goal script:

<BLOCKQUOTE>code:<HR><pre>on pubmsg() �in ircle this means that it will respond to something someone says�
tell application �ircle�
repeat with itemx in emptyProp
if word 1 of itemx is source then
set theyHaveAlistAlready to true
else
set theyHaveAlistAlready to false
end if
end repeat
if theyHaveAlistAlready is true then
set matchIt to match ��&source&� *� with emptyProp �here I want to find the list in the list that belongs to source (the guy who said it)
set theNumb to get the last character of item matchIt of emptyProp
set theFinal to (theNumb + (length of (words of thestring)))�thestring is what they said.. i.e. �Hey guys�
set item matchIt of emptyProp to (source & � �&theFinal&��)
end if
end tell
return false �I am doing this cause I want ircle to process the event..
end pubmsg[/code]

This should add the number of words that they said to what they already have.. I just wrote this all in my head� it probably won�t even compile.. it is just an idea of what I want to do. Here is how it would be activated

<simulating chat room talk>
Synotic: Hey guys.
</simulating chat room talk>

It would check the list.. let us say item 3 of emptyProp is: {Synotic 35}
It will add the length of the words of what I said (Hey guys).. to my current number of words.. so now it is 37. 35 words already + the 2 words I uttered now.. This is probably very confusing.. so please ask questions.

Synotic · Aug 6, 2001, 05:27 AM

Phew, I did it.. kinda,

<BLOCKQUOTE>code:<HR><pre>property x : {theName:{"99999", "Synotic"}, Num:{0, 6}}

tell application "ircle"
set source to "Synotic"
set TheMessage to length of words of "Hello world, how are you all?"
if theName of x contains source then
set theItemNum to match source with theName of x
set getCurrentCount to item theItemNum of Num of x
set theAddedCount to (getCurrentCount + TheMessage)
set item theItemNum of theName of x to source
set item theItemNum of Num of x to theAddedCount
return x
else
set theName of x to (theName of x & source)
set Num of x to (Num of x & TheMessage)
return x
end if
end tell[/code]

That works.. if you don't have ircle just replace the app with Finder or something else that has "match". But when I put it in its final form:

<BLOCKQUOTE>code:<HR><pre>property HipScriptUsercommandList : {"/getcount"}
property x : {theName:{"99999", "Synotic"}, Num:{0, 6}}

on usercommand(con, target, thestring, thecmd, theargs)
tell application "ircle"
if thecmd is "/getcount" then
set thePerson to item 1 of theargs
if thePerson is in theName of x then
set matchItem to match thePerson with theName of x
set whatToType to (item matchItem of Num of x) as string
InputIn(con, target, "/echo " & thePerson & " has typed " & whatToType & " words that you have seen.")
else
InputIn(con, target, "/echo " & thePerson & " has not been seen typing by you.")
end if
end if
end tell
end usercommand

on pubmsg(con, source, sourcehost, target, thestring)
tell application "ircle"
set TheMessage to length of words of thestring
if theName of x contains source then
set theItemNum to match source with theName of x
set getCurrentCount to item theItemNum of Num of x
set theAddedCount to (getCurrentCount + TheMessage)
set item theItemNum of theName of x to source
set item theItemNum of Num of x to theAddedCount
else
set theName of x to (theName of x & source)
set Num of x to (Num of x & TheMessage)
end if
end tell
return false
end pubmsg[/code]Then it doesn't work. It'll just tell me that I haven't seen anyone talking.. Even though I saw them talk.. any suggestions?

BTW, I want to have a search and replace a string handler.. someone already showed me one:

<BLOCKQUOTE>code:<HR><pre>set thestring to "adadadad"
set searchString to "a"
set replaceString to "4"
replaceTheString(thestring, searchString, replaceString)

on replaceTheString(thestring, searchString, replaceString)
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to searchString
set tempList to text items of thestring
set AppleScript's text item delimiters to replaceString
set resultString to tempList as string
set AppleScript's text item delimiters to oldDelim
return resultString
end replaceString[/code]That'll work.. but I want to be able to do this:

<BLOCKQUOTE>code:<HR><pre>set thestring to "adadadad"
set searchString to {"a", "d"}
set replaceString to {"4", "?"}

replaceTheString(thestring, searchString, replaceString)
on replaceTheString(thestring, searchString, replaceString)
display dialog "Find a way to let me replace multiple items in a string damnit." buttons {"Back away cowardly", "Yes Master"} default button "Yes Master"
end replaceTheString[/code]

kfkel · Aug 6, 2001, 08:29 AM

Not really sure how that match term works, but one thing you might try is breaking the list up into individual names with their corresponding word counts... then you could match the name in theArgs with the names in the list using a simple repeat... something like this:
<BLOCKQUOTE>code:<HR><pre>property theList : {{name:"99999", Num:3}}

set thesource to "Synotic"
set thestring to "Hello world, how are you all?"
set theResult to usercommand(thesource, thestring) -- or, (con, target, thestring, thecmd, theargs) for ircle...

on usercommand(thesource, thestring)
-- using the name & the message; I guess these'll be part of theArgs, but...
-- tell application "ircle" (*wouldn't need "ircle" here*)
set theyHaveAlistAlready to false
set TheMessage to length of words of thestring
repeat with anentry in theList
if name of anentry is thesource then
set Num of anentry to ((Num of anentry) + TheMessage)
set theyHaveAlistAlready to true
display dialog ((name of anentry) & " has typed " & (Num of anentry) & " words that you have seen.")
exit repeat
end if
end repeat
if theyHaveAlistAlready is false then
copy {name:thesource, Num:TheMessage} to the end of theList
display dialog ((thesource) & " has not been seen typing by you... (until now)!")
end if
return theList
-- end tell
end usercommand[/code]
of course, not using ircle here, but the idea would be to scan each item of the list until the name is matched, & if matched, update the word count & exit the repeat... if not matched after scanning the entire list, add the name & word count.
Just an idea...

For the search & replace, Akua Sweets has a nifty "munge" command that should do what you need. The syntax would be something like:
<BLOCKQUOTE>code:<HR><pre>set x to "adadadadad"
set y to munge x from {"a", "d"} to {"4", "?"}
return y -- "4?4?4?4?4?"[/code]
sigh... UBB...

[ 08-06-2001: Message edited by: kfkel ]

Aug 6, 2001, 05:58 PM

Originally posted by kfkel:
Not really sure how that match term works, but one thing you

>>The match term is a pretty standard command that is not ircle >>specific... I am pretty sure the Finder has it. What it basically is..
>>set theList to {"This", "is", "an", "example"}
>>set theMatch to match "an" with theList
>>
>>That'll return the number 3.. since it is the third item in the list. This >>is useful at times.

might try is breaking the list up into individual names with their corresponding word counts... then you could match the name in theArgs with the names in the list using a simple repeat...

>>Yeah, well the "match" seems to be working fine in the *first* script, >>it just appears that something got screwed in the second variation.

something like this:

code:
------------------------------------------------------------------------

property theList : {{name:"99999", Num:3}}

set thesource to "Synotic"
set thestring to "Hello world, how are you all?"
set theResult to usercommand(thesource, thestring) -- or, (con, target, thestring, thecmd, theargs) for ircle...

on usercommand(thesource, thestring)
-- using the name & the message; I guess these'll be part of theArgs, but...
-- tell application "ircle" (*wouldn't need "ircle" here*)
set theyHaveAlistAlready to false
set TheMessage to length of words of thestring
repeat with anEntry in theList
if name of anEntry is theSource then
set Num of anentry to ((Num of anEntry) + TheMessage)
set theyHaveAlistAlready to true
display dialog ((name of anentry) & " has typed " & (Num of anentry) & " words that you have seen.")
exit repeat
end if
end repeat
if theyHaveAlistAlready is false then
copy {name:thesource, Num:TheMessage} to the end of theList
display dialog ((thesource) & " has not been seen typing by you... (until now)!")
end if
return theList
-- end tell
end usercommand
------------------------------------------------------------------------

>>Well my pubmg handler is the logger. I don't want feedback >>everytime someone types, lol. I just want to be able to get the >>current count on someone.. /getcount Synotic

of course, not using ircle here, but the idea would be to scan each item of the list until the name is matched, & if matched, update the word count & exit the repeat... if not matched after scanning the entire list, add the name & word count.
Just an idea...

>>While I understand the script and it makes sense... that wasn't >>really the problem. As you can see in my *first* script, it runs. Just >>stick it in your script editor and hit run a couple times. It adds to >>Synotic's count. Then change the name of the source, it'll add, then >>keep adding to the count. So I just figured it had to do with my >>logger. Cause pubmsgs(public messages) do NOT include what I >>say. Thus it doesn't count.. I can still do /getcount Synotic and it'll >>read from the list. i.e. "6". So it has to be something wrong in the >>logger(pubmsg handler). But I'll still try your suggestion.

For the search & replace, Akua Sweets has a nifty "munge" command that should do what you need. The syntax would be something like:

code:
------------------------------------------------------------------------

set x to "adadadadad"
set y to munge x from {"a", "d"} to {"4", "?"}
return y -- "4?4?4?4?4?"
------------------------------------------------------------------------

>>Yeah, well, this is for a calculator script. I want to clear out any >>spaces. I already did it with a scripting addition in my !calc function >>in IRC.. with HipTools: hipTranslateSubstrings "1 + 3 * 4 " >>replacing any of {" ", "+"} with corresponding {"", "-"}
>>
>>But I kinda wanted to stay away from using scripting additions.. Oh, >>I realized I already cleared out spaces as they were only one item.. >>but in my one that uses a scripting addition, it'll filter out all the >>GOOD characters leaving the bad ones, then it tells them what they >>are..

sigh... UBB...

>>Anyways, I'll try your way and see what happens.

acur128 · Aug 6, 2001, 09:03 PM

Yes... with ircle that first script seems to be working fine, but the "match" term appears to be "ircle" specific... at least it's not in the Finder or Standard Additions dictionaries. And, since presumably theargs are defined earlter in the script & to test the logging function, if the property theargs is redefined in the usercommand handler, like:
set theargs to {"99999"}
it seems to work as expected. So the trouble may be in matching the class & content of item 1 of theargs with that of the corresponding item in theName of x. If it's still not matching, maybe try returning "thePerson" to see what's up. Sometimes it's just a matter of specifying the class of the item (item 1 of theargs as string).
In any case, there doesn't seem to be any real need to try my original suggestion, since the posted part of your script seems fine otherwise.

For a pure applescript implementation of search & replace for multiple noncontiguous items in a string, your setup of the list in your original script lends an idea... combined with your search & replace script, although not especially neat, this should work:
<BLOCKQUOTE>code:<HR><pre>set thestring to "abcdabcdabcdabcd"
set x to {searchstring:{"a", "d"}, replacestring:{"4", "?"}}
replaceTheString(x, thestring)

on replaceTheString(x, thestring)
set i to 1
repeat with anitem in searchstring of x
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to anitem
set tempList to text items of thestring
set AppleScript's text item delimiters to item i of replacestring of x
set thestring to tempList as string
set AppleScript's text item delimiters to oldDelim
set i to (i + 1)
end repeat
return thestring -- "4bc?4bc?4bc?4bc?"
end replaceTheString[/code]