aardio 写的 Excel输出 TXT文件

import win.ui;

import win.ui.tooltip;

/*DSG{{*/

var winform = win.form(text="Excel输出 TXT文件";right=502;bottom=358;acceptfiles=1;bgcolor=15780518;border="dialog frame";max=false;mode="popup")

winform.add(

button2={cls="button";text="生成文件";left=383;top=275;right=458;bottom=302;z=5};

fgf={cls="combobox";left=79;top=125;right=226;bottom=147;edge=1;items={"|"};mode="dropdown";z=11};

lb={cls="listbox";left=304;top=117;right=467;bottom=266;border=1;edge=1;items={};msel=1;vscroll=1;z=6};

msg={cls="edit";text="信息提示";left=11;top=309;right=497;bottom=351;bgcolor=8421376;edge=1;font=LOGFONT(h=-16);multiline=1;readonly=1;z=2};

sel_sfile={cls="button";text="...";left=445;top=87;right=467;bottom=109;z=9};

selfd={cls="static";text="点击右边选择要输出的字段";left=28;top=169;right=290;bottom=260;border=1;transparent=1;z=12};

sfile={cls="edit";text="Edit";left=79;top=86;right=438;bottom=110;acceptfiles=1;edge=1;z=8};

static={cls="static";text="Excel输出 TXT文件";left=11;top=16;right=493;bottom=67;align="center";bgcolor=32896;color=8388608;font=LOGFONT(h=-32;weight=700);transparent=1;z=1};

static1={cls="static";text="源文件：";left=24;top=88;right=82;bottom=109;transparent=1;z=7};

static2={cls="static";text="分隔符：";left=24;top=127;right=82;bottom=150;transparent=1;z=10};

static3={cls="static";text="输出路径：";left=23;top=275;right=114;bottom=292;transparent=1;z=4};

tfile={cls="static";text="#";left=85;top=273;right=352;bottom=294;border=1;notify=1;transparent=1;z=3}

)

/*}}*/

import fsys.dlg;//对话框库

var selfdtxt="点击右边选择要输出的字段"+'\n'+"按住CTRL可以多选，按住SHIFT可以连选" +'\n'+"———————下面是已选字段———————"+'\n';

var sv={};//点选字段列表

initme=function(){//初始化

var tip=win.ui.tooltip(winform);//提示信息

winform.sfile.text="";

winform.msg.text="今天是："+string.format("%4d年%2d月%2d号", time.now().year,time.now().month,time.now().day);

tip.addTool(winform.tfile,"点击设置输出文件名",0x10);//帮助提示

tip.addTool(winform.sfile,"可以把要转换的文件拖放到程序窗体上",0x10);//帮助提示

winform.selfd.text=selfdtxt;

}

outpath=function(){//选择输出文件

var path = fsys.dlg.save("文本文件(TXT)|*.txt|所有文件|*.*",,,winform);

if(path){

return(path);

}

return ("#");

}

selfile=function(){//选择源文件

var path = fsys.dlg.open('Excel文件|*.xls;*.xlsx;*.csv|所有文件|*.*||',,,winform);

if(path){

return(path);

}

return null;

}

deltoo=function(t){//删除重复项

if(type(t)=="table"){

var rtn={};

for(i=1;#t;1){

if(!table.find(rtn,t[i])){table.push(rtn,t[i]);}

}

return(rtn);

}

build2txt=function(sf,tf){//生成txt文件 sf 源文件 tf目标文件

if(io.exist(sf)){

import com.excel;

var rn=0

var excel = com.excel();

excel.Visible = false; //使Excel窗口可见

excel.alerts = false; //关闭所有操作提示

var book = excel.Open(sf) //打开基础数据文件默认哦 #/db/20201020.xlsx;

var tf1=io.open(tf,"w+");//以写和追加模式打开文件

var sheet1 = excel.ActiveWorkbook.Sheets(1);//打开第一个工作表

var ot="";

if(#sv>0){

for(i=2;sheet1.UsedRange.Rows.Count-1;1){//如果要表头 i=1

tf1.write(sheet1.Cells(i,sv[#sv]).value);//因为eachSelected()是反着的，所以这里要倒着写出

rn++;

for(j=#sv-1;1;-1){

tf1.write(winform.fgf.text++sheet1.Cells(i,sv[j]).value);

}

tf1.write('\n');

}

tf1.close();//保存文件默认是 utf-8格式，如需修改请自行用记事本打开另存为别的格式

book.close();//关闭工作表

excel.Quit();//关闭 Excel或Wps..

return (rn); //返回生成记录数

}

return(0);

}

winform.tfile.oncommand = function(id,event){//点击 "..."

winform.tfile.text=outpath();

}

winform.sel_sfile.oncommand = function(id,event){//点击 # 行

winform.sfile.text=selfile();

}

winform.sfile.onChange = function(){ //源文件

if(owner.onModified)owner.onModified(true);

winform.lb.clear();//清空字段列表

if(io.exist(winform.sfile.text)){

import com.excel;

var excel = com.excel();

excel.Visible = false; //使Excel窗口可见

excel.alerts = false; //关闭所有操作提示

var cv="";

var book = excel.Open(winform.sfile.text) //打开基础数据文件默认哦 #/db/20201020.xlsx;

var sheet1 = excel.ActiveWorkbook.Sheets(1);//打开第一个表单

for(i=1;sheet1.UsedRange.Cells.Count;1){//如果要表头 i=1

cv=sheet1.Cells(1,i).value;

if(cv!=null){//标题行里不能有空单元格，否则后的字段将不显示

winform.lb.add(cv); //显示点选字段

}

else{i=sheet1.UsedRange.Cells.Count;}//结束循环

}

book.close();

excel.Quit();

}

winform.lb.oncommand = function(id,event){//点击字段名

var xx="";

sv={};

for(k,v in winform.lb.eachSelected()){

if(xx==""){xx=v;}

else{xx=v++winform.fgf.text++xx;}

table.push(sv,k);

}

sv=deltoo(sv);//删除重复项

winform.selfd.text=selfdtxt++xx;//显示已选字段不能自定义生成顺序，如果想自定义，请自己修改 build2txt函数

}

winform.button2.oncommand = function(id,event){//生成目标文件

if(winform.tfile.text=="#"){winform.tfile.text=outpath();}//如果未设置生成文件则提示，否则生成 "#"文件

var x=build2txt(winform.sfile.text,winform.tfile.text);

if(x>0){

import process;

winform.msg.text="已经完成,共 "++x++" 条记录，文件为："++winform.tfile.text;

process.exploreSelect(winform.tfile.text);//浏览生成的文件并选定

}

winform.sfile.wndproc = function(hwnd,message,wParam,lParam){

select( message ) {

case 0x233/*_WM_DROPFILES*/{ //拖入文件

var path = win.getDropFile(wParam );

winform.sfile.text=path[1];

}

case 0x205/*_WM_RBUTTONUP*/{

var xf=selfile();

winform.sfile.text=xf;

}

else{

}

}//拖入目标文件

winform.wndproc = function(hwnd,message,wParam,lParam){