Program för att söka större text massor?

(*
----------------------------------------------------------------
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.

(*
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

*)

(*
SUMMERA DEN
*)
set theSummary to summarize theText in 1

(*
SÖK PÅ GOOGLE
*)
tell application "URL Access Scripting"
open location "http://www.google.com/search?client=safari&rl..." & theSummary & "&ie=UTF-8&oe=UTF-8"

end tell

(*
----------------------------------------------------------------
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