Xpounded Text To PDF WSC Component

Here is the text to pdf in component form. Turn any text into a pdf document
This version is text only, also it has no MD5 hash nor RC4 encryption.

Note: The component returns only pdf markup.
Save this file as rspdf.wsc and register it to your system before using.

Select All

<?xml version="1.0"?>
<component>
<registration
	description="rspdf"
	progid="rspdf.doc"
	version="1.00"
	classid="{A8844B0B-CA06-CB5E-D0E5-7B08749934CC}"
	remotable="true" >
	<script language="VBScript">
	<![CDATA[
		function register()
			MsgBox("rsconvert.pdf is registered!")
		end function
		function unregister()
			MsgBox("rsconvert.pdf is unregistered!")
		end function
	]]>
	</script>
</registration>
<public>
	<property name="pagewidth">
		<get />
		<put />
	</property>
	<property name="pageheight">
		<get />
		<put />
	</property>
	<property name="fontsize">
		<get />
		<put />
	</property>
	<property name="horizspace">
		<get />
		<put />
	</property>
	<property name="leftoffset">
		<get />
		<put />
	</property>
	<property name="topoffset">
		<get />
		<put />
	</property>
	<property name="font">
		<get />
		<put />
	</property>
	<property name="text">
		<get />
	</property>
	<property name="version">
		<get />
		<put />
	</property>
	<property name="help">
		<get />
	</property>
	<method name="add">
		<PARAMETER name="rawtext" />
	</method>
	<method name="create"></method>
</public>
<script language="JavaScript">
	<![CDATA[
		var version="1.0"
		var pagewidth=512
		var pageheight=790
		var fontsize=14
		var horizspace=14.5
		var leftoffset=10
		var topoffset=20
		var font="Helvetica"
		var fontname="Helvetica"
		var text=""
		var endmark="\r\n"
		var pages=[]
		var entries=[]
		var help="Public Interface:\r\n"
			+"[PROPERTIES]\r\n" 
			+".help\r\n"
			+"\t(read only)\r\n"
			+"\tthis description\r\n"
			+".version=D.d\r\n"
			+"\t(read/write)\r\n"
			+"\tValid versions D.d = 1.0, 2.0, 3.0, 4.0 ,5.0, 6.0\r\n"
			+".pagewidth=D\r\n"
			+"\t(read/write)\r\n"
			+"\twidth of the page 100 < D < 2000\r\n"
			+".pageheight=D\r\n"
			+"\t(read/write)\r\n"
			+"\theight of the page 100 < D < 2000\r\n"
			+".font=valid_Font_Name\r\n"
			+"\t(read/write)\r\n"
			+"\tValid base 14 fontname\r\n"
			+".fontsize=D\r\n"
			+"\t(read/write)\r\n"
			+"\tset/get the font size\r\n"
			+".horizspace=D.d\r\n"
			+"\t(read/write)\r\n"
			+"\tset/get horizontal line seperation D.d>-.999\r\n"
			+".leftoffset=D.d\r\n"
			+"\t(read/write)\r\n"
			+"\tset pages left margin D positive\r\n"
			+".topoffset=D.d\r\n"
			+"\t(read/write)\r\n"
			+"\tset pages top margin D positive\r\n"
			+".text\r\n"
			+"\t(read only)\r\n"
			+"\treturns the document text that will be marked up.\r\n\r\n"
			+"[METHODS]\r\n"
			+".add(rawText)\r\n"
			+"\tadds raw text to the document\r\n"
			+".create()\r\n"
			+"\treturns a string that is the pdf document markup.\r\n"
			+"\tSave this string as a file with a pdf extension."

function get_help(){
			//get_help = help
			return help
		}

function get_version(){
			//get_version = version
			return version
		}

function put_version(newValue){
			switch(newValue){
				case "1.0":version=newValue;break;
				case "2.0":version=newValue;break;
				case "3.0":version=newValue;break;
				case "4.0":version=newValue;break;
				case "5.0":version=newValue;break;
				case "6.0":version=newValue;break;
			}
		}

function add(rawtext){
			text += rawtext
		}

function makepages(){
			var lines=text.split("\r\n")
			for(var i=0;i<lines.length;i++){
				fitlines(lines[i])
			}
			pagenate()
		}

function addentry(s){
			entries[entries.length]="("+s+") '"+endmark
		}
	
		function addpage(s){
			pages[pages.length]=s
		}

function documentid(){
			var ret=""
			var d="0123456789ABCDEF"
			var n=2*Math.ceil(Math.random()*10)+20
			for(var i=0;i<n;i++)
				ret+=d.substr(Math.floor(Math.random()*d.length),1)
			return ret
		}

function makebigdecimal(n){
			var r="0000000000"+n
			n=n+""
			return r.substr(n.length,10)
		}

for(var i=2;i<part.length;i++)
				pdf_end+=makebigdecimal(ll[i]) + " 00000 n"+endmark
	
			var docid=documentid()
	
			pdf_trailer1="trailer"+endmark
				+"<<"+endmark
				+"/Size "+nn+endmark
				+"/Root 1 0 R"+endmark
				+"/ID [<"+docid+"><"+docid+">]"+endmark
				+">>"+endmark
				+"startxref"+endmark
			pdf_trailer2=endmark
				+"%%EOF"+endmark
	
			var ret=""
			ret=pdf_header
			for(var i=0;i<part.length;i++)
				ret+=part[i]
			ret+=pdf_end
			pdf_trailer2=ret.length+pdf_trailer2
			ret+=pdf_trailer1
			ret+=pdf_trailer2
			return ret
		}
	]]>
</script>
</component>

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