Xpounded Book Parser Un-attended Automation

Automatically transforms text source books into xml/dhtml books

This example is comprised of two scripts: bookMonitor.vbs and bookParser.vbs

(This is an example of unattended automation - a commerical quiality concept)

bookMonitor.vbs is a WMI monitor script that once run, stays running in the background until it is manually stopped (end process from the task manager).
The purpose of bookMonitor is to silently watch a specified folder (you choose the folder) for any new file to be added. Once a file has been added to the monitored folder, bookMonitor.vbs automatically calls a target script (bookParser.vbs) with the newly added file as an argument. At this point the file bookParser.vbs will parse the new file into an xml chapter set, along with building a DHTML reader for the set.
The newly created subfolder and files will be in the target folder you specify along with a log file that tracks what file was sourced and when.

Setup:

Choose a folder for both bookMonitor.vbs and bookParser.vbs and copy them to the folder. The files do not have to be in the same folder.
Open bookMonitor.vbs in a text editor and
- cahnge the line
  monitoredFolder="someFolderPath"
  so that someFolderPath is the path to the folder you want to monitor.
- cahnge the line
  scriptApplication = "someOtherPath\bookParser.vbs"
  so that someOtherPath is the path to the folder you stored bookParser.vbs in.
Open bookParser.vbs in a text editor and
- change the line
  fileFolder1="monitoredFolder"
  so that monitoredFolder is the same path to the same monitord folder that you set in bookMonitor.vbs above
- change the line
  fileFolder2="resultFolder"
  so that resultFolder is the path to a folder you want your resulting books to be stored in.

Use: Run bookMonitor.vbs and it will handle the rest
Any time you want to create a book, just drop or paste the source-text file into the monitored folder.

IMPORTANT: I have not added a test to ensure only proper text files will be acted on
i.o.w. as it is written, bookMonitoer will pass any new file along, and bookParser will try to parse it into a book. It is up to you to make sure only plain-text books are added to the monitored folder.
Rules for the plain-text books:

Open the text file and add the follwing line just after the chapters listing (if any)
#-@-#
This line MUST be in the text file
Add a line with the word "Chapter " followed by a chapter description as a chapter seperator just before each chapter (if non exists already).
You can get plain-text books from your favorite source

The Gutenberg Project

Doc Savage at Blackmask

etc...

Save this file as BookMonitor.vbs Mention Us

Select All

