jsmm/Create universal index.scpt

## Create universal index.scpt
--http://www.organognosi.com
-- 2012-09-30
--it matches exact phrases using quotes and single words
--the locked files in DEVONthink are excluded from the search
--the index is created for the active DEVONthink database

tell application "DEVONthink Pro"
set searchWord to text returned of (display dialog "Enter the search word/phrase:" default answer "")
set searchWordList to every word of searchWord
set numberOfSearchWords to count searchWordList
set the searchWordWithoutSpaces to replaceText(searchWord, " ", "_") of me
set searchWordQuoted to "\"" & searchWord & "\""
set resultList to search searchWordQuoted in current database locking no
set numberResults to count resultList
if numberResults = 0 then display dialog "No matches were found." buttons {"Cancel"}
set numberOfDocuments to text returned of (display dialog "The found docs are " & numberResults & ", please set the numbers of docs for processing:" default answer numberResults)
if numberResults > numberOfDocuments then set resultList to items 1 thru numberOfDocuments of resultList
set RefType to my chooseRefType({"MediaWiki", "RTF"})
if RefType is 1 then
set indexLinks to "===Universal index of \"" & searchWord & "\"===
number of sources:" & numberOfDocuments & " out of " & numberResults & " matches - " & (the current date) & "
"
else if RefType is 2 then
set indexLinks to "<html>
<body>
<h3>Universal index of \"" & searchWord & "\"</h3>
number of sources: " & numberOfDocuments & " out of " & numberResults & " matches - " & (the current date)
end if
repeat with book in resultList
set pathBook to path of book
set referenceURL to reference URL of book
set nameBook to name of book
set wordInstances to ""
tell application "Skim"
try
open pathBook --κολλάει εάν κάποια αρχεία δεν υπάρχου
tell document 1
set all_pages to count of pages -- so we only calculate it once
if RefType is 1 then
set bookTitle to "
====" & nameBook & "====
[" & referenceURL & "?search=" & searchWordWithoutSpaces & " " & searchWord & "] in [[@" & nameBook & "]]<br />
"
repeat with pageNumber from 1 to all_pages --
set DEVONthinkPageNumber to pageNumber - 1
if numberOfSearchWords ≤ 1 then
set pageText to (get text for page pageNumber) -- suck up the text into a string!
ignoring hyphens
set pageText to (every word of pageText) as list -- tokenise!
end ignoring
if pageText contains searchWord then -- record page number if word on page
set wordInstances to wordInstances & "[" & referenceURL & "?page=" & DEVONthinkPageNumber & "&?search=" & searchWordWithoutSpaces & " " & pageNumber & "] "
end if
else
set pageText to (get text for page pageNumber) as Unicode text -- suck up the text into a string!
if pageText contains searchWord then
set wordInstances to wordInstances & "[" & referenceURL & "?page=" & DEVONthinkPageNumber & "?search=" & searchWordWithoutSpaces & " " & pageNumber & "] "
end if
end if
end repeat
else if RefType is 2 then
set bookTitle to "<h4>" & nameBook & "</h4>
<a href=" & referenceURL & "?search=" & searchWordWithoutSpaces & ">" & searchWord & "</a>: "
repeat with pageNumber from 1 to all_pages --
set DEVONthinkPageNumber to pageNumber - 1
if numberOfSearchWords ≤ 1 then
set pageText to (get text for page pageNumber) -- suck up the text into a string!
ignoring hyphens
set pageText to (every word of pageText) as list -- tokenise!
end ignoring
if pageText contains searchWord then -- record page number if word on page
set wordInstances to wordInstances & "<a href=" & referenceURL & "?page=" & DEVONthinkPageNumber & ">" & pageNumber & "</a> "
end if
else
set pageText to (get text for page pageNumber) as Unicode text -- suck up the text into a string!
if pageText contains searchWord then
set wordInstances to wordInstances & "<a href=" & referenceURL & "?page=" & DEVONthinkPageNumber & ">" & pageNumber & "</a> "
end if
end if
end repeat
end if
end tell
close document 1
end try
end tell
if RefType is 1 then
set indexLinks to indexLinks & bookTitle & wordInstances & "
"
else if RefType is 2 then
set indexLinks to indexLinks & bookTitle & wordInstances & "
</body>
</html>"
else if RefType is 3 then
end if
end repeat
if RefType is 1 then
set the clipboard to indexLinks
else if RefType is 2 then
set the clipboard to indexLinks
tell application "Finder"
do shell script "pbpaste | textutil -stdin -format html -convert rtf -stdout | pbcopy -Prefer rtf"
end tell
end if
end tell
on chooseRefType(typeList)
tell application "Skim"
set theResult to choose from list typeList with prompt "Reference type:" default items {"RTF"}
if theResult is false then return 0
set refTypeNumber to theResult as string
if refTypeNumber is "MediaWiki" then
return 1
else if refTypeNumber is "RTF" then
return 2
end if
end tell
return RefType
end chooseRefType
on replaceText(thisText, searchString, replacementString)
set AppleScript's text item delimiters to the searchString
set the itemList to every text item of thisText
set AppleScript's text item delimiters to the replacementString
set thisText to the itemList as string
set AppleScript's text item delimiters to {""}
return thisText
end replaceText
	--http://www.organognosi.com
	-- 2012-09-30
	--it matches exact phrases using quotes and single words
	--the locked files in DEVONthink are excluded from the search
	--the index is created for the active DEVONthink database

	tell application "DEVONthink Pro"
	set searchWord to text returned of (display dialog "Enter the search word/phrase:" default answer "")
	set searchWordList to every word of searchWord
	set numberOfSearchWords to count searchWordList
	set the searchWordWithoutSpaces to replaceText(searchWord, " ", "_") of me
	set searchWordQuoted to "\"" & searchWord & "\""
	set resultList to search searchWordQuoted in current database locking no
	set numberResults to count resultList
	if numberResults = 0 then display dialog "No matches were found." buttons {"Cancel"}
	set numberOfDocuments to text returned of (display dialog "The found docs are " & numberResults & ", please set the numbers of docs for processing:" default answer numberResults)
	if numberResults > numberOfDocuments then set resultList to items 1 thru numberOfDocuments of resultList
	set RefType to my chooseRefType({"MediaWiki", "RTF"})
	if RefType is 1 then
	set indexLinks to "===Universal index of \"" & searchWord & "\"===
	number of sources:" & numberOfDocuments & " out of " & numberResults & " matches - " & (the current date) & "
	"
	else if RefType is 2 then
	set indexLinks to "<html>
	<body>
	<h3>Universal index of \"" & searchWord & "\"</h3>
	number of sources: " & numberOfDocuments & " out of " & numberResults & " matches - " & (the current date)
	end if
	repeat with book in resultList
	set pathBook to path of book
	set referenceURL to reference URL of book
	set nameBook to name of book
	set wordInstances to ""
	tell application "Skim"
	try
	open pathBook --κολλάει εάν κάποια αρχεία δεν υπάρχου
	tell document 1
	set all_pages to count of pages -- so we only calculate it once
	if RefType is 1 then
	set bookTitle to "
	====" & nameBook & "====
	[" & referenceURL & "?search=" & searchWordWithoutSpaces & " " & searchWord & "] in [[@" & nameBook & "]]<br />
	"
	repeat with pageNumber from 1 to all_pages --
	set DEVONthinkPageNumber to pageNumber - 1
	if numberOfSearchWords ≤ 1 then
	set pageText to (get text for page pageNumber) -- suck up the text into a string!
	ignoring hyphens
	set pageText to (every word of pageText) as list -- tokenise!
	end ignoring
	if pageText contains searchWord then -- record page number if word on page
	set wordInstances to wordInstances & "[" & referenceURL & "?page=" & DEVONthinkPageNumber & "&?search=" & searchWordWithoutSpaces & " " & pageNumber & "] "
	end if
	else
	set pageText to (get text for page pageNumber) as Unicode text -- suck up the text into a string!
	if pageText contains searchWord then
	set wordInstances to wordInstances & "[" & referenceURL & "?page=" & DEVONthinkPageNumber & "?search=" & searchWordWithoutSpaces & " " & pageNumber & "] "
	end if
	end if
	end repeat
	else if RefType is 2 then
	set bookTitle to "<h4>" & nameBook & "</h4>
	<a href=" & referenceURL & "?search=" & searchWordWithoutSpaces & ">" & searchWord & "</a>: "
	repeat with pageNumber from 1 to all_pages --
	set DEVONthinkPageNumber to pageNumber - 1
	if numberOfSearchWords ≤ 1 then
	set pageText to (get text for page pageNumber) -- suck up the text into a string!
	ignoring hyphens
	set pageText to (every word of pageText) as list -- tokenise!
	end ignoring
	if pageText contains searchWord then -- record page number if word on page
	set wordInstances to wordInstances & "<a href=" & referenceURL & "?page=" & DEVONthinkPageNumber & ">" & pageNumber & "</a> "
	end if
	else
	set pageText to (get text for page pageNumber) as Unicode text -- suck up the text into a string!
	if pageText contains searchWord then
	set wordInstances to wordInstances & "<a href=" & referenceURL & "?page=" & DEVONthinkPageNumber & ">" & pageNumber & "</a> "
	end if
	end if
	end repeat
	end if
	end tell
	close document 1
	end try
	end tell
	if RefType is 1 then
	set indexLinks to indexLinks & bookTitle & wordInstances & "
	"
	else if RefType is 2 then
	set indexLinks to indexLinks & bookTitle & wordInstances & "
	</body>
	</html>"
	else if RefType is 3 then
	end if
	end repeat
	if RefType is 1 then
	set the clipboard to indexLinks
	else if RefType is 2 then
	set the clipboard to indexLinks
	tell application "Finder"
	do shell script "pbpaste \| textutil -stdin -format html -convert rtf -stdout \| pbcopy -Prefer rtf"
	end tell
	end if
	end tell
	on chooseRefType(typeList)
	tell application "Skim"
	set theResult to choose from list typeList with prompt "Reference type:" default items {"RTF"}
	if theResult is false then return 0
	set refTypeNumber to theResult as string
	if refTypeNumber is "MediaWiki" then
	return 1
	else if refTypeNumber is "RTF" then
	return 2
	end if
	end tell
	return RefType
	end chooseRefType
	on replaceText(thisText, searchString, replacementString)
	set AppleScript's text item delimiters to the searchString
	set the itemList to every text item of thisText
	set AppleScript's text item delimiters to the replacementString
	set thisText to the itemList as string
	set AppleScript's text item delimiters to {""}
	return thisText
	end replaceText