Xpounded DocSavage text to XML/DHTML Book automation

REQUIREMENTS: WScript5.6, and IE5.5+
Here is an automation that will slice and dice a plain text file into an XML/DHTML book. The automation will create a folderset in the text files folder that holds the newly created XML documents plus a newly created DHTML viewer for the XML.
Hope you Doc Savage, Pulp, and Project Gutenberg fans like this one.

Note: Want a better reader? Yes, Make Me One!.
Instructions:

Get plain text books from your favorite source

The Gutenberg Project

Doc Savage at Blackmask

etc...
Open the text file and add the follwing line just after the chapters listing (if any)
#-@-#
Also add a line with the word "Chapter " followed by a chapter description as a chapter seperator just before each chapter (if non exists already).
Adjust the ' Book section' to reflect the files you want to use.
(Doc Savage Fans already have this step set for them).
If you use images, make sure thay are in a folder named 'images' that is at the same level as the final viwer.

Run this automation.

The resulting xml files will be held in a folder with the same name as the origional text file.

The viewer will be one level up

Save this file as any name (DocSavage) with an .html extension.

Select All get help with this script

<HTML>
<HEAD>
<TITLE>
	DocSavage text to XML/DHTML Book automation
</TITLE>
<STYLE>

</STYLE>
<SCRIPT LANGUAGE = "VBScript">
'indicate where the text story is held.

' ======== IMPORTANT!!! ================ IMPORTANT!!! ================ IMPORTANT!!! =======
'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
'The variable 'filefolder' MUST be set to the valid base path where your text file is located.
'e.g. fileFolder="C:\Documents and Settings\someUser\Desktop\DocXML\RawStory\"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'======== IMPORTANT!!! ================ IMPORTANT!!! ================ IMPORTANT!!! ========

'This path MUST be changed to reflect your path
fileFolder="C:\Documents and Settings\someUser\Desktop\DocXML\RawStory\"

'follow this outline for creating your own xml books.
'Only 1 book can be created at a time with this automation.
'Note that any server adding text to the xml file will break the well-formdness of the files.
'each section represents a different book. this is here for clairity (hopefully).
'the uncommented section will be active
'
'NOTE: All Images are currently hard coded to be located in ..\images\ relative to the viewer
'
'=================== Book Specific ==================
'====================================================
'	sTitle="The Man Of Bronze"					'text file title w/o extension
'	sExt=".txt"								'extension of text file
'	img2="i001m03y33_TheManOfBronze.jpeg"			'file name for book image
'	img2txt="The Man Of Bronze Pulp Cover Mar 1933"		'blurb for image
'	img1="001MOB.jpeg"						'file name for alternate image
'	img1txt="The Man Of Bronze Bantam PB Cover #1"		'blurbfor alternate image
'=====================================================
'	sTitle="Hex"
'	sExt=".txt"
'	img2="i037m11y39_Hex.jpeg"
'	img2txt="HEX Pulp Cover Nov 1939"
'	img1="037HEX.jpeg"
'	img1txt="HEX Bantam PB Cover #37"
'=====================================================
'	sTitle="Quest Of The Spider"
'	sExt=".txt"
'	img1="068QOS.jpeg"
'	img1txt="Quest Of The Spider Pulp Cover ?"
'	img2="068QOS.jpeg"
'	img2txt="Quest Of The Spider Bantam PB Cover #68"
'=====================================================
	sTitle="The Annihilist"					'This is the text files name (must match, so change it to match the desired text file)
	sExt=".txt"							'The target files extension.
	img1="031TA.jpeg"						'This is one of the images (also in the folder) that I want diplay as the cover
	img1txt="The Annihilist Pulp Cover ?"		'The mouseover text for the image
	img2="031TA.jpeg"						'This is another of the images (in the folder) that I want diplay as the alternate cover
	img2txt="The Annihilist Bantam PB Cover #31"	'The mouseover text for the alternate image
'=====================================================
'	sTitle="The Derrick Devil"
'	sExt=".txt"
'	img1="074TDD.jpeg"
'	img1txt="The Derrick Devil Pulp Cover ?"
'	img2="074TDD.jpeg"
'	img2txt="The Derrick Devil Bantam PB Cover #74"
'=====================================================
'	sTitle="Fortress Of Solitude"
'	sExt=".txt"
'	img1="023FOS.jpeg"
'	img1txt="Fortress Of Solitude Pulp Cover ?"
'	img2="023FOS.jpeg"
'	img2txt="Fortress Of Solitude Bantam PB Cover #74"
'=====================================================

Function makeHTML(sTitle,simg1,simg1txt,simg2,simg2txt,chapters,foldpath)
	'function to create user interface for finished book.
	'this interface is complete with graphics and 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> <font size='-1'>A Doc Savage Adventure.</font></h1>" & vbcrlf
	vbstr = vbstr & "</td>" & vbcrlf
	vbstr = vbstr & "<td rowspan='2' width='100'>" & vbcrlf
	vbstr = vbstr & "<img id='cover' height='150' width='120' onclick='swap()' src='..\images\" & simg1 & "' title='" & simg1txt & "'>" & vbcrlf
	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

'constant for the fso textstream object
ForWriting=2
Dim chapterArray(100)
Function makeXML(textFileFolder,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

folderPath=textFileFolder & 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=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
		storyXML.value=storyXML.value & i &" Complete." & vbcrlf
	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

Sub window_onload
	Dim fileName
	d1=sTitle & sExt
	chapters=makeXML(fileFolder,sTitle,sExt)
	storyXML.value=storyXML.value & makeControl(sTitle,img1,img1txt,img2,img2txt,chapters,fileFolder)
End Sub

</SCRIPT>
</HEAD>
<BODY>
	<textarea id="storyXML" cols="80" rows="20" wrap="off"></textarea>
</BODY>
</HTML>

No HTML to View

- Copyright 2003 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