Näppärä plug-in ruotsin pojilta AdressBookiin

[nalle76]

http://macworld.idg.se/2.1038/1.183146

Eli tolla saa osoitetiedot Enirolta AdressBookiin todella helposti. Sain kyllälkin vain toiminaan ruotsalaisilla numeroilla. Toivottavasti joku koodaa saman suomen numeroille (ei kokemuksia enirosta suomessa jos saa ilmaiseksi osoitetietoja niitten sivuilta...ehkä siks ei toimi?).

EDIT: jeps. suomessa pitää rekisteöytyä, eniro.se ei.

[arisel]

http://macworld.idg.se/2.1038/1.183146

Eli tolla saa osoitetiedot Enirolta AdressBookiin todella helposti. Sain kyllälkin vain toiminaan ruotsalaisilla numeroilla. Toivottavasti joku koodaa saman suomen numeroille (ei kokemuksia enirosta suomessa jos saa ilmaiseksi osoitetietoja niitten sivuilta...ehkä siks ei toimi?).

EDIT: jeps. suomessa pitää rekisteöytyä, eniro.se ei.

Rekisteröityminen maksaa 0,25€, ja jos et hukkaa salasanaasi, ei muita maksuja tule. Kohtuullisen kätevä palvelu, vaikkei kaikkea tiedäkään: sata ilmaista hakua kuukaudessa kattanee monen numerotiedustelutarpeet hyvin. Jo muutamalla haulla hinta/laatu-suhde on melkoisen hyvä!

[dogmulder]

Eli tätä ei nyt sitte saa toimimaan tuon plugarin kanssa vaikka rekisteröityisi?

[arisel]

Eli tätä ei nyt sitte saa toimimaan tuon plugarin kanssa vaikka rekisteröityisi?

Sorry myöhäinen vastaus - en osaa neuvoa plugin-hommia; mutta edullinen tapa hakea yhteystietoja selaimella. Kirjautumisvaiva tietysti on...

[Miklu]

Rekisteröityminen maksaa 0,25€, ja jos et hukkaa salasanaasi, ei muita maksuja tule. Kohtuullisen kätevä palvelu, vaikkei kaikkea tiedäkään: sata ilmaista hakua kuukaudessa kattanee monen numerotiedustelutarpeet hyvin. Jo muutamalla haulla hinta/laatu-suhde on melkoisen hyvä!

Ja rekisteröitymismaksukin johtuu siitä, että Eniron kilpailijat Suomessa eivät tykänneet siitä, että Enirolta olisi saanut julkisia numero- ja osoitetietoja verkossa maksutta. Eniro itse avasi palvelun muinoin maksuttomana, mutta joutui sulkemaan sen kilpailijoiden tekemän valituksen vuoksi. Sen vuoksi tuo mitätön rekisteröitymismaksu.

[miicah]

Pari address book pluginia.

Tällasta vääntelin ensikokeiluna. Nämä vaativat toki sen, että ole kerran kirjautunut selaimella Eniroon. En saanut toimimaan oletusselaimella avaamista. Nyt selain on kovakoodattu tonne koodiin.

Tallenna nuo koodit skriptitiedostoksi (scpt) hakemistoon "/Library/Address Book Plug-Ins/", (uudelleen)käynnistä sitten osoitekirja ja cmd-klikkaa sitten osoitekortin numeroa.

Koodit on keräilty vinkkisivuilta, eli respektit niille, joille ne kuuluu. Ehdotuksia ja parannuksia vastaanotetaan.

Etsi Enirosta numerolla.

Koodi: Valitse kaikki

using terms from application "Address Book"
	on action property
		return "phone"
	end action property
	
	on action title for aPerson with aPhone
		return "Etsi Enirosta numerolla."
	end action title
	
	on should enable action for aPerson with aPhone
		return true
	end should enable action
	
	on perform action for aPerson with aPhone
		set thephone to ((value of aPhone) as string)
		set AppleScript's text item delimiters to {"(", ")", " ", "-"}
		set qpa to urlencode(thephone)
		tell application "Firefox"
			activate
			Get URL ("http://henkilot.eniro.fi/query?what=wp&search_word=" & qpa)
		end tell
	end perform action
	
	
	on urlencode(theText)
		set theTextEnc to ""
		repeat with eachChar in characters of theText
			set useChar to eachChar
			set eachCharNum to ASCII number of eachChar
			if eachCharNum = 32 then
				set useChar to "+"
			else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then
				set firstDig to round (eachCharNum / 16) rounding down
				set secondDig to eachCharNum mod 16
				if firstDig > 9 then
					set aNum to firstDig + 55
					set firstDig to ASCII character aNum
				end if
				if secondDig > 9 then
					set aNum to secondDig + 55
					set secondDig to ASCII character aNum
				end if
				set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string
				set useChar to numHex
			end if
			set theTextEnc to theTextEnc & useChar as string
		end repeat
		return theTextEnc
	end urlencode
end using terms from

Etsi Enirosta nimellä (ja kaupungilla)

Koodi: Valitse kaikki

using terms from application "Address Book"
	on action property
		return "phone"
	end action property
	
	on action title for aPerson with aPhone
		return "Etsi Enirosta nimellä."
	end action title
	
	on should enable action for aPerson with aPhone
		return true
	end should enable action
	
	on perform action for aPerson with aPhone
		
		set fn to first name of aPerson as string
		(* set fn to urlencode(fn) *)
		set ln to last name of aPerson as string
		(* set ln to urlencode(ln) *)
		set cit to city in address of aPerson as string
		(* set cit to urlencode(cit) *)
		
		set AppleScript's text item delimiters to ""
		
		tell application "Safari"
			activate
			open location ("http://henkilot.eniro.fi/query?what=wp&search_word=" & fn & " " & ln & "&geo_area=" & cit)
		end tell
	end perform action
	
	(* Pois käytöstä.
	on urlencode(theText)
		set theTextEnc to ""
		repeat with eachChar in characters of theText
			set useChar to eachChar
			set eachCharNum to ASCII number of eachChar
			if eachCharNum = 32 then
				set useChar to "+"
			else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then
				set firstDig to round (eachCharNum / 16) rounding down
				set secondDig to eachCharNum mod 16
				if firstDig > 9 then
					set aNum to firstDig + 55
					set firstDig to ASCII character aNum
				end if
				if secondDig > 9 then
					set aNum to secondDig + 55
					set secondDig to ASCII character aNum
				end if
				set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string
				set useChar to numHex
			end if
			set theTextEnc to theTextEnc & useChar as string
		end repeat
		return theTextEnc
	end urlencode
	
	to encodeTextUTF8(k)
		set someSafeChars to "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_."
		set f to {}
		repeat with i from 1 to (count k)
			set c to character i of k
			if c is not in someSafeChars then
				set tmp to text2utf8(c) --> transform to plain-ascii version of utf8
				set c to "%" & getHex(tmp's item 1)
				try --> may be two chars or not
					set c to c & "%" & getHex(tmp's item 2)
				end try
			end if
			set f's end to c
		end repeat
		return f as text
	end encodeTextUTF8
	
	to text2utf8(t)
		set theFile to "/tmp/utf8stuff" as POSIX file
		set f to (open for access theFile with write permission)
		set eof of f to 0
		write t to f as «class utf8»
		close access f
		read theFile
	end text2utf8
	
	to getHex(this_string)
		this_string as C string
		try
			result * 512
		on error msg
			return text from character 22 of msg to character ((offset of "00» into type number" in msg) - 1) of msg
		end try
	end getHex
	*)
end using terms from