'rdspoons@poncacity.net
'Xpounded 2004
'
'This is a true automation script. When run, it will run in the 
'background until its process is manually ended.
'
'This file monitors a folder watching for a new file to be created.
'It then actions the newly creted file with a specified 
'script/application 
'
'To use, you must set values for the vairables monitoredFolder and 
'scriptApplication at the end of this file, and then un-comment one 
'of the actions in the Action method.
' 
'The Monitor method was modified from a script freely avilable 
'from Microsoft.
'
'===================================================================
'===================================================================
'   The Monitor
'===================================================================
Sub startMontoringFileCreation(sFolder)
	Dim sComputer, sPath
	sPath = chr(34) & Replace(sFolder,"\","\\\\") & chr(34)
	If sPath = Null Then Exit Sub
	sComputer = "."
	Set oService = GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
	Set oMonitorEvents = oService.ExecNotificationQuery _
	("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
	& "Targetinstance ISA 'CIM_DirectoryContainsFile' AND " _
	& "TargetInstance.GroupComponent= " _
	& "'Win32_Directory.Name=" & sPath & "'")
	Do
		Set oLastEvent = oMonitorEvents.NextEvent
		Action oLastEvent.TargetInstance.PartComponent	'Action for file created
	Loop
End Sub
'===================================================================
'===================================================================
'  The Action
'===================================================================
Sub Action(pc)
	Dim v
	'Run this script/application with the created file path as argument
	'Un-comment the following two lines to use an argument
	v=Split(pc,"=")
	runWithArg scriptApplication, v(1)

'Or use the following for a script/application with no arguments
	'Un-comment the following line to use no argument

'run scriptApplication
End Sub

Sub run(sApplication)
	Set runWshShell = WScript.CreateObject ("WSCript.shell")
	runWshShell.run chr(34) & sApplication & chr(34)
	Set runWshShell = Nothing
End Sub

Sub runWithArg(sApplication, sArgument)
	Dim rws
	Set runWithWshShell = WScript.CreateObject ("WSCript.shell")
	rws = chr(34) & sApplication & chr(34) & " " & chr(34) & Replace(sArgument,"\\","\") & chr(34)
	runWithWshShell.run rws
	Set runWithWshShell = Nothing
End Sub
'==================================================================================
'   Initailize
'==================================================================================
'    Change someFolderPath to the actual folder to monitor. e/g "C:\Automated"
'    Also,
'    change someOtherPath to the path you save the bookParser script to. e.g. "c:\parser"
'    IMPORTANT: The script/application really should not have any GUI elements
'==================================================================================
monitoredFolder="someFolderPath"
scriptApplication = "someOtherPath\bookParser.vbs"
msgbox "Monitoring " & monitoredFolder
startMontoringFileCreation monitoredFolder

No HTML to View

IMPORTANT: Save this file as bookParser.vbs

Select All

'Sample File that will be automatically run from the Monitor Automation
'rdspoons
'Xpounded 2004
'
Function makeHTML(sTitle,simg1,simg1txt,simg2,simg2txt,chapters,foldpath)
	'function to create user interface for finished book.
	'this interface is complete with navigation over all chapters
	Dim vbstr
	vbstr = "<" & "HTML>" & vbcrlf
	vbstr = vbstr & "<" & "HEAD>" & vbcrlf
	vbstr = vbstr & "<TITLE>" & vbcrlf
	vbstr = vbstr & sTitle & vbcrlf
	vbstr = vbstr & "</TITLE>" & vbcrlf
	vbstr = vbstr & "<style>" & vbcrlf
	vbstr = vbstr & "	h1		{font-family:fantasy;color:gold;}" & vbcrlf
	vbstr = vbstr & "	.baseFont 	{font-family:helvetica;font-weight:bold;}" & vbcrlf
	vbstr = vbstr & "	span		{font-weight:bold;cursor:hand;}" & vbcrlf
	vbstr = vbstr & "	.bk		{background:black;color:white;}" & vbcrlf
	vbstr = vbstr & "	img		{cursor:hand;}" & vbcrlf
	vbstr = vbstr & "	body		{background:beige;}" & vbcrlf
	vbstr = vbstr & "</style>" & vbcrlf
	vbstr = vbstr & "<" & "script>" & vbcrlf
	vbstr = vbstr & "var story = ''" & vbcrlf
	vbstr = vbstr & "var parCount=5" & vbcrlf
	vbstr = vbstr & "var pageCntr=''" & vbcrlf
	vbstr = vbstr & "var max=0" & vbcrlf
	vbstr = vbstr & "var pars=5" & vbcrlf
	vbstr = vbstr & "var chapter=1" & vbcrlf
	vbstr = vbstr & "function init(){" & vbcrlf
	vbstr = vbstr & "	source.recordset.moveFirst()" & vbcrlf
	vbstr = vbstr & "		pageCntr=1" & vbcrlf
	vbstr = vbstr & "		parCount=5" & vbcrlf
	vbstr = vbstr & "		story=new Array()" & vbcrlf
	vbstr = vbstr & "		title.innerHTML='<h3>Chapter '+chapter+': '+source.recordset('title')+'</h3>'" & vbcrlf
	vbstr = vbstr & "		max=source.getElementsByTagName('pars/par').length" & vbcrlf
	vbstr = vbstr & "		for(i=0;i<max;i++){" & vbcrlf
	vbstr = vbstr & "			story[i]=source.getElementsByTagName('pars/par').item(i).text" & vbcrlf
	vbstr = vbstr & "		}" & vbcrlf
	vbstr = vbstr & "		var txt=''" & vbcrlf
	vbstr = vbstr & "		for(var i=0;i<parCount;i++) txt+=story[i]+'\n\n'" & vbcrlf
	vbstr = vbstr & "		page.innerText='Page ' + pageCntr" & vbcrlf
	vbstr = vbstr & "		storyBox.innerText=txt" & vbcrlf
	vbstr = vbstr & "}" & vbcrlf
	vbstr = vbstr & "function nxt(){" & vbcrlf
	vbstr = vbstr & "	if(pageCntr<max/pars){ " & vbcrlf
	vbstr = vbstr & "		pageCntr++" & vbcrlf
	vbstr = vbstr & "		var txtN=''" & vbcrlf
	vbstr = vbstr & "		var oldPar=parCount" & vbcrlf
	vbstr = vbstr & "		parCount+=pars" & vbcrlf
	vbstr = vbstr & "		for(var i=oldPar;i<parCount;i++) txtN+=story[i]+'\n\n'" & vbcrlf
	vbstr = vbstr & "		storyBox.innerText=txtN" & vbcrlf
	vbstr = vbstr & "		page.innerText='Page ' + pageCntr" & vbcrlf
	vbstr = vbstr & "	}" & vbcrlf
	vbstr = vbstr & "}" & vbcrlf
	vbstr = vbstr & "function prev(){" & vbcrlf
	vbstr = vbstr & "	if(pageCntr>1){" & vbcrlf
	vbstr = vbstr & "		pageCntr--" & vbcrlf
	vbstr = vbstr & "		var txtP=''" & vbcrlf
	vbstr = vbstr & "		parCount-=pars" & vbcrlf
	vbstr = vbstr & "		for(var i=parCount-5;i<parCount;i++) txtP+=story[i]+'\n\n'" & vbcrlf
	vbstr = vbstr & "		storyBox.innerText=txtP" & vbcrlf
	vbstr = vbstr & "		page.innerText='Page ' + pageCntr" & vbcrlf
	vbstr = vbstr & "	}" & vbcrlf
	vbstr = vbstr & "}" & vbcrlf
	vbstr = vbstr & "function jump(n){" & vbcrlf
	vbstr = vbstr & "	source.src='" & sTitle & "\\" & sTitle & "Chapter '+n+'.xml'" & vbcrlf
	vbstr = vbstr & "	chapter=n" & vbcrlf
	vbstr = vbstr & "	init()" & vbcrlf
	vbstr = vbstr & "}" & vbcrlf
	vbstr = vbstr & "var swaped=false" & vbcrlf
	vbstr = vbstr & "function swap(){" & vbcrlf
	vbstr = vbstr & "	swaped=!swaped" & vbcrlf
	vbstr = vbstr & "	if(swaped){" & vbcrlf
	vbstr = vbstr & "		cover.src='..\\images\\" & simg2 & "'" & vbcrlf
	vbstr = vbstr & "		cover.title='" & simg2txt & "'" & vbcrlf
	vbstr = vbstr & "	}" & vbcrlf
	vbstr = vbstr & "	else{" & vbcrlf
	vbstr = vbstr & "		cover.src='..\\images\\" & simg1 & "'" & vbcrlf
	vbstr = vbstr & "		cover.title='" & simg1txt & "'" & vbcrlf
	vbstr = vbstr & "	}" & vbcrlf
	vbstr = vbstr & "}" & vbcrlf
	vbstr = vbstr & "</" & "script>" & vbcrlf
	vbstr = vbstr & "</" & "HEAD>" & vbcrlf
	vbstr = vbstr & "<BODY onload='init()'>" & vbcrlf
	vbstr = vbstr & "<table width='100%'><tr><td>" & vbcrlf
	vbstr = vbstr & "<h1><font color='navy'>" & sTitle & "</font></h1>" & vbcrlf
	vbstr = vbstr & "</td>" & vbcrlf
	vbstr = vbstr & "<td rowspan='2' width='100'>" & vbcrlf
	If simg1 <> "" Then
		vbstr = vbstr & "<img id='cover' height='150' width='120' onclick='swap()' src='..\images\" & simg1 & "' title='" & simg1txt & "'>" & vbcrlf
	End If
	vbstr = vbstr & "</td></tr>" & vbcrlf
	vbstr = vbstr & "<tr><td>" & vbcrlf
	vbstr = vbstr & "<div id='title'></div>" & vbcrlf
	vbstr = vbstr & "</td></tr>" & vbcrlf
	vbstr = vbstr & "</table>" & vbcrlf
	vbstr = vbstr & "<hr>" & vbcrlf
	vbstr = vbstr & "<xml src='.\" & sTitle & "\" & sTitle & "Chapter 1.xml' id='source' />" & vbcrlf
	vbstr = vbstr & "<div class='bk'>" & vbcrlf
	vbstr = vbstr & "	 <font size='-1'>" & vbcrlf
	For i=1 to chapters
		vbstr = vbstr & "	<span onclick='jump(" & i & ")' title='" & chapterArray(i-1) & "'>(" & i & ")</span>" & vbcrlf
	Next
	vbstr = vbstr & "</font> 	         " & vbcrlf
	vbstr = vbstr & "" & vbcrlf
	vbstr = vbstr & "	<span onclick='prev()'>Previous</span>      " & vbcrlf
	vbstr = vbstr & "	<span onclick='nxt()'>Next</span>     " & vbcrlf
	vbstr = vbstr & "	     " & vbcrlf
	vbstr = vbstr & "" & vbcrlf
	vbstr = vbstr & "	<span id='page'></span>" & vbcrlf
	vbstr = vbstr & "</div><br>" & vbcrlf
	vbstr = vbstr & "<div id='storyBox' class='baseFont'></div>" & vbcrlf
	vbstr = vbstr & "<div style='background:black;color:white;text-align:center;'>" & vbcrlf
	vbstr = vbstr & "<span onclick='prev()'>Previous</span>      " & vbcrlf
	vbstr = vbstr & "	<span onclick='nxt()'>Next</span>" & vbcrlf
	vbstr = vbstr & "</div>" & vbcrlf
	vbstr = vbstr & "</BODY>" & vbcrlf
	vbstr = vbstr & "</HTML>" & vbcrlf
	makeHTML=vbstr
End Function
Function makeXML(textFileFolder,xmlFileFolder,bookTitle,sExt)
	'function to parse a text file into XML chapters.
	'each chapter will become a single xml file.
	'The function creates a document folder to hold newly created files.
	'heiarchy is images and xml_root parrallel, html gui and folder holding xml in xml_root.
	On Error Resume Next
	textFilePath = textFileFolder & "\" & bookTitle & sExt
	dim result
	Dim doc
	Dim fs,ts
	Dim delimeter
	dim title
	dim target,lt
	target="Chapter"
	delimeter="#-@-#"
	Dim c1
	Const ForReading = 1
	'OVERHEAD
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(textFilePath, ForReading, False, vbUseDefault)
	rawText=ts.readAll

'STORY CHAPTER-INDEX
	fields = Split(rawText, delimeter)
	c1=fields(0)
	v=split(c1,vbcrlf)
	lt=len(target)
	doc= "<book>" & vbcrlf
	doc=doc & vbtab & "<title>" & Replace(v(0),"�","'") & "</title>" & vbcrlf
	doc=doc & vbtab & "<byline>" & v(1) & "</byline>" & vbcrlf
	doc=doc & vbyab & "<chapters>" & vbcrlf
	for i=0 To ubound(v)
		If left(v(i),lt)=target Then
			w=split(v(i)," ")
			vt=""
			For j=2 to ubound(w)
				vt=vt & w(j) & " "
			Next
			vt=rtrim(Replace(vt,"�","'"))
			doc=doc & vbtab & vbtab & "<chapter num=" & chr(34) & Replace(w(1),".","") & chr(34) & ">" & vt & "</chapter>" & vbcrlf
		End If
	next
	doc=doc & vbtab & "</chapters>" & vbcrlf
	doc=doc & "</book>" & vbcrlf

if Not fs.FolderExists(xmlFileFolder) Then
		set newFolder = fs.CreateFolder(xmlFileFolder)
		set newFolder=Nothing
	End If

folderPath=xmlFileFolder & "\" & bookTitle

if Not fs.FolderExists(folderPath) Then
		set newFolder = fs.CreateFolder(folderPath)
		set newFolder=Nothing
	End If

title=bookTitle & "Chapters.xml"
	result=folderPath  & "\" & title 
	Set ts = fs.OpenTextFile(result, ForWriting, True)
	ts.write doc
	Set ts=Nothing

'STORY CHAPTERS
	ichapters=0
	c1=fields(1)
	v=split(c1,"Chapter")
	For i=0 to ubound(v)
		w=split(v(i),vbcrlf)
		If Not v(i)="" Then

tsp=Split(w(0)," ")
			tnum=Replace(tsp(1),".","")
			trr=""
			for j=2 to ubound(tsp)
				trr=trr & tsp(j) & " "
			next
			trr=trim(Replace(Replace(trr,"�","'"),"�","--"))

doc="<chapter number=" & chr(34) & tnum & chr(34) & ">" & vbcrlf
			doc=doc & vbtab & "<title>" & trr & "</title>" & vbcrlf

'doc="<chapter heading=" & chr(34) & trim(Replace(w(0),"�","'")) & chr(34) & ">" & vbcrlf

doc=doc & vbtab & "<pars>" & vbcrlf
			For j=1 To ubound(w)
				If Not w(j)="" Then
					doc=doc & vbtab & vbtab & "<par>" & Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(w(j),"�","'"),"�","-"),"�","'"),"�","e"),"�","e"),"�","o"),"�","n"),"�","e"),"& ","&"),"�","-") & "</par>" & vbcrlf
				End If
			Next
			doc=doc & "</pars>" & vbcrlf
			doc=doc & "</chapter>" & vbcrlf
			title=bookTitle & "Chapter " & i & ".xml"
			ichapters=i

