Xpounded Text To PDF using only script

This simple example page will allow you to turn a plain text file into a pdf document
This version is text only, also it has no MD5 hash nor RC4 encryption.

Note: The pdf will be created in the same directory as the text document.
Save this file as any name with an .html extension

Select All

<HTML>
<HEAD>
<TITLE>
	Xpounded Text to PDF Pure script
</TITLE>
<STYLE>
	#txt	{font-family:fixedsys;}
	select	{font-weight:bold;}
</STYLE>
<SCRIPT Language="VBScript">
'
Dim desktop, WshShell
set WshShell = CreateObject("WScript.Shell")
desktop = WshShell.SpecialFolders("Desktop")
set WshShell = Nothing
Function getName(sPath)
	Dim g1, g2
	g1 = InStrRev(sPath,"\")
	If g1 > 0 Then
		sPath = Right(sPath,Len(sPath)-g1)
	End IF
	g2 = InStrRev(sPath,".")
	If g2 > 0 Then
		sPath = Left(sPath,g2-1)
	End If
	getName = sPath
End Function
Function getFile(sPath)
	Dim g1
	g1 = InStrRev(sPath,"\")
	If g1 > 0 Then
		sPath = Right(sPath,Len(sPath)-g1)
	End IF
	getFile = sPath
End Function
Function getExtension(sPath)
	Dim g1
	g1 = InStrRev(sPath,".")
	If g1 > 0 Then
		sPath = Right(sPath,Len(sPath)-g1)
	Else
		sPath = ""
	End If
	getExtension = sPath
End Function
Function getPath(sPath)
	Dim g1
	g1 = InStrRev(sPath,"\")

If g1 > 0 Then
		sPath = Left(sPath,g1)
	End If
	getPath = sPath
End Function
Function openDialog(sPath,sFilter)
	Dim oCDlg, sFile
	Const OFN_EXPLORER = &H80000
	Const OFN_LONGNAMES = &H200000
	Set oCDlg = CreateObject("MSComDlg.CommonDialog")
	sFile = String(260, Chr(0))
	With oCDlg
		.Flags = OFN_EXPLORER Or OFN_LONGNAMES
		.MaxFileSize = 260
		.InitDir = sPath
		If sFilter <> "" Then
			.Filter = sFilter
		Else
			.Filter = "All Files (*.*)|*.*"
		End If
		.ShowOpen
		sFile = .FileName
		If sFile <>"" Then
			sReturn = sFile
		End If
	End With
	Set oCDlg = nothing
	openDialog = sReturn
End Function
</SCRIPT>
<SCRIPT Language="JavaScript">
//==================================
function setMaxChars(){
	return Math.ceil(fontOff[fontname.toLowerCase()]*parseInt(pagewidth/fontsize))
}
//supply required adjustments
var fontOff=new Array()
fontOff["helvetica"]=1.9
fontOff["courier"]=1.4
fontOff["courier-bold"]=0.8
fontOff["courier-boldoblique"]=0.5
fontOff["courier-oblique"]=0.8
fontOff["helvetica-bold"]=0.8
fontOff["helvetica-boldpblique"]=0.8
fontOff["helvetica-oblique"]=0.8
fontOff["times-roman"]=1
fontOff["times-bold"]=0.8
fontOff["times-italic"]=1
fontOff["times-bolditalic"]=1
fontOff["symbol"]=1
fontOff["zapfdingbats"]=1

var fontsize=12
	var horizspace=14.5
	var fontname="Helvetica"
	var pagewidth = 512
	var pageheight = 792
	var maxChrsPerLine=parseInt(setMaxChars())	//length of lines
	var maxLinesPerPage=45	//number of lines per page
	var ForReading=1		//for fso
	var ForWriting=2		//for fso
	var pages=new Array()	//holds final page content
	var pageCount = -1	//number of final pages
	var maxchar = maxChrsPerLine
	var pdfArray=new Array()
	var arrcntr=0
	var filePath="C:\\"
	var fs = new ActiveXObject("Scripting.FileSystemObject")
	var lf="\n"
	var cr="\r"
	var crlf=cr+lf
	var lfcr=lf+cr
	var endmark=crlf
	var 	pdg_obj = new Array()

function pdf(s){
	//1st prepare text and get needed metrics from a text file
	makeText()

//lowest pdf
	pdf_header="%PDF-1.0"+endmark

//the pdf body
	pdg_obj[0]=""
	
	//the catelog for the file
	pdg_obj[1]="1 0 obj"+endmark
			+"<<"+endmark
			+"/Type /Catalog"+endmark
			+"/Pages 3 0 R"+endmark
			+"/Outlines 2 0 R"+endmark
			+">>"+endmark
			+"endobj"+endmark

//outline thrown in just cause
	pdg_obj[2]="2 0 obj"+endmark
			+"<<"+endmark
			+"/Type /Outlines"+endmark
			+"/Count 0"+endmark
			+">>"+endmark
			+"endobj"+endmark

//the page tree descriptor
	pdg_obj[3]="3 0 obj"+endmark
			+"<<"+endmark
			+"/Type /Pages"+endmark
			+"/Count "
	pdg_obj[3]+=pages.length+endmark
			+"/Kids ["
	for(var i=0;i<pages.length;i++){
		pdg_obj[3]+=parseInt(i+4)+" 0 R "
	}
	pdg_obj[3]+="]"+endmark
			+">>"+endmark
			+"endobj"+endmark
	
	//a few more 'constants' to keep it straight
	var pagesStartOffset=4
	var endOfPages=parseInt(pagesStartOffset+pages.length-1)
	var contentStartOffset=parseInt(endOfPages+1)
	var endOfContent=parseInt(contentStartOffset+pages.length-1)

//The page descriptors (1 for each page)  
	for(var i=0;i<pages.length;i++){
		pdg_obj[i+pagesStartOffset]=parseInt(i+pagesStartOffset)+" 0 obj"+endmark
			+"<<"+endmark
			+"/Type /Page"+endmark
			+"/Parent 3 0 R"+endmark
			+"/Resources << /Font << /F1 "+parseInt(endOfContent+2)+" 0 R >> /ProcSet "+parseInt(endOfContent+1)+" 0 R >>"+endmark
			+"/MediaBox [0 0 " + pagewidth + " " + pageheight + "]"+endmark
			+"/Contents "+parseInt(i+contentStartOffset)+" 0 R"+endmark
			+">>"+endmark
			+"endobj"+endmark
	}

//The page content (1 for each page)
	for(var i=0;i<pages.length;i++){
		pdg_obj[i+contentStartOffset]=parseInt(i+contentStartOffset)+" 0 obj"+endmark
			+"<< /Length " + pages[i].length + " >>"+endmark
			+"stream"+endmark
			+"BT"+endmark				//Begin Text
			+"/F1 "+fontsize+" Tf"+endmark			//font ref, font size, set TextFace
			+"10 770 Td "+horizspace+" TL"+endmark		//1st line is @ x=10, y=770 (0,0=bottom left)
									//horizintal sepertion = 14.5
		pdg_obj[i+contentStartOffset]+=pages[i]

pdg_obj[i+contentStartOffset]+="ET"+endmark
			+"endstream"+endmark
			+"endobj"+endmark
	}

//The resource descriptor required for text pages
	//only need one - all pages are the same text only
	pdg_obj[endOfContent+1]=parseInt(endOfContent+1)+" 0 obj"+endmark
		+"[/PDF /Text]"+endmark
		+"endobj"+endmark

//The font descriptor resource
	pdg_obj[endOfContent+2]=parseInt(endOfContent+2)+" 0 obj"+endmark
		+"<<"+endmark
		+"/Type /Font"+endmark
		+"/Subtype /Type1"+endmark
		+"/Name /F1"+endmark
		+"/BaseFont /"+ fontname + endmark
		+"/Encoding /WinAnsiEncoding"+endmark
		+">>"+endmark
		+"endobj"+endmark
	//The base 14 Type1 Fonts are:
	//Courier
	//Courier-Bold
	//Courier-BoldOblique
	//Courier-Oblique
	//Helvetica
	//Helvetica-Bold
	//Helvetica-BoldOblique
	//Helvetica-Oblique
	//Times-Roman
	//Times-Bold
	//Times-Italic
	//Times-BoldItalic
	//Symbol
	//ZapfDingbats

//calculate metrics for the trailer
	var ll=new Array()
	ll[0]=0
	ll[1]=pdf_header.length
	for(var i=2;i<pdg_obj.length;i++){

ll[i]=ll[i-1]+pdg_obj[i].length
	}
	nn=pdg_obj.length

//mark the end of the references with the xref marker
	pdf_end="xref"+endmark
			+"0 "+nn+endmark
			+"0000000000 65535 f"+endmark
			+makebigdecimal(ll[1]) + " 00000 n"+endmark

for(var i=2;i<pdg_obj.length;i++)
			pdf_end+=makebigdecimal(ll[i]) + " 00000 n"+endmark

//add the trailer and your done
	pdf_trailer1="trailer"+endmark
			+"<<"+endmark
			+"/Size "+nn+endmark
			+"/Root 1 0 R"+endmark
			+"/ID [<2E5532167841F236B5><2E5532167841F236B5>]"+endmark
			+">>"+endmark
			+"startxref"+endmark
			//"553"+endmark
	pdf_trailer2=endmark
			+"%%EOF"+endmark

//make the pdf file from its parts
	var ret=""
	ret=pdf_header
	for(var i=0;i<pdg_obj.length;i++)
		ret+=pdg_obj[i]
	ret+=pdf_end
	pdf_trailer2=ret.length+pdf_trailer2
	ret+=pdf_trailer1
	ret+=pdf_trailer2
	return ret
}

function makebigdecimal(n){
	//for the trailer metrics
	var r="0000000000"+n
	n=n+""
	return r.substr(n.length,10)
}

//assuming crlf line terminal
	var ms=str.split(crlf)

for(var i=0;i<ms.length;i++)
		makePdfText(ms[i])

for(var i=0;i<pdfArray.length;i++){
		pdfArray[i]="("+pdfArray[i]+") '"+endmark
	}

makePages()
}
var myfile=""
var myFilePath=""
function init(){
	try{
		//use open dialog box if possible (MSComDlgb)
		myFilePath=openDialog(desktop,"TEXT|*.txt")
		main()
	}
	catch(e){
		//otherwise set up simple form to enter the path to the file
		//1st add newly required function
		//scripts[0]=vbs, scripts[1]=js
		document.scripts[1].text += "function btnclick(){myFilePath=fpath.value\nmain()\n}";
		var idiv=document.createElement("div")
		idiv.innerHTML="<b>Type or Paste a filename into the text box.</b><br />"
		var inp=document.createElement("input")
		inp.size=64
		inp.id="fpath"
		inp.value=desktop+"\\"
		ibtn=document.createElement("button")
		ibtn.value="Make PDF"
		ibtn.onclick=btnclick
		idiv.appendChild(inp)
		idiv.appendChild(ibtn)
		document.body.appendChild(idiv)
		txt.rows=3
	}
}
function main(){
	fontname=fontselection.value
	maxChrsPerLine=parseInt(setMaxChars())
	mfile=myFilePath.substr(0,myFilePath.length-4)+".pdf"
	var ts = fs.OpenTextFile(mfile, ForWriting, true)
	txt.value="Please Wait..."
	ts.write(pdf("s"))
	txt.value="PDF Ready.\r\n\r\nPDF file is located in the same directory as the origional text file"
}
</SCRIPT>
</HEAD>
<BODY>
<b>Use This Font: </b><select id="fontselection">
<opion value="Courier">Courier</option>
<optionvalue="Courier-Bold">Courier-Bold</option>
<option value="Courier-BoldOblique">Courier-BoldOblique</option>
<option value="Courier-Oblique">Courier-Oblique</option>
<option value="Helvetica" default>Helvetica</option>
<option value="Helvetica-Bold">Helvetica-Bold</option>
<option value="Helvetica-BoldOblique">Helvetica-BoldOblique</option>
<option value="Helvetica-Oblique">Helvetica-Oblique</option>
<option value="Times-Roman">Times-Roman</option>
<option value="Times-Bold">Times-Bold</option>
<option value="Times-Italic">Times-Italic</option>
<option value="Times-BoldItalic">Times-BoldItalic</option>
<option value="Symbol">Symbol</option>
<option value="ZapfDingbats">ZapfDingbats</option>
</select>
    
<button onclick="init()">Select Text and Make PDF</button>
<textarea id="txt" 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