Oldest known version of this page was edited on 2008-01-24 22:47:19 by BradEllis []
Page view:
Poor Man's AppleScript HTML Export
This example
AppleScript will talk to the first document, gather all the pages, and then export them as pre-formatted html to the folder specified in the variable "outFolder"
-- this is the path to the folder you would like to write out to.
set outFolder to "srv:Users:gus:Desktop:html"
tell application "VoodooPad"
repeat with i from 1 to number of items in pages of document 1
set s to text of page i of document 1
set n to name of page i of document 1
set s to my findAndReplace("&", "&", s)
set s to my findAndReplace("<", "<", s)
set s to my findAndReplace(">", ">", s)
set outfile to outFolder & ":" & n & ".html"
set outText to "<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>Here the title</title></head><body><pre>" & s & "</pre></body></html>"
tell application "Finder"
set f to outfile
set nref to open for access file f with write permission
set eof nref to 0
write outText to file f
close access nref
end tell
end repeat
end tell
-- shamelessly stolen from http://bbs.applescript.net/viewtopic.php?id=13008
on findAndReplace(tofind, toreplace, TheString)
set ditd to text item delimiters
set text item delimiters to tofind
set textItems to text items of TheString
set text item delimiters to toreplace
if (class of TheString is string) then
set res to textItems as string
else -- if (class of TheString is Unicode text) then
set res to textItems as Unicode text
end if
set text item delimiters to ditd
return res
end findAndReplace