Address Book Feature Request of Maybe there is something already there
Address book is determined to be the central station liking all programs together. Map is a great examples which I use all the time launched directly from the address contact.
Is there a similar feature, plug-in, or anyones desire to click an address contact with the option to start a letter. I know you can drag to pages but it would be nice to start from address book and launch into pages, placing the desired address in a letter template. It would be so Mac like to make this as easy as possible.
Any thoughts!
Have a look at Bento, from FileMaker.
Perhaps this might give you ideas ?
Otherwise, you'll just have to write an AppleScript (e.g. with the Developer's Tools)
Similar Messages
-
When I look up the 250+ new features of Mac OSX Lion, under address book, there's a new feature that interests me.
"Address Book lets you quickly access the social network profiles for your contacts, including Facebook. Press and hold an email address to select the appropriate profile."
Somehow I can't get it to work. What do I do?Make sure it's on the Template (see the entry for Twitter):
Then update the contact with the relevant info.
For Twitter you can then click and hold the Twitter tag to either View Profile or Send Tweet.
Regards,
Colin R. -
I'm trying to simplify managing Address Book contacts for exporting to an e-mail marketing application (Campaign Monitor). The problem is that when a contact has multiple e-mail addresses they will be displayed as a separate column in a CSV file but Campaign Monitor will only import one address per contact so we have to manually create 2 contacts if there are 2 e-mail addresses.
Is there a way to export from Adddress Book so that each e-mail address is a separate contact? Probably not but if anyone has any advice on how to manage this better would be great. I have about 3,000 names in Address Book and am adding 1 - 3 new ones every day. Syncing with Campaign Monitor is time consuming.
ThanksNo. You would have to create a second contact card for each email address with only one email address per card.
-
OS X Address Book + iPhone 4 + mobileMe - Are There Limits?
OK... so with no love on the previous thread yet, I'm asking again for assistance but will take a different tact. I can't seem to find an answer to the question.
Are there limitations and/or restrictions in OS X Address Book, iPhone 4 and/or mobileMe as to the number of data fields each contact can have or display?
Please let me know.Figured out what was happening here. It seems that even though a new contact is synced immediately (from MobileMe to the iPhone), categorization data is NOT -- it seems to take hours until this data gets updated.
Message was edited by: ScottBorisch -
Addreee Book - Feature Request
I sync my mobile phone using a group in Address Book I have created called Mobile.
At the moment I am able to check and see which Cards are in a group by looking at the list.
What I want to do is look at a card and see what list it is in.
I also maintain lists like - Friends - Clients - Friends from Philly - Suppliers.
If I could look at a card and see whether or not I had added it to a group I could avoid missing it out of a group by accident.
I'd be very interested in any workarounds y'all can think of.
Or- if you are Apple add this feature - PLEASE!!!!These are user to user discussions. Apple engineers do not read or take part in them.
http://www.apple.com/feedback -
WHEN I CLICK ON FORWARD IN MY EMAIL INBOX,I HAVE LOST THE ADDRESSBOOK ICON ON THE UPPER TOOL BAR.HOW DO I
GET IT BACK?If I understand you right, try this,
Go to Mail > Mail top menu > View > Customise toolbar > then drag the address book icon back into the top bar. -
What if any address book features are receiveing Apple's "attention"
I fuly understand that even minor appearing software updates/upgrades can be a lot more difficult than they appear. Still my question is this:
*Is there any way to find out if Apple is working on some sort of fix or update on a certain item or problem?*
Specicially, I am interested in sorting and lookups by company name on the addressbook contacts.
From reviewing discussion boards and such, this seems to be a significant concern. Is Apple working on this or planning or working on this?There is no way to know what upgrades the iPhone DEV team is currently working on. Apple has always been very tight lipped about future enhancements.
You can submit feedback for the feature, though I am pretty sure it has been brought to their attention already. -
Bluetooth-sms and dial feature with address book
Hi there, i have got a samsung d500 that has bluetooth. I want to use the address book feature where you can send sms from your laptop through your phone and to another phone. I can get up until the part where they are paired! When i click on a number to send an sms to, i can click on it, type my message and afterward click send. However it doesn't send and nothing happens. The dial feature can be clicked but nothing happend either. Please help me because i really want to take advantage of this great feature. Any ideas?
ThanksI just found this, hope it helps!
list of compatible phones:
http://www.apple.com/macosx/features/isync/devices.html -
I deleted a contact from my address book but when I go into text message it is still there. How do I fully delete this contact? It is only in my text messages not in my address book.
I don't believe there's much you can do about it...have a look at the "More Like This" pane on the right side of this page.
One way though to eliminate the issue (although not a very good way) is to restore the phone as new. -
Just sent the following to Apple Feedback. Curious to see if any others share similar hopes -- or if any of my requests are in fact already possible, but I've just been too dense to figure out how to do them:
(using AB 4.0.4 under OX X 10.4.8)
Nine Improvements Many Address Book Users (including me)
Would Really Like To See:
1) Phone dialer function.
Since Macs still have internal modems, why not take advantage of the fact and provide users with the option of having Address Book dial the number you've just used Address Book to look up? There are 3rd party apps that do this, but it's the kind of feature that really should be built right in for full compatibility.
2) Auto Fill + Auto Capitalization options for each text field.
Users should be able to designate which text fields do or do not use one or both. (Previous editions of Address Book had a hyper-active auto-fill function, while the latest version seems to have abandoned it altogether.)
The auto capitalization should work the same as when you start typing a name into Mac Mail's "To" field, offering a list of possible matches (different cities, for example), beginning with the one most recently used.
The auto capitalization should be a separate user pref which can be turned on or off for any text field.
3) More display options for Name column
Specifically, it would be nice to be able to have Last Name / First Name for scrolling through the Name column, but still show First Name / Last Name in the individual Card View on the right.
4) More intelligent search capability
For example, by entering a phrase with quote marks, I should be able to see only those cards which contain that exact phrase, not just any card which happens to contain any one of the words in the phrase.
5) Intelligent handling of two-surname couples.
For non-business, personal entries, there's a reality out there which needs to be acknowledged: there are a lot of unmarried couples sharing the same address and basic contact info, AND there are many married couples where the wife has retained her own surname.
Address Book needs to be able to deal with two-surname couples much more intelligently, so that (for example) a search can be run using EITHER surname to access the same card. Also, you've got an Anniversary field, but apparently no option to add a second "Birthday" date (since most couples do have different birthdays).
There needs to be a basic template in which the members of couples with different surnames each get equal "weight" in the database -- and this applies to same-sex couples as well, so the pairs of Surname and Birthday fields should not be automatically designated as "His" and "Hers".
6) Ways to enter partial dates
For certain date fields (such as "Brthday" and "Anniversary"), it's often the case where only a year is know, or a year and a month but not the exact date. Sometimes a date is just a best guess or an approximation. But Address Book seems determined to create a complete date, using the current month and day if none are entered, and not even letting manually erase same after it does.
A little flexibility here, please! I know I can put anything I want down in the Notes field, but couldn't the Birthday and Anniversary ones be made a little less rigid in their formatting?
7) Remember the new template fields when editing
I've added several new fields for the template which appears when I create a new entry. But it's annoying when those new fields all disappear as soon as I then need to edit that entry later on.
You've given us the option to add additional fields to our default template when we CREATE a new entry; why not also give us the option to access those same additional fields (and field names in the pull down lists) when we EDIT the same entry?
This should even apply to entries which were originally created using the original Apple template -- the new fields and field names created by the user should become available whenever you go into Edit mode.
8) Make Distribution Lists easily printable, exportable, and more flexible.
Should be able to select more than one e-address from a particular contact for a distribution list (as in both members of a couple, or both the home and work e-addresses for a particular individual -- instead of having to create a separate card just for those separate e-addresses).
Also like to be able to simply copy/paste a distribution list (and/or Export it as a Tab or Paragraph delineated text file), which I could either print out, or e-mail to a friend who needed it, etc.
9) Hours of Operation field.
For commercial/business entries, a default "Hours" field would be nice, with some sort of easy-to-select options to facilitate entering the times a business, a store, or even a customer service line is open on given days. There should even be the ability to enter seasonal hours for different times of year.
I hope that these features have already been incorporated into the next release of Address Book -- and if not, that you'll give serious consideration to implementing them as soon as possible. Your users will thank you.Download AddressBookToCSV 1.1 from www.versiontracker.com. It will export your contacts to a CSV file that can be imported by Gmail.
Why reward points?(Quoted from Discussions Terms of Use.)
The reward system helps to increase community participation. When a community member gives you (or another member) a reward for providing helpful advice or a solution to their question, your accumulated points will increase your status level within the community.
Members may reward you with 5 points if they deem that your reply is helpful and 10 points if you post a solution to their issue. Likewise, when you mark a reply as Helpful or Solved in your own created topic, you will be awarding the respondent with the same point values. -
Address Book contact list display
The issue is not Lion exclusive but a general Address Book "feature" The contacts categorizing by the first letter finishes with Z, i.e. it works only for the English alphabet. All contacts in Russian go under "#" category which is extremely inconvenient when using the app both on a laptop and a phone
Is there any known fix for this "feature"? Or maybe it's possible to suggest to the developers to fix the problem?
Thank you very much for any hints!Posted a suggestion at http://www.apple.com/feedback/macosx.html
-
I would like to share a "Group" with my brother who lives half way around the world. Is there any way that we could keep a Group so we can both access this from Address Book. I presume that would mean syncing it somewhere online so he could write to his Address Book and I could write to mine and then they would sync online so we both have exactly the same entries.
Any help on this would be much appreciated.Well, if the above-described manual approach won't work for you, I dunno. Maybe pay money for .mac family plan service, put a common Address Book there, and both subscribe to it? (Not really sure of the particulars of that coz' I don't do .mac). Anyone else with a novel idea, or able to expound on the "Subscribe to (.mac) address book" feature?
(If you find that my post solves your problem, or is actually helpful towards arriving at a solution to your problem, please consider clicking on either the "helpful" or "solved" buttons in the header of my post. Thank you.) -
Address Book Version - Google Sync
I have my iMac address book synced to Google Contacts and wanted to set up my Powerbook the same way but didn't find the same setup screens. When I checked, the Address Book version on my iMac is 5.0.1 (864) and on my Powerbook it is 4.1.2 (702). I thought Software Update would keep my Address Book software current. Maybe it is and I have the latest version on my Powerbook.
Before I try it, does anyone know if Address Book Version 5.0.1 (864) will work on a Powerbook? If so, I can just Firewire it over there. For those of you who know the Apple website, could I have found the answers to these questions there? I looked but was unsuccessful.Address Book 4.1.2 is the version that runs in OS X 10.5.8, the last OS version any Powerbook can run. Your iMac is apparently running Snow Leopard and its later version of Address Book. Because SL requires an Intel processor, I doubt that its version of AB will run on a Powerbook.
-
Disappearing Address Book Contacts
This is a duplicate or my response to another similar problem, but I think this problem should have it's own topic.
My Address book contacts have been occasionaly disappearing, I would open Address book and all my contacts would be gone except for the "Apple" and "Me". And I would end up restoring from a backup, which I been doing fequently when this problem first started.
Recently I discovered what the problem is. I have an external drive connected and somehow my Address book contacts have defaulted to being stored on the external drive in a folder I had created for some temporary work some time ago. When I noticed it was still there (some time later) I trashed it.
It took a while for me to make the connection that when I deleted the folder, the address contacts would be gone. Because I wouldn't use my Address Book for days or maybe weeks afterwards
I finally realized that this "temporary" folder kept mysteriously reappearing, so when I checked, it contained the same folder structure as the <user>/library/application support/Address Book/ and sure enough that is where my address book is storing my contacts.
This has me baffled, there are no preference settings to even change the default storage location (or I couldn't find them) Looking at com.apple.addressbook.plist has no storage folder either.
Any ideas on how this can be corrected? Or even how it happened?
Little more information. This is my primary user account which has FileVault turned on and also syncs with dotmac to my MacBook. The sync works fine by the way, but those contacts should be within the secure volume.
My only thought for a fix would be to back up my user folder (data only, no settings). Delete the account. And then recreate the account and restore my data, but I'd rather not do that if I don't have to, I'm hoping for the quick and simple fix.
What do yo think?Replying to my own post.
I think I've fixed my problem by simply disconnecting the external drive. With the drive disconnected, Address Book came up empty again. So I restored from my backup and checked that the files updated in the correct (home) folder.
<user>/Library/Application Support/Address Book/
Still haven't any clue as to how my contacts suddenly started saving themselves on my external drive to begin with. -
Apple Script to Sort through the Address Book
Dear All,
I am quite new to Apple and just a learner on Apple-scripts. Its been quite a task to learn.. I would require some help on a few things..
The script will eventually use numbers to send email and get the user inputs and any yet to reach there..
After going through lots of scripts to sort through the address book and make a clean address book, i found they are quite slow in processing takes about 20~30 Minutes to get through 2000 Contacts..
Hence after reading posting of Mr. Koenig & Mr. Hiroto and specifically on deep copy. I have written the following code which does the following on 2000 records within 6~8Mins.
The Script work its way through all the contact is the address List.. and creates Groups
1. Duplicate Email Id's — List of Contacts with same email ID's including Contacts where the email Id is entered twice.. (Strange.. Address Book Issue, copy of the email Id under work & home)
2. Duplicate Phone — List of Contacts with same Phone Numbers including Contacts where the Phone Nos is entered twice.
3. Duplicate Name — List of Contacts with Same Names
4. Duplicate No Name — List of Contacts without the First Name and Last Name
it also sort the Contacts under the following Group which you can edit later with all the information's..
1. Only Email Ids — List of Contacts with Email ID and No Phone Numbers
2. Only Phone — List of Contacts with Phone Numbers and No Email Id's
3. No Email or Phone — List of Contacts with No Email Id's and No Phone numbers (some half completed contacts )
My Question to the forum is why is the following code still taking too much time..
set onlyDupEList to every person of group theGroupEmail
repeat with j from 1 to count of Dup_email
set tempdata to item j of Dup_email
if onlyDupEList does not contain {tempdata} then add tempdata to group theGroupEmail
end repeat
save application "Address Book"
and the scripts slows down when the items in the list is quite large (over 800 or so )..
Any help is appreciated and thanks in advance..
-- the code ---
global MsgTitle
on run
set MsgTitle to "Search for Duplicates in Address Book Contacts"
display dialog ¬
"This Script takes a while to finish" & return & "maybe 10 min or More..." & return & "Depending on the Address Book Contacts." & return & return & "Hence Allow it to run for the while" with title MsgTitle ¬
with icon 1 ¬
buttons {"Continue"} ¬
giving up after 5
set question to display dialog "Select the Duplicate Search Parameter " with icon 1 with title MsgTitle ¬
buttons {"Contact Name", "Contacts on Phone & Email Id's", "Quit"} default button 3
set rtnValue to button returned of question
if rtnValue is "Quit" then
-- tell application "Address Book" to quit
tell me to quit
end if
if rtnValue is "Contact Name" then
-- tell application "Address Book" to quit
GetDup_byName("Duplicate Name")
end if
if rtnValue is "Contacts on Phone & Email Id's" then --Contacts on Phone & Email Id's
-- tell application "Address Book" to quit
Get_dup()
end if
end run
--- Search on Name Field ---
on GetDup_byName(theGroupName)
set question to display dialog "Do you want to search for duplicates based on Names? " with icon 0 with title MsgTitle ¬
buttons {"Continue", "Quit"} default button 1
set rtnValue to button returned of question
if rtnValue is "Quit" then
-- tell application "Address Book" to quit
tell me to quit
end if
tell application "Address Book"
activate
set biglist to {}
set NoNameList to {}
set theGroupNoName to "Duplicates No Names"
set theGroup to theGroupName
-- if not (exists (group "Dupilicate Entries")) then
if not (exists (group theGroup)) then
make new group with properties {name:theGroup}
save
end if
if not (exists (group theGroupNoName)) then
make new group with properties {name:theGroupNoName}
save
end if
set the_names to name of people
repeat with i from 1 to number of items in the_names
set theName to item i of the_names
-- return theName
if theName is not in biglist then
copy theName to end of biglist
else
set counter to (people whose name is theName)
if (count of counter) > 1 then
repeat with i from 1 to number of items in counter
set this_item to item i of counter
-- display dialog this_item
add this_item to group theGroup
end repeat
-- return counter as string
end if
end if
-- captures the Contacts without Name ---
if theName contains "@" then
-- display dialog theName
set counterList to (people whose name is theName)
repeat with i from 1 to number of items in counterList
set this_item to item i of counterList
-- display dialog this_item
add this_item to group theGroupNoName
end repeat
end if
-- save application "Address Book"
end repeat
save application "Address Book"
set peopleCount to (count every person)
-- set peopleCount to 50 -- only for testing --
repeat with i from 1 to peopleCount
set first_name to first name of person i as string
set Last_Name to last name of person i as string
if first_name is equal to "missing value" and Last_Name is equal to "missing value" then
-- display dialog first_name & " : " & Last_Name
set end of NoNameList to (id of person i)
end if
end repeat
repeat with j from 1 to the count of NoNameList
set tempdata to item j of NoNameList
-- set testdata to person id tempdata
-- if (name of groups of testdata does not contain theGroupNoEmail) then
add tempdata to group theGroupNoName
-- end if
end repeat
save application "Address Book"*)
display dialog ¬
"This Script Finished Processing Address Book Contacts the Duplicates are in the group" with title MsgTitle ¬
with icon 1 ¬
buttons {"Continue"} ¬
giving up after 5
end tell
end GetDup_byName
on Get_dup()
set question to display dialog "Do you want to search for duplicates based on Names? " with icon 0 with title MsgTitle ¬
buttons {"Continue", "Quit"} default button 1
set rtnValue to button returned of question
if rtnValue is "Quit" then
-- tell application "Address Book" to quit
tell me to quit
end if
tell application "Address Book"
activate
set theGroupEmail to "Duplicate Email Id's"
set theGroupPhone to "Duplicate Phone"
set theGroupNoEmail to "Only Phone Numbers"
set thegroupNoPhone to "Only Email Id's"
set theGroupNoData to "No Email or Phone"
-- set theGroup to theGroupName
if not (exists (group theGroupEmail)) then
make new group with properties {name:theGroupEmail}
save "Address Book"
end if
if not (exists (group theGroupPhone)) then
make new group with properties {name:theGroupPhone}
save "Address Book"
end if
if not (exists (group theGroupNoEmail)) then
make new group with properties {name:theGroupNoEmail}
save "Address Book"
end if
if not (exists (group thegroupNoPhone)) then
make new group with properties {name:thegroupNoPhone}
save "Address Book"
end if
if not (exists (group theGroupNoData)) then
make new group with properties {name:theGroupNoData}
save "Address Book"
end if
set ListofPeople to people --the_ID
set ListofEmailID to value of emails of people --the_emails
-- return ListofEmailID
set ListofPhones to value of phone of people -- the_phones
-- return ListofPhones
set biglist to {}
set ListEmail_Uniq to {}
set ListEmail_Dup to {}
set No_PhoneList to {}
set No_EmailList to {}
set No_dataList to {}
set FlagEmail to false
set FlagPhone to false
-- repeat with i from 1 to number of items in the_emails
repeat with i from 1 to count of ListofEmailID
set thePersonID to item i of ListofPeople
set theEmails to item i of ListofEmailID
if theEmails is equal to {} then
set end of No_EmailList to thePersonID
else
-- set FlagEmail to true
repeat with j from 1 to count of theEmails
set tmpdata to item j of theEmails
-- return tmpdata
if tmpdata is not in biglist then
set end of biglist to tmpdata
set end of ListEmail_Uniq to {tmpdata} & {thePersonID}
else
set end of ListEmail_Dup to {tmpdata} & {thePersonID}
end if
end repeat
end if
end repeat
-- return ListEmail_Uniq
-- return ListEmail_Dup
-- save application "Address Book"
set biglist to {}
set ListPhone_Uniq to {}
set ListPhone_Dup to {}
-- repeat with i from 1 to number of items in the_emails
repeat with i from 1 to count of ListofPhones
set thePersonID to item i of ListofPeople
set thePhones to item i of ListofPhones
if thePhones is equal to {} then
set end of No_PhoneList to thePersonID
else
-- set FlagPhone to true
repeat with j from 1 to count of thePhones
set tmpdata to item j of thePhones
-- return tmpdata
if tmpdata is not in biglist then
set end of biglist to tmpdata
set end of ListPhone_Uniq to {tmpdata} & {thePersonID}
else
set end of ListPhone_Dup to {tmpdata} & {thePersonID}
end if
end repeat
end if
end repeat
-- return ListPhone_Uniq
-- return ListPhone_Dup
set the Dup_email to {}
-- Find the Duplicates from the sorted list --
repeat with i from 1 to the count of ListEmail_Dup
set tempdata to item i of ListEmail_Dup
set dataEmailDup to item 1 of tempdata
set dataPersonDup to item 2 of tempdata
repeat with j from 1 to the count of ListEmail_Uniq
set tempdata to item j of ListEmail_Uniq
set dataEmailUniq to item 1 of tempdata
set dataPersonUniq to item 2 of tempdata
-- display dialog mainEmail1 & "=" & mainEmail2 & " " & mainID1 & "=" & mainID2
if dataEmailDup is equal to dataEmailUniq then
set end of Dup_email to dataPersonDup -- & "," & dataPersonUniq
set end of Dup_email to dataPersonUniq
end if
(* -- the code takes lot more time if add to group was used --
if dataEmailDup is equal to dataEmailUniq then
set testdata to person id dataPersonDup
add testdata to group theGroup
set testdata to person id dataPersonUniq
add testdata to group theGroup
end if
end repeat
end repeat
-- return Dup_email
set the Dup_Phone to {}
-- Find the Duplicates from the sorted list --
repeat with i from 1 to the count of ListPhone_Dup
set tempdata to item i of ListPhone_Dup
set dataPhoneDup to item 1 of tempdata
set dataPersonDup to item 2 of tempdata
repeat with j from 1 to the count of ListPhone_Uniq
set tempdata to item j of ListPhone_Uniq
set dataPhoneUniq to item 1 of tempdata
set dataPersonUniq to item 2 of tempdata
-- display dialog mainEmail1 & "=" & mainEmail2 & " " & mainID1 & "=" & mainID2
if dataPhoneDup is equal to dataPhoneUniq then
set end of Dup_Phone to dataPersonDup -- & "," & dataPersonUniq
set end of Dup_Phone to dataPersonUniq
end if
(*if dataPhoneDup is equal to dataPhoneUniq then
set testdata to person id dataPersonDup
add testdata to group theGroup
set testdata to person id dataPersonUniq
add testdata to group theGroup
-- save
end if*)
end repeat
end repeat
-- return Dup_Phone
set onlyDupEList to every person of group theGroupEmail
repeat with j from 1 to count of Dup_email
set tempdata to item j of Dup_email
if onlyDupEList does not contain {tempdata} then add tempdata to group theGroupEmail
end repeat
save application "Address Book"
set onlyDupPList to every person of group theGroupPhone
repeat with j from 1 to count of Dup_Phone
set tempdata to item j of Dup_Phone
if onlyDupPList does not contain {tempdata} then add tempdata to group theGroupPhone
end repeat
save application "Address Book"
set onlyPhoneList to every person of group theGroupNoEmail
repeat with j from 1 to the count of No_EmailList
set tempdata1 to item j of No_EmailList
if No_PhoneList does not contain {tempdata1} then
if onlyPhoneList does not contain {tempdata1} then add tempdata1 to group theGroupNoEmail
end if
(*set flagE to false
repeat with i from 1 to the count of No_PhoneList
set tempdata2 to item i of No_PhoneList
if tempdata1 is equal to tempdata2 then
set flagE to true
exit repeat
end if
end repeat
if flagE is false then add tempdata1 to group theGroupNoEmail*)
end repeat
save application "Address Book"
set onlyEmailList to every person of group thegroupNoPhone
repeat with j from 1 to the count of No_PhoneList
set tempdata1 to item j of No_PhoneList
if No_EmailList does not contain {tempdata1} then
if onlyEmailList does not contain {tempdata1} then add tempdata1 to group thegroupNoPhone
end if
end repeat
save application "Address Book"
set onlyList to every person of group theGroupNoData
repeat with i from 1 to count of ListofPeople
if (item i of ListofEmailID is equal to {}) and (item i of ListofPhones is equal to {}) then
set tempdata to item i of ListofPeople
if onlyList does not contain {tempdata} then add tempdata to group theGroupNoData
end if
end repeat
save application "Address Book"
display dialog ¬
"This Script Finished Processing Address Book Contacts the Duplicates are in the group" with title MsgTitle ¬
with icon 1 ¬
buttons {"Continue"} ¬
giving up after 5
end tell
end Get_dup
on quit
--set MsgTitle to "Change Email ID's Domain Name"
save application "Address Book"
display dialog "Contact Srikanth Kamath at [email protected] for any Help" with title MsgTitle with icon 1 buttons "OK"
continue quit
end quitHello Srikanth Kamath,
I'm not sure you're still following this thread, but anyway here's sample code I said I'd post later.
--SCRIPT2
main()
on main()
script o
-- input data
property xx : {1, 2, 3, 4, 5} -- list of parents
property yy : {{"g", "h"}, {"a", "b"}, {"b", "e", "f"}, {"e"}, {"c", "d"}} -- list of children per parent
-- work list
property pp : {} -- list of children tagged by parent; i.e, lits of {child, parent}
property qq : {}
property rr : {}
-- (1) build list of children tagged by parent
repeat with i from 1 to count my xx
set x to my xx's item i
set y to my yy's item i
repeat with p in y
set end of my pp to {p's contents, x}
end repeat
end repeat
--return pp -- {{"g", 1}, {"h", 1}, {"a", 2}, {"b", 2}, {"b", 3}, {"e", 3}, {"f", 3}, {"e", 4}, {"c", 5}, {"d", 5}}
-- (2) sort tagged list by child as key
msort(my by_key1, my pp)
--return pp -- {{"a", 2}, {"b", 2}, {"b", 3}, {"c", 5}, {"d", 5}, {"e", 3}, {"e", 4}, {"f", 3}, {"g", 1}, {"h", 1}}
-- (3) retrieve parents with duplicate child
(* retrieve list of {child, parent} for duplicate child *)
set my qq to uniq(my eq_key1, my pp, {_dup:true})
--return qq -- {{"b", 2}, {"b", 3}, {"e", 3}, {"e", 4}}
(* retrieve list of parent *)
repeat with q in my qq
set r to q's item 2
if r is not in my rr then set end of my rr to r
end repeat
return rr -- {2, 3, 4}
end script
tell o to run
end main
on by_key1(x, y)
msort's comparator for list of lists
key = item 1, ascending
returns true iff x and y are out of order
return x's item 1 > y's item 1
end by_key1
on eq_key1(x, y)
uniq's comparator for list of lists
key = item 1
returns true iff x and y are considered equal
return x's item 1 = y's item 1
end eq_key1
on msort(cmp_, aa) -- v1.2f2
Basic recursive merge sort handler having list sorted in place.
handler cmp_ : comparator
* cmp_(x, y) must return true iff list element x and y are out of order.
list aa : list to be sorted in place
script o
property parent : {} -- limit closure to minimum
property xx : aa -- to be sorted in place
property xxl : count my xx
property yy : {}
property cmp : cmp_
on merge(p, q, r)
property xx: source list
integer p, q, r : absolute indices to specify range to be merged such that
xx's items p thru r is the target range,
xx's items p thru (q-1) is the first sublist,
xx's items q thru r is the second sublist.
(p < q <= r)
local i, j, k, xp, xr, yi, yj, ix, jx
if r - p = 1 then
set xp to my xx's item p
set xr to my xx's item r
if my cmp(xp, xr) then
set my xx's item p to xr
set my xx's item r to xp
end if
return -- exit
else
if p < q - 1 then merge(p, (p + q) div 2, q - 1)
merge(q, (q + r + 1) div 2, r)
end if
At this point, sublits xx[p, q-1] and xx[q, r] have been already sorted (p < q <= r)
if my cmp(my xx's item (q - 1), my xx's item q) then
else -- xx[p, q-1] & xx[q, r] are already sorted
return
end if
set yy to my xx's items p thru r -- working copy for comparison
set ix to q - p
set jx to r - p + 1
set i to 1
set j to q - p + 1
set k to p
set yi to my yy's item i
set yj to my yy's item j
repeat
if my cmp(yi, yj) then
set my xx's item k to yj
set j to j + 1
set k to k + 1
if j > jx then
set my xx's item k to yi
set i to i + 1
set k to k + 1
repeat until k > r
set my xx's item k to my yy's item i
set i to i + 1
set k to k + 1
end repeat
return
end if
set yj to my yy's item j
else
set my xx's item k to yi
set i to i + 1
set k to k + 1
if i > ix then
set my xx's item k to yj
set j to j + 1
set k to k + 1
repeat until k > r
set my xx's item k to my yy's item j
set j to j + 1
set k to k + 1
end repeat
return
end if
set yi to my yy's item i
end if
end repeat
end merge
on cmp(x, y)
(* primary comparator *)
return x > y
end cmp
local d, i, j
if xxl ≤ 1 then return
if cmp_ = {} then set my cmp to cmp -- comparator fallback
my merge(1, (xxl + 1) div 2, xxl)
end script
tell o to run
end msort
on uniq(eq_, aa, {dup:dup}) -- v0.21
handler eq_ : comparator eq_(x, y) that returns true iff x and y are considered equal
list aa : pre-sorted list
(precisely, a list organized such that any duplicate items are adjacent to each other)
boolean _dup : option whether return unique items or duplicate items
return duplicate if true, unique otherwise.
script o
property parent : {} -- limit closure to minimum
property xx : aa
property yy : {}
property eq : eq_
on eq(x, y)
(* primitive comparator *)
x = y
end eq
if eq_ = {} then set my eq to my eq -- comparator fallback
local t, x, _on
if (count my xx) < 2 then return my xx's contents
if _dup then
set _on to false
set t to my xx's item 1
repeat with i from 2 to count my xx
set x to my xx's item i
if eq(x, t) then
set end of my yy to t
set _on to true
else if _on then
set end of my yy to t
set _on to false
end if
set t to x
end repeat
if _on then set end of my yy to x
return my yy's contents -- return duplicate elements
else
set t to my xx's item 1
set end of my yy to t
repeat with i from 2 to count my xx
set x to my xx's item i
if eq(x, t) then
else
set end of my yy to x
set t to x
end if
end repeat
return my yy's contents -- return uinque elements
end if
end script
tell o to run
end uniq
--END OF SCRIPT2
In order to apply it to your current Address Book problem, replace the main() handler with something like the following one.
--SCRIPT2a (part)
on main()
script o
-- input data
property xx : {} -- list of parent; given later
property yy : {} -- list of children per parent; given later
-- work list
property pp : {} -- list of children tagged by parent; i.e, lits of {child, parent}
property qq : {}
property rr : {}
-- (0) get input data from AB
tell application "Address Book"
tell people
set xx to its id
set yy to its every email's value
end tell
end tell
-- (1) build list of children tagged by parent *)
(* omitted (same as the previous) *)
-- (2) sort tagged list by child as key
(* omitted (same as the previous) *)
-- (3) retrieve parents with duplicate child
(* omitted (same as the previous) *)
-- (4) group the retrieved people in AB
tell application "Address Book"
repeat with r in my rr
add person id r to group "duplicate email"
end repeat
end tell
end script
tell o to run
end main
--END OF SCRIPT2a
Good luck,
Hiroto
Message was edited by: Hiroto
Maybe you are looking for
-
How do I access the EC Embedded Controller firmware level with wmi win32?
Hi I have used the Win32 classes to access the Bios level, model, serial and asset number The only data I cannot find is the EC firmware level I cannot find it in any of the WIN32 classes WIN32_BIOS WIN32_BASEBOARD etc Does anyone know if this access
-
How to pick up a Particular value in a table
Hi all, I have the output of a query to display in a table.Now i want to pickup some values from the output table and use them to display in a graph. I wanted to pick the values as below: i have 6 rows in the table and 10 columns in the table. How ca
-
Performance manager collection
The majority of the host end device data is collected but there are hosts that there is no data just n/a in the following fields: Avg. Rx/sec Avg. Tx/sec (Rx+Tx)/sec Peak Tx/sec Peak Tx/sec Errors Discards all have n/a entries. How do I enable the co
-
SQL*Loader-704: Internal error: ulconnect: OCIEnvCreate [-1]
I am getting the following error on my Windows XP box: sqlldr illumina/illumina@rmdodmsrv ivsheader2.ctl SQL*Loader: Release 11.1.0.7.0 - Production on Wed Feb 17 13:40:02 2010 Copyright (c) 1982, 2007, Oracle. All rights reserved. SQL*Loader-704: In
-
Music Ive Purchased isnt showing up in the Left hand side. And On the Home page of Itunes Store where it has the New Purchased button, all my missing songs are listed. But when I try to Download them, it says that I have to Authorize the computer, Wh