(*
----------------------------------------------------------------
SAMMANFATTA OCH SÖKA EFTER TEXT
Av: Ola @ intelligentmammals.se, 2007-01-14
http://www.intelligentmammals.se/
----------------------------------------------------------------
*)
-- Kommandot summarize finns i Standard Additions.
-- Parametrarna är summarize [texten] in [antal meningar i resultatet, heltal]
-- Detta manus låter en ta den markerade texten i tex Script Editor, sammanfatta den och söka efter den med Google.
-- Denna variant delar upp texten i stycken, tar fyra ord från varje stycke och söker på detta hos Google istället.
(*
HÄMTA DEN MARKERADE TEXTEN I WORD FRÅN FRÄMSTA FÖNSTRET
*)
tell application "Microsoft Word"
set theText to content of selection of window 1
end tell
(*
ALTERANTIV - HÄMTA TEXTEN FRÅN URKLIPP
Vill du hellre använda urklipp? I så fall, editera manuset så att * ) som avslutar denna kommentar inte innesluter kommandona som använder urklipp istället, och flytta även * ) så att kommandona som använder sig av Microsoft word hamnar innanför en kommentar.
set theText to the clipboard as text
*)
(*
PLOCKA UT EN LISTA PÅ FRASER
Vi delar texten i stycken, vi behöver referera till ASCII 13 (eller 10).
*)
set AppleScript's text item delimiters to (ASCII character 13) & (ASCII character 13)
set the itemlist to every text item of theText
set AppleScript's text item delimiters to ""
-- Bara sök om det är någon mening - om listan är tom så...
if length of itemlist > 0 then
(*
SÖK PÅ GOOGLE - I EN REPEAT
*)
-- Skapa räknare
set theCounter to 1
repeat with searchTerm in itemlist
-- Skippa till nästa om längden är 0
if number of words of searchTerm > 3 then
-- Hämta första fyra orden i varje stycke - gör det till sökterm
set AppleScript's text item delimiters to space
set searchTerm to words 1 through 4 of searchTerm
set searchTerm to searchTerm as string
set AppleScript's text item delimiters to ""
-- Sök hos Google - notera att sök-termen omges av ""
tell application "URL Access Scripting"
open location ("http://www.google.com/search?client=safari&rl..."" & searchTerm as text) & "\"&ie=UTF-8&oe=UTF-8"
end tell
-- Räkna upp
set theCounter to theCounter + 1
-- Vi öppnar inte mer än 5 fönster
if theCounter > 5 then
exit repeat
end if
-- Denna if avslutar "length of searchTerm > 0"
end if
end repeat
end if