chapterArray(i-1)=trr

result=folderPath & "\" & title
			Set ts = fs.OpenTextFile(result, ForWriting, True)
			ts.write doc
			Set ts=Nothing
		End If
	Next
	On Error Goto 0
	makeXML=ichapters
End Function

Function makeControl(bookTitle,simg1,simg1txt,simg2,simg2txt,chapters,sFileFolder)
	doc=makeHTML(bookTitle,simg1,simg1txt,simg2,simg2txt,chapters,sFileFolder)
	target=sFileFolder & "\" & bookTitle & ".html"
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(target, ForWriting, True)
	ts.write doc
	Set ts=Nothing
	makeControl="Done"
End Function
Function makeFolder(sPath)
	Dim objFolder
	Set objFolder = fSO.CreateFolder(sPath)
	makeFolder = objFolder
End Function
Function folderExists(sFolderPath)
	Dim bReturn
	bReturn =  fso.FolderExists(sFolderPath)
	folderExists = bReturn
End Function
Function getName(sPath)
	Dim g1, g2, ret
	ret=sPath
	g1 = InStrRev(ret,"\")
	If g1 > 0 Then
		ret = Right(ret,Len(sPath)-g1)
	End IF
	g2 = InStrRev(ret,".")
	If g2 > 0 Then
		ret = Left(ret,g2-1)
	End If
	getName = ret
End Function
Function getExtension(sPath)
	Dim g1, ret
	g1 = InStrRev(sPath,".")
	If g1 > 0 Then
		ret = Right(sPath,Len(sPath)-g1)
	Else
		ret = ""
	End If
	getExtension = ret
End Function
Function getPath(sPath)
	Dim g1, ret
	ret=sPath
	g1 = InStrRev(ret,"\")

If g1 > 0 Then
		ret = Left(sPath,g1-1)
	End If
	getPath = ret
End Function
Sub logBook(data)
	Set ts = fso.OpenTextFile(logFile, ForAppending, True)
	ts.write data
End Sub
Sub makeBook(sFile,sFileFolder2)
	'fileFolder=fileFolder & "\"
	'Dim fileName

fileFolder1=getPath(sFile)
	sTitle=getName(sFile)
	sExt="." & getExtension(sFile)
	sFileFolder1=fileFolder1
	d1=sTitle & sExt
	chapters=makeXML(sFileFolder1,sFileFolder2,sTitle,sExt)
	img1=""
	img1txt=""
	img2=""
	img2txt=""
	makeControl sTitle,img1,img1txt,img2,img2txt,chapters,sFileFolder2
	logBook Date & " " & Time & " " & sFile & vbcrlf
End Sub

'-----------------INITIALIZE---------------------
Dim fso, desktop, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
desktop = WshShell.SpecialFolders("Desktop")
set WshShell = Nothing
Set fso = createObject("Scripting.FileSystemObject")
'-----------------BEGIN CODE----------------------

Dim fileFolder
Dim textFileFolderResult
Dim sTitle
Dim sExt
Dim chapterArray(100)
Const ForWriting=2
Const ForAppending=8
fileFolder1="monitoredFolder"
fileFolder2="resultFolder"
logFile=fileFolder2 & "\bookLog.txt"

Set a=WScript.Arguments
Dim b()
For i = 1 to a.count
	redim preserve b(i)
	b(i-1)=a(i-1)
Next
If a.count > 0 then
	stxt=Join(b," ")
	makeBook stxt, fileFolder2
End If

No HTML to View

- Copyright 2004 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Privacy Statement
Feedback