// ************************************************************************<BR>
// Script Library<BR>
// Visual InterDev 6.0 Csv Parser DHTML<BR>
// <B>Do not modify in design view. Switch to source view.</B><BR>
// <br>
// ************************************************************************<BR>
// <SCRIPT>


function WC_ImportText(text,type,sTreatFirstRowAsColLabels,sTreatFirstColAsRowLabels,sFieldSeparator,sTextQualifier,rowTitle,colTitle,valTitle)
{
	return WC_ImportTextEx(text,type,sTreatFirstRowAsColLabels,sTreatFirstColAsRowLabels,sFieldSeparator,sTextQualifier,rowTitle,colTitle,valTitle,null);
}


function WC_ImportTextEx(text,type,sTreatFirstRowAsColLabels,sTreatFirstColAsRowLabels,sFieldSeparator,sTextQualifier,rowTitle,colTitle,valTitle,colFilterFunc)
{	
	if(type.toLowerCase() == "csv")
	{
		var psr = new WC_CsvParser(new WC_TextStream(text),sTreatFirstRowAsColLabels,sTreatFirstColAsRowLabels,sFieldSeparator,sTextQualifier,rowTitle,colTitle,valTitle);
		psr.colFilterFunc = colFilterFunc ;
		return psr._csvParseFile();
	}
	else
		return text;	
	
}

function WC_CsvParser(stream,sTreatFirstRowAsColLabels,sTreatFirstColAsRowLabels,sFieldSeparator,sTextQualifier,rowTitle,colTitle,valTitle)
{	 	
	if (typeof(_bWCCSVPrototypeCalled) == 'undefined')
		_WCCSV__Prototype();
	
	this.stream = stream;
	
	if(typeof(sFieldSeparator) == 'string')
	{
		sFieldSeparator = sFieldSeparator.toLowerCase();
		if(sFieldSeparator == "comma")	   this.fs =  ",";
		if(sFieldSeparator == "space")	   this.fs =  " ";
		if(sFieldSeparator == "semicolon") this.fs =  ";";
		if(sFieldSeparator == "tab")	   this.fs =  "\t";		
	}
	
	if(typeof(sTextQualifier) == 'string')
	{		
		if(sTextQualifier.toLowerCase() == "single quote") this.tq = "'";
		if(sTextQualifier.toLowerCase() == "double quote") this.tq = '"';		
	}	
	
	this.bTreatFirstRowAsColLabels = this._str2bool(sTreatFirstRowAsColLabels,true);
	this.bTreatFirstColAsRowLabels = this._str2bool(sTreatFirstColAsRowLabels,true);
	
	this.rowTitle = rowTitle ;
	this.colTitle = colTitle ;
	this.valTitle = valTitle ;
}	

