tools/txt2table.aardio

import fonts.fontAwesome;
import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=815;bottom=567)
winform.add(
btnWbPrint={cls="button";text="Print";left=752;top=448;right=792;bottom=472;z=9};
button={cls="button";text="Button";left=744;top=520;right=800;bottom=552;z=3};
button2={cls="button";text="Copy";left=736;top=104;right=784;bottom=128;z=4};
combobox={cls="combobox";left=736;top=168;right=808;bottom=192;edge=1;items={};mode="dropdownlist";z=8};
edit={cls="edit";left=16;top=16;right=728;bottom=280;db=0.51;dl=1;dr=0.11;dt=1;edge=1;font=LOGFONT(name='Consolas');hscroll=1;multiline=1;vscroll=1;z=1};
editOri={cls="edit";text="Edit";left=16;top=288;right=728;bottom=552;db=1;dl=1;dr=0.11;dt=0.51;edge=1;font=LOGFONT(name='Consolas');hscroll=1;multiline=1;vscroll=1;z=2};
plusCenter={cls="plus";left=760;top=64;right=780;bottom=84;bgcolor=-5197169;font=LOGFONT(h=-13);iconStyle={font=LOGFONT(h=-13;name='FontAwesome')};iconText='\uF037';textPadding={left=20};z=7};
plusLeft={cls="plus";left=736;top=64;right=756;bottom=84;bgcolor=-5197169;font=LOGFONT(h=-13);iconStyle={font=LOGFONT(h=-13;name='FontAwesome')};iconText='\uF036';notify=1;textPadding={left=20};z=5};
plusRight={cls="plus";left=784;top=64;right=804;bottom=84;bgcolor=-5197169;font=LOGFONT(h=-13);iconStyle={font=LOGFONT(h=-13;name='FontAwesome')};iconText='\uF038';textPadding={left=20};z=6}
)
/*}}*/

/***
+完成每列等宽设计
+完成行内换行设计
++完成换行后行内垂直居中设计
+完成对齐功能L、C、R
+完成列合并功能
++完成列合并后居中功能
+完成行合并功能
--待完成行合并后垂直居中功能
*修复列宽bug
+添加\\r转义
*修复\-结尾的bug？
***/

import console
winform.editOri.text = /***
列一	列二	列三	列四	列五	
"\|"表示下行与前行合并	"\-"表示后列与前列合并 \-	\- 	SRSlot
\|	"\\r"\r表\r示\r换\r行	 自举子帧	BootSFrm	NEW
\|	自举应答子帧	RBootSFrm	同步时隙	\|
	参数分发子帧	PSFrm	\- \-
***/

/***
"\r"代表单元格内换行
"\-"代表与前列合并单元格，其后值忽略
"\|"代表与前行合并单元格
***/

winform.combobox.items = {"空白字符";"制表符";"空格"}
winform.combobox.selIndex =1

align = "Center"

	


