Procedure to make a Java address book
Hi all,
I am a java beginer . I am planning to make some small projects. My first attempt is an Address Book . I want to know what all are the things i have to know to make an address book in java. I want to know how can i connect the code to the database. I am planning to use Microsoft Access as the Database .
Regards
Rahul
rahulreigns wrote:
Hi pals,
Thanks a lot for your valuable replies. But still I have to go through some more clarifications . how to connect through the embedded database like derby . Also how to make those data to be added in the database . I mean how to code those things.
I am just a beginner in java . I have lots of doubts . But right now pls help me in these problems that i have mentioned here.
Thanks and Regards
RahulWell if you really are new then you are jumping WAY ahead. You need to start at the beginning getting to know things liek variables, classes, objects, methods, scope, polymorphic behavior. You are IN NO shape to jump straight into database and collections before doing the basics. Java takes time about a year I would say if you are dedicated to get to where you are now... (databases).
Get a good book like Head First Java and do lots of basic code. I have an oudated book that taught me well about the very basics and the reason was it was FULL FULL of excercises.
Java Programming Comprehensive Concepts and techiques
Java Head First
and google.
So long as theres java 5 or 6 in the title you will do great.
Similar Messages
-
How do I make a 2nd Address book?
I want to create a group and change the cards in that group without the original card changing? I can do that with NOW Contact and could do that years ago with Dynodex. Addess Book works like iTunes, with a Library and Playlist format. How do I create a duplicate addess book that I can change?
Example: Xmas Card group. I want to add a spouse's name to the card for envelope purposes but don't want that in the permanent record.Try a slick little shareware app called rooSwitch,
http://roobasoft.com/rooSwitch/
There's a 30-day trial. I haven't used it for exactly what you're after but I'm pretty sure it would work for that. Open Address Book in rooSwitch, duplicate the default profile and then make your changes in the copy. Your original should be preserved. Hope that helps.
PowerBook G4 15 1.5GHz Mac OS X (10.4.8) -
How do i make labels using address book
I know how to make labels. However, instead of using the actual peoples names, for ex "Bob and Mary Smith" I want the label to say "The Smith Family". Even though I have a special "group" for labels, if I change the name line as I indicated it changes the address permanently and I'd have to go back when I'm done and reconvert all the addresses back to "Bob and Mary Smith". Is it possible to have one group using "The Smith Family" format AND STILL RETAIN the primary address book with the "Bob and Mary Smith" format.
Help please for Xmas mailing list. I'm stumped.Enter all your addresses into Address Book's VCards.
You can drag a selection of these into a Group which you then select and print.
The Labels options are in the Print Dialog box.
Peter -
Is there a way in Thunderbird's Address Book to create additional collections of addresses, say "Professional Colleagues", in the same pane as "Collected Addresses" and "Personal Address Book". In other words, these latter two collections of addresses appear to be the default. Can I add additional collections?
Open address book window
From the menu bar select File-New-Address Book
No menu bar? Press the alt key. -
Can I make a Copy of Address Book?
Hi,
I really like Address Book. I have a group of children that I'd like to make a list of. They are all part of a program that was formed back in 1992. Our club has recruited about 1300 since then and I would like to make use of Address Book as a way to track and record them. I have a directory in a Word category, but it doesn't work the way Address Book does, and is difficult to use sometimes. The notes section of Address Book where a majority of data would obviously be placed, would also be a great way to keep contact with them if we have any activity that may interest them.
My questions are:
1. Can a copy of Address Book be made so that I can have Address Book #1 which I currently use, and then #2 for the children in the program?
2. If this can be done, would I be able to keep a separate mail program to track correspondence?
Thank you for any help!For the Address Book, you can simply create a Group for your club. Click the + sign in the bottom left corner, and create two (or more Groups). You may want one for your club, one for your personal contacts. When you click on that Group, you will see only those contacts. This is your best bet if you want to stick with Address Book for this.
If you want two truly separate address books, that is more difficult to manage. You can have a personal address book, and use File > Back up Address Book to save that as an archive. Then delete those entries and put your club members in. Then use File > Back up Address Book again to create an archive of that book (give it a different name!!). To switch between books, use the File > Revert to Address Book Backup command to load the other book. You will need to re-back up each book every time you make a change to it else the changes will be lost. That's why you're better off using the Groups - that's what they're for!
As for Mail, again, separate programs are not the best solution. You can set up a different email account specific for your club emails (with your ISP, gmail, whatever) and different User Profiles in Mail for your personal email account and your club email account. If you are going to use only one email account, you can set create a folder in Mail to store your club emails, and you may consider a filter to sort replies from those 1300 people into a folder automatically.
Hope this helps... -
Can anyone make labels with Pages and merging Address Book?
I want to make labels from Address Book that includes the name, Company, and address. Because Address Book makes you select Name or Company, the labels will only come out with one or the other, not both. Is there a template in Pages that imports both Name and Company? Surely, I am not the only person who wants to make mailing labels that includes both the name of the person and the Company. I don't see it in the tutorial and Apple Care indicated that it couldn't be done (but I think I was sent to the wrong person) Huh? No label possible with a name and company both!
I persevered with this. I don't think you can really print both the name and the company in Pages which is a big deficiency in a nice program but you can in Address Book. Change all your contacts so the name is the default rather than the company. Select Print in Address Books, go to labels or envelopes, and check the box that says "print company". I wish his had been put in writing somewhere. I wasted a great deal of time inputting the same information into QuickBooks so I could print out labels to about 40 customers.
-
Address Book and Sync Issues with Verizon Curve
I got my first BB about a month ago and like it, for the most part. I have three major issues with it now:
1. SYNC I've downloaded and installed the latest software from pocket mac and my first sync went fine (I have a MacBook Pro running 10.4.11). Every sync after that has failed. I've tried the recommended solutions like cleaning out the sync history, re-installing, etc. I've un-installed and re-installed several times with no change. The sync begins fine and but never finishes. One thing that could be a problem is the version - every time I download the software, I've clicked on the newest version, (PocketMacForBlackBerry4.1.25.dmg) but after it installs, it calls itself Version 1.2 (1.4). Shouldn't it be 4.1? I know there are issues with older versions, but I can't seem to get 4.1 installed.
2. ADDRESS BOOK Sinse my first and only sync, I've needed to add a LOT of contacts into my address book manually. It doesn't work most of the time. When I add a new contact and save, it won't exit the contact, but pops up this note: "Address updated externally, changes will be lost and the viewer closed." The same thing happens if I'm trying to create a new entry or edit an existing entry. The real crazy part is that many of the numbers I've added show up when they are incoming calls - the name and correct phone number, but when I try to call out on my phone, the contact info will not show.
3. GPS Not a major deal, but none of the GPS services work. I use the Google Maps mobile app, but the GPS does not work. Neither does any of the other software I have installed for GPS. I have gone into the preferences and enabled the GPS and saved the changes. The logo even appears on the main screen, it just doesn't work. *NOTE* I've found that Verizon has disabled the GPS unless you pay for the VZ Navigator service. Typical Verizon marketing. Is there any way to bypass Verizon's block?
Needless to say, I'm not very impressed with Pocket Mac software of the RIM address book utility. I've read over many of the posts in this forum and see many other frustrated users. Makes me really think about throwing my money at an iPhone.
If anyone has any solutions to my problems/frustrations, I would be VERY grateful.
thanks for your time,
-marlowe
Message Edited by marlowe on 11-19-2008 12:12 PMI cannot say I AGREE! any louder.
This pocketmac people claim in the website to offer "solutions" but they have given me lots of headaches and I too would just go and buy an iphone. The only problem is that AT&T does not work in my house.
No matter how many tricks I have tried I cannot make my 8330 accept the changes i make in my address book. It is absolutely a killer.
Some previous user said that bluettoth could help but at any rate that was to over ride the address book with the 8330 data and in my case i was trying to do the opposite.
Any help on this would be greatly appreciated! -
Thunderbird can't send email to addresses in Address Book because of formatting error
My Thunderbird can't send email to an address picked from the Address Book. It gives the following error:
"An error occurred while sending mail. The mail server responded: 5.1.1 <"name@telconame"@telco.com> Unknown recipient. Please check the message recipient "name@telconame"@telco.com and try again."
You can see that Thunderbird has garbled the name/address pair: "name@telconame"@telco.com" so that it's unworkable.
If I type the email address by hand, it sends the email OK. But it can't retrieve an address from the Address Book without garbling the name/address pair. Win 7, TBird Version 32.0; it's the same in SafeMode.
Any ideas?Make two Address Book entries for him; one for each of his e-mail addresses. Make a new Address Book group and put both of his entries in it. When you send him an e-mail just type in the name of the group in the To: field.
-
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 -
Just updated my phone to get an app and assumed my address book contacts would be backed up but it hasn't. Is there any way of retrieving the information and aving it for the future?
If it is the address book, plug your phone into itunes an click on your device in the left and then go to the other tab and make sure your address book is checked to sync
-
After syncing mac address book to ipad contacts, the ipad does not display all the fields that were in Mac address book (in my case all the email addresses). Anyone have a fix?
I have a problem similar to DeeRun's.. I would like the IM fields to be synced.. I use them to send e-mails to when the e-mail field is empty or when i just want to use that specific address.. Very annoying, would take hours if not days to transfer all those IM adresses to e-mail fields in addressbook..
EDIT: not to mention the mess it would make in my address book!
Message was edited by: 1NStanley -
Lost all Contacts in Address Book
I had over 500 contacts in my Address Book. Recently I had a problem with my iPhone and the Apple Store gave me a new one. I synched it with my computer a couple of times and ended up with duplicates of my contacts. I manually removed the duplicates on my phone. I also have a MobileMe account set to synch my contacts, mail, calendar. A couple of days ago I realized that my Address Book on my Mac was empty. All contacts gone! I tried to restore them from Time Machine but it only brought back 40 contacts. I've spent hours with online support for MobileMe. No help at all. New contacts put on the iPhone and Calendar items do synch back to my iMac. AppleCare for iPhone couldn't help me either. I've been a .mac user for a couple of years and have backups going back that far but no has been able to tell me how to recover my Contacts file. Any ideas?
Mobile Me has had such bad issues over the past week or two...
With address book on the Mac, you simply select all the contacts and drag them on to your desktop and this will make one big Address book export file, that'll enable you to save and import it later on...
however it sounds like you are past that point, have you looked deep in to you ~/library folder for any scraps of data??? sadly, it sounds like it's gone, I had the same thing on launch day of Mobile Me... the MobileMe cloud deleted EVERYTHING, thank goodness I had a backup of the address book from a few months ago...
Time Machine is one of the most buggy backup softwares I've ever used, and wouldn't recommend it for any serious user yet.
I'm sorry this is probably not the news you want to hear!!!
Have you ever made backups manually NOT using time machine???
http://www.iphoneuserguide.com -
HT2486 connect address book to connect server
When I update my contacts on my Connect Server, it doesn't seem to sync with Apple Address Book (Lion). I'm sure I have the account and server information correct (I'm using the same connections as I use for iCal, which seems to sync nicely). Am I doing something wrong or does Apple Address Book not sync to Connect Servers?
Thanks,
JeffUnder Tools (or AppMenu/Options)/Options/Composition/Addressing, make sure "Local Address Books" is checked.
Another option is to show the Contacts sidebar in the Write window (press F9). -
All fields in apple "address book" to iPhone "contacts" possible?
I need to have the complete record from my apple "address book" application on my phone's and iPad's contact info. Are the fields even there? For example, the "child", "partner", "Spouse", etc. Is there a better app that mirrors the info perfectly and syncs w MobileMe?
I have a problem similar to DeeRun's.. I would like the IM fields to be synced.. I use them to send e-mails to when the e-mail field is empty or when i just want to use that specific address.. Very annoying, would take hours if not days to transfer all those IM adresses to e-mail fields in addressbook..
EDIT: not to mention the mess it would make in my address book!
Message was edited by: 1NStanley -
Address Book and Verizon Cell Phones
I have a Verizon VX8000 candy bar phone. It has Bluetooth. But I can't get my contacts out of it to my Address Book. Is there a way to do so?
Or how about a way to get all my email contacts out of Mac Mail into Address Book.
Any help would be great!I cannot say I AGREE! any louder.
This pocketmac people claim in the website to offer "solutions" but they have given me lots of headaches and I too would just go and buy an iphone. The only problem is that AT&T does not work in my house.
No matter how many tricks I have tried I cannot make my 8330 accept the changes i make in my address book. It is absolutely a killer.
Some previous user said that bluettoth could help but at any rate that was to over ride the address book with the 8330 data and in my case i was trying to do the opposite.
Any help on this would be greatly appreciated!
Maybe you are looking for
-
Is there a way to add a static route in an Ipod touch ?
I am trying to get the ipod touch to configure correctly for our wireless network. The wireless side does not provide DNS or DHCP directly . Rather this is done from a different subnet . This assists to a small extent with our wirless security in tha
-
My iPhone 4 is using 4.3.3 and I want to update to iSO 6.1. I can back it up and it starts to download it through iTunes but then I get an error message 0xE8000067. Tried all the things on the apple support site (checked USB port, deleted the 3 exe
-
Calling a pl\sql package main precedure from a SHL script
If I run this procedure from TOAD suppl_load_main MY package is executed, I need to be able to handle this to the user, so they can run it from our application, I am using a shl script to call this precedure, I done this before and it works, I never
-
Hi, 1. can anyone tel me y we use value type in reporting? 2. Version type? Thanks in advance Jani Sk
-
Moving from flash CC trial to paid version
I installed a trial version of Flash CC - it has now expired. I joined the Creative Cloud single-app membership for Flash Professional (one-year) - I was presented with a download button, this evoked my Creative cloud, the Flash CC instance now read