功能 保存配置_点击()
//初始化开始>>>>>>>>>>>>>>>>>>>>>>>>>>>>
变量 re=注册插件("Lazy.LxjExcel",真)
插件("Lazy.LxjExcel")
变量 Plugin = 插件("Lazy.LxjExcel")
调试输出("注册懒人插件")
//插件注册完成-----------------------------------------------------
变量 路径=系统获取工作路径()
调试输出(路径&"Config.xlsx")
变量 Index = Plugin.LazyOffice.ExcelOpen(路径&"Config.xlsx",0)||等待(500) //变量 path=文件打开(路径,1) 打开excel,1为可见,0为不可见
变量 r_row, r_col
表格获取大小("表格",r_row, r_col)
遍历 (变量 i=1;i<=r_row;i++)
变量 ret=表格获取内容("表格",i,0)
变量 reto=表格获取内容("表格",i,1)
变量 retarr,retarro
变量 m = 字符串分割(ret,"\"",retarr)
变量 mm = 字符串分割(reto,"\"",retarro)
遍历(变量 k=0;k < m;k++)
调试输出(k&"="&retarr[k])
调试输出(k&"="&retarro[k])
如果 (retarr[0]=="") //就是要找的特定字符
调试输出(retarr[0])
Plugin.LazyExcel.ExcelClose(Index)
return 0/1 //退出函数
否则
Plugin.LazyOffice.ExcelWrite(1, i, 1, retarr[0],Index)
Plugin.LazyOffice.ExcelWrite(1, i, 2, retarro[0],Index)
// 调试输出(retarr[0])
// 调试输出(retarro[0])
Plugin.LazyExcel.ExcelSave(Index)
结束
结束
结束
Plugin.LazyExcel.ExcelClose(Index)
结束
写表格操作是成功的但是写文本文件只能用绝对路径 用相对路径就写不到文本里面去 |