function _WCCSV__Prototype()
{
	_bWCCSVPrototypeCalled = 1;
	
	WC_CsvParser.prototype.stream = null;
	WC_CsvParser.prototype.tq = "";
	WC_CsvParser.prototype.fs =",";
	WC_CsvParser.prototype.bTreatFirstRowAsColLabels = true ;
	WC_CsvParser.prototype.bTreatFirstColAsRowLabels = true ;	


	WC_CsvParser.prototype._str2bool		=	_WCCSV__str2bool;
	WC_CsvParser.prototype._csvParseFile	=	_WCCSV__csvParseFile;
	WC_CsvParser.prototype._csvParseLine	=	_WCCSV__csvParseLine;
	WC_CsvParser.prototype._csvReadLine     =   _WCCSV__csvReadLine ;
	WC_CsvParser.prototype._buildXmlString  =	_WCCSV__buildXmlString;

	function _WCCSV__str2bool(str,defval)
	{
		if(typeof(str) == 'string')
		{
			str = str.toLowerCase();
			if(str == "yes" || str == "on" || str == "true") return true;
			if(str == "off" || str == "no" || str == "false") return false;
		}
		return defval;
	}
				
	function _WCCSV__csvParseFile()
	{			
		var valArray = new Array();
		var colArray ;
	
		if(this.stream.AtEnd()) return "<xml><cols/><rows/><data/></>";
		
		if(this.bTreatFirstRowAsColLabels) 
			colArray = this._csvParseLine(this.stream.ReadLine());			
		else
			colArray = null; 
		
		while(!this.stream.AtEnd())
		{
			var values = this._csvParseLine(this.stream.ReadLine());
			if(values != null) valArray[valArray.length] = values  ;
		}
										
		var rows ="";
		var cols ="";
		var data ="";
				
		var firstCol = this.bTreatFirstColAsRowLabels? 1 : 0;		
		
		if(colArray != null)
			for(var i=firstCol;i<colArray.length;i++) cols += "<col>"+colArray[i]+"</>";
		
		if(this.bTreatFirstColAsRowLabels)		
		{
			if(colArray != null) 
				rows = colArray[0];							
			for(var i=0;i<valArray.length;i++) 
			{
				rows +=  "<row>"+valArray[i][0]+"</>";
				for(var j=1;j<colArray.length;j++) data += "<value>" + valArray[i][j]+"</>";
			}			
		}
		else
			for(var i=0;i<valArray.length;i++) 
			{
				rows +=  "<row/>";
				for(var j=0;j<colArray.length;j++) data += "<value>" + valArray[i][j]+"</>";
			}
	
		return "<xml>"+"<rows>"+this.rowTitle+rows+"</>"+"<cols>"+this.colTitle+cols+"</>"+"<data>"+this.valTitle+data+"</>"+"</xml>";	
	}
	
	function _WCCSV__csvReadLine(line)
	{
		var retval = new Array();
		var pos = 0;					
					
		while(pos < line.length)
		{
			var value = "";			

			if(this.tq.length > 0 && (line.charAt(pos) == this.tq.charAt(0)))
			{
				var last = line.indexOf(this.tq,pos+1);
				if(last == -1)
					{ value = line.substring(pos+1,line.length) ; pos = line.length+1; }
				else
					{ value = line.substring(pos+1,last); 
					pos = line.indexOf(this.fs,last+1);
					if(pos == -1) pos = line.length+1 ; else pos ++ ;
					}					
			}
			else
			{
				var last = line.indexOf(this.fs,pos);
				if(last == -1) last = line.length   ; 
				value = line.substring(pos,last)	;  
				pos = last + 1; 					
			}
			retval[retval.length] = value;
		}						
		return retval;
	}
	
	function _WCCSV__csvParseLine(line)
	{
		var retval = null ;
		
	   while(!this.stream.AtEndOfStream && retval == null) 
	   {
	   		retval =	this._csvReadLine(line);
			if(typeof(this.colFilterFunc) == 'string')    
				{ if(this.colFilterFunc != "")  eval("retval = "+this.colFilterFunc+"(retval)"); }
			else
			if(typeof(this.colFilterFunc) == 'function')  
				retval = this.colFilterFunc(retval); 
		}
			
		if(retval == null) return null; 
					
		for(var pos=0;pos<retval.length;pos++) 
			retval[pos] = this._buildXmlString(retval[pos]);
		return retval;
	}

	function _WCCSV__buildXmlString(str)
	{
		var retval = "";
		if(typeof(str) != 'string') return str;
		for(var i=0;i<str.length;i++)
			switch(str.charAt(i))
			{
				case '\'':	retval += "&apos;" ; break;
				case '"' :  retval += "&quot;"; break;
				case '&' :  retval += "&amp;" ; break;
				case '<' :  retval += "&lt;"  ; break;
				case '>' :  retval += "&gt;"  ; break;
				case '\t':  retval += "&tab;" ; break;
				default  :  retval += str.charAt(i);
			}
		return retval;
	}
	// End of prototype

}
// ************************************************************************
// Script Library<BR>
// Visual InterDev 6.0 Text Stream DHTML<BR>
// <B>Do not modify in design view. Switch to source view.</B><BR>
// <br>
// ************************************************************************



function WC_TextStream(text)
{	
	if (typeof(_bWCTSPrototypeCalled) == 'undefined')
		_WCTS__Prototype();
	this.text = "" + text;
	return this;
}


function _WCTS__Prototype()
{
	_bWCTSPrototypeCalled = 1;
	
	WC_TextStream.prototype.text = "" ;
	WC_TextStream.prototype.pos  = 0;
	 
	// public members
	WC_TextStream.prototype.AtEnd		= _WC_TextStream_AtEnd;
	WC_TextStream.prototype.ReadLine	= _WC_TextStream_ReadLine;


	function _WC_TextStream_AtEnd()		{ return this.pos >= this.text.length ; }
	function _WC_TextStream_ReadLine()	
	{
		var line;
		var index = this.text.indexOf("\n",this.pos);
		if(index == -1)
			{ line = this.text.substring(this.pos,this.text.length); this.pos = this.text.length + 1 ; return line ; }	
		line = this.text.substring(this.pos,index);				
		while(line.length > 0 && line.charCodeAt(line.length-1) < 32) line = line.substring(0,line.length-1);
		this.pos = index;
		while( this.pos < this.text.length && this.text.charCodeAt(this.pos) < 32) this.pos ++;		
		return ""+line;
	}
}