str2xls = function(str,ss,s,c){
	if(!s){
		s= "-"
	}
	if(!c){
		c="+"
	}
	if(!ss){
		ss=s
	}

	
	
	var strXls = ""; 
	string.appendText = function(str){
		strXls = strXls ++ str
	}
	var delta = 1; //默认两侧各多1个空格
	var Rowstr = string.splitEx(str,'\r\n')//分行
	
	var pattern = {"\s+";"\t+";" +"}; //截断规则
	var Rowarr = table.map(Rowstr,lambda(v,k) string.splitEx(string.trimright(v),pattern[winform.combobox.selIndex]) )//分列
	
	var Cmax = table.map(Rowarr,lambda(v,k) #v ); 
	table.sort(Cmax)//获取最大列数Cmax[#Cmax]
	
	var Rmax={}//最大子行数
	
	RowarrRN = table.map(Rowarr,function(v,k,result){//分子行
		var a = {}; 
		var rr = 1; 
		//console.dump(v)
		for(i=1;Cmax[#Cmax];1){//#tmp[1]获取最大列而非#v是避免遗漏空列 
			var x = string.splitEx(v[i]==null?" ":v[i],"!\\\\r"); //||代表元素换行
			x = table.map(x,lambda(v,k) string.replace(v,"@\\r","\r") )//去掉\\转义
			table.push(a,x)
	
			if(rr<#x){//当前行内排序，找出最大的子行数
				rr=#x
			}
		}
		table.push(Rmax,rr)
		
		return a; 
	}); 
	//console.dump(RowarrRN)
	
	
	vc = function(arg,max){//数组元素居中
		var arr = arg; 
		var num = math.floor((max-#arr)/2); 
		while(num){
			table.insert(arr,"")
			num = num-1
		}
		arr = table.slice(table.mix(arr,table.array(max,"")),1,max)
		return arr; 
	}
	
	vc1line = function(arg){//行内（换行）垂直居中
		var tmp = arg; 
		for(i=1;#tmp;1){
			for(j=1;#tmp[1];1){
				tmp[i][j] = vc(tmp[i][j],Rmax[i])
			}
		}	
		return tmp; 
	}
	
	var tmp = vc1line(RowarrRN)
	
	vc2line = function(i,j){//连续行（合并行）垂直居中
		arr = vc(RowarrRN[i-1][j],Rmax[i-1]+2)
		return arr; 
	}
	//console.dump(vc2line(3,3))
	
	glA = function(str){//获取字符中ASCII字符个数
		var llA = {};
		string.search(llA,str,"\i" )
		return #llA; 
	}
	
	gw = function(){	//获取每列最大列宽
		var wmax = {}; //每列最大列宽
	
		for(j=1;#tmp[1];1){//col
			var llA = glA(tmp[1][j][1])
			var w = string.len(tmp[1][j][1])-math.floor(llA/2)//;#tmp[1][j][1];#l1A}; //字符宽，字节宽，ASCII个数
			
			for(i=1;#tmp;1){//row
				for(ii=1;Rmax[i];1){
					if(tmp[i][j][ii]==null){
						tmp[i][j][ii]= ""
					}
					
					
					var llA = glA(tmp[i][j][ii])
					var l = string.len(tmp[i][j][ii])-math.floor(llA/2)
					if(w <= l){//字符最长
						w = l//字符宽
					}
				}
			}
			table.push(wmax,w)
		}
		return wmax; 
		
	}
	
	var UserWmax = table.clone(gw())
	//console.dump(UserWmax)
	
	
	
	txt2arrOri = function(){
		var newstr = {}; 
		for(i=1;#tmp;1){//row
			for(ii=1;Rmax[i];1){//元素换行
				var rowsep={}
				var rowtxt={}
				for(j=1;#tmp[1];1){
					
				//
				//新数组，[行号]={连接符; 单元格字符; sta;对应原txt所在行}
				var con = c; 
				var dstr = string.repeat((UserWmax[j]+delta)*2,s)
				//var l = (UserWmax[j]-string.len(tmp[i][j][ii]))*2+math.round(glA(tmp[i][j][ii]))+2*delta; //需添加空格数
				
				
				if(i == 2){//表头,last
					//dstr = string.repeat((UserWmax[j]+delta)*2,ss); 
				}
				
				if(ii == 1){//子行不添加分割行
					table.push(rowsep,{con;dstr;0})
				}

				table.push(rowtxt,{"|";tmp[i][j][ii];0;i})
			}//end j
				
			if(rowsep[1]!=null){
				table.push(newstr,rowsep)//new row in cell; 
			}
			table.push(newstr,rowtxt)
			//console.dump(newstr[i][2])
			}//end ii
			}//end i
		return newstr; 	
	}
	
	//var txtArr = txt2arrOri()
	
//console.dump(txt2arrOri())
	formatarr = function(a){
		
		var arg = a; 
		
		gs = function(){
			var a = table.array(#arg,#arg[1],0); 
			for(i=1;#arg;1){//row
				for(j=1;#arg[1];1){
					select(arg[i][j][2]) {
						case "\-" {//优先处理行内合并
							a[i][j]=-1
							if(j>1){
								a[i][j-1]=-1
							}
						}
						case "\|" {
							a[i][j]=1
						}
						else {
							a[i][j]=0
						}
					}
				}
			}
			return a; 
		}
		var sta = gs()
		//console.dump(sta)
		
		//align
		aCell = function(str,w){//align current cell
			if(w==null){
				//w=UserWmax[j] 
			}
			var ll = (w-string.len(str))*2+math.round(glA(str))+2*delta; //需添加空格数
		
			select(align) {
				case "Center" {//center
					return string.repeat(math.floor(ll/2)," ") ++ str ++ string.repeat(ll-math.floor(ll/2)," "))
				}
				case "Right" {//right
					return string.repeat(ll-delta," ") ++ str ++ string.repeat(delta," "))
				}
				else {//left
					return string.repeat(delta," ") ++ str ++ string.repeat(ll-delta," "))
				}
			}
		}
		
		
		
		
		var tmpalign = align
		for(i=1;#arg;1){//row
			for(j=1;#arg[1];1){
				if(arg[i][j][1] != c){//only txt
					if(i == 2){//表头强制居中
						align = "Center"
					}
					else {
						align = tmpalign
					}
					arg[i][j][2] = aCell(arg[i][j][2],UserWmax[j])
				}
			}
		}
		
	
		
		
		
		var Rc = Rowarr; 
		var xd = txt2arrOri(); 
		for(i=1;#arg;1){//row
			for(j=1;#arg[1];1){
				if(arg[i][j][1] != c){//only txt
					
					//行合并
					if(xd[i][j][2] == "\|" and i != 1 and sta[i-1] != -1){
						//xd[i][j][2] = ""
						var k = 1; 
						var r2c = Rmax[arg[i][j][4]] + Rmax[arg[i][j][4]-1]+1; 
						var ori = {};
						var r1 = i-math.floor((Rmax[arg[i][j][4]]-1)/2)-Rmax[arg[i][j][4]-1]-1
						for(r=r1;r1+Rmax[arg[i][j][4]-1]-1;1){
							table.push(ori,xd[r][j][2])
						}
						
						//while(xd[i+2*(k)][j][2] == "\|"){
						while(Rc[arg[i][j][4]+k][j] == "\|"){//txt下一行同列
							//console.dump(k,Rmax[arg[i][j][4]+k])
							Rc[arg[i][j][4]+k][j] = ""
							math.floor((Rmax[arg[i][j][4]]-1)/2)
							r2c += Rmax[arg[i][j][4]+k]+1
							if(k!=#arg){
								k += 1
							}
							//console.dump(Rc)
						}
						ori = vc(ori,r2c)
						//console.dump(ori)
						for(r=1;#ori;1){
							xd[r1+r-1][j][2]=""
							arg[r1+r-1][j][2]=aCell(ori[r],UserWmax[j])
						}
					}
					
					//行内合并
					if(xd[i][j][2] == "\-" and j != 1){//第一列无效
						xd[i][j][2] = ""
						//check how many cells to compose
						var k = 1;
						var w = UserWmax[j]+UserWmax[j-1]; 
						//未能处理最后一列全为\-的情况，暂用try跳过
						try{
							while(xd[i][j+k][2] == "\-"){
								//console.log(k)
								xd[i][j+k][2] = ""
								w += UserWmax[j+k]
								if(k!=#arg[1]){
									k += 1
								}
							}
						}
						
						//force align to center
						var r2c = Rmax[arg[i][j-1][4]]; 
						for(r=i-math.floor((r2c-1)/2);i+r2c-math.floor((r2c-1)/2)-1;1){
							var str = txt2arrOri()[r][j-1][2];
							var ll = (w-string.len(str))*2+math.round(glA(str))+2*delta+(2*delta+1)*k; //需添加空格数
							arg[r][j-1][2] = string.repeat(math.floor(ll/2)," ") ++ str ++ string.repeat(ll-math.floor(ll/2)," ")
							//arg[r][j][2] = ""
							for(n=0;k-1;1){
								arg[r][j+n][2] = ""
							}
						}
					}//end 
					
					
				}
			}
		}
		
		
		
		return arg; 
		
	}

	arr2str = function(arr){
		var strs = table.map(arr,function(v,k,result){
			var c = v[1][1]; 
			//var str = table.map(v,lambda(vv,kk) vv[2])
			var str = {}
			for(i=1;#v;1){//去掉空cell，数组大小会减小，map不改变数组大小
				if(v[i][2]!=""){
					table.push(str,v[i][2])
				}
			}
			return c++string.join(str,c)++c
		})
		//console.dump(strs)
		strXls = string.join(strs,'\r\n') ++ '\r\n' ++ strs[1]
	}
	
	arr2str(formatarr(txt2arrOri()))

	return "<pre>" ++ strXls ++"</pre>"; 
}//end str2xls	




//write-space:pre|pre-line;

import web.form
var wb = web.form(winform.edit); 
wb.html = /**
<!DOCTYPE html>
<html>
	<head>
		<meta charset="utf-8">
		<title></title>
			<script>
			</script>
			
			<style type="text/css">
				pre,body {
    				font-family: 仿宋;
    				font-size:12px;
    				color: black;
       				background-color: #f8f8f8;
					display: block;
					line-height:1;
					
				}
				h1{
					font-size:inherit;
					font-weight: bold;
					color: #4183C4; 
					write-space:pre-line;
				}
			</style>
	</head>
	
	<body>
	</body>
	
</html>	 
**/

winform.button2.oncommand = function(id,event){
	wb.execWb( 0x11/*_OLECMDID_SELECTALL*/,0 )
	wb.execWb( 0xC/*_OLECMDID_COPY*/,0 ) 
}

winform.button.oncommand = function(id,event){
	wb.body.innerHTML =  str2xls(winform.editOri.text,"="); 
}


for(name,ctrl in winform.eachControl("plus","plus*") ){
	ctrl.skin({
		background={
			default=0x668FB2B0;
			disabled=0xFFCCCCCC;
			hover=0xFF928BB3
		};
		color={
			default=0xFF000000;
			disabled=0xFF6D6D6D
		}
	})
	
	ctrl.oncommand = function(id,event){
		align = string.trimleft(name,"plus");
		winform.button.oncommand()
	}
}

winform.button.oncommand()

winform.editOri.onChange = function(){
	winform.button.oncommand()
}


winform.combobox.oncommand= function(id,event){
    var text = owner.selText;
	if(event == 9/*_CBN_SELENDOK*/){
		winform.button.oncommand()
	}
}


	//HTML格式打印
winform.btnWbPrint.oncommand = function(id,event){
    wb.getDoc().execCommand("print")
}

winform.show();
win.loopMessage();


// todo fix bugs