[aardio][SQL]usSplitFiling － 档案数字化分件工具

于 2023-07-02 22:34:39 发布
阅读量270 收藏 1
点赞数
分类专栏： 档案数字化 aardio SQL 文章标签： sql 数据库
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gonery/article/details/131506354
版权
档案数字化 同时被 3 个专栏收录
6 篇文章 1 订阅
订阅专栏
aardio
3 篇文章 0 订阅
订阅专栏
SQL
2 篇文章 0 订阅
订阅专栏

界面：

main.aarido

import win.ui;
import console;
/*DSG{{*/
mainForm = win.form(text="分件－SplitFiling";right=479;bottom=575;border="dialog frame";max=false)
mainForm.add(
btnDC={cls="button";text="数据校验";left=80;top=512;right=176;bottom=544;font=LOGFONT(h=-14);tabstop=1;z=27};
btnDIR={cls="button";text="选择目录";left=16;top=48;right=112;bottom=72;font=LOGFONT(h=-14);tabstop=1;z=15};
btnFJ={cls="button";text="分件";left=304;top=512;right=400;bottom=544;disabled=1;font=LOGFONT(h=-14);tabstop=1;z=28};
btnXLS={cls="button";text="选择文件";left=16;top=16;right=112;bottom=40;font=LOGFONT(h=-14);tabstop=1;z=13};
chkMN={cls="checkbox";text="一页多件";left=384;top=168;right=464;bottom=192;font=LOGFONT(h=-14);tabstop=1;z=26};
groupbox={cls="groupbox";left=8;top=80;right=472;bottom=200;ah=1;aw=1;cp=1;edge=1;font=LOGFONT(h=-14);z=2};
groupbox2={cls="groupbox";left=8;top=0;right=472;bottom=80;ah=1;aw=1;cp=1;edge=1;font=LOGFONT(h=-14);z=1};
lstInfo={cls="listbox";left=16;top=208;right=464;bottom=512;ah=1;aw=1;edge=1;font=LOGFONT(h=-14);items={};msel=1;vscroll=1;z=3};
static={cls="static";text="索引字段";left=16;top=80;right=96;bottom=112;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=4};
static2={cls="static";text="排序字段";left=112;top=80;right=192;bottom=112;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=5};
static3={cls="static";text="页数字段";left=384;top=80;right=464;bottom=112;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=6};
static4={cls="static";text="页号字段";left=296;top=80;right=376;bottom=112;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=7};
static5={cls="static";text="件名称字段";left=200;top=80;right=280;bottom=112;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=8};
static6={cls="static";text="页号位数";left=16;top=136;right=96;bottom=168;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=9};
static7={cls="static";text="页号前缀";left=112;top=136;right=192;bottom=168;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=10};
static8={cls="static";text="页号后缀";left=200;top=136;right=280;bottom=168;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=11};
static9={cls="static";text="后缀名";left=296;top=136;right=376;bottom=168;center=1;font=LOGFONT(h=-14);notify=1;transparent=1;z=12};
txtFile={cls="edit";text="D:\TEST\fafj.xls";left=120;top=16;right=464;bottom=40;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=14};
txtID={cls="edit";text="案卷级档号";left=16;top=112;right=96;bottom=136;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=17};
txtJM={cls="edit";text="文件级档号";left=200;top=112;right=280;bottom=136;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=19};
txtOB={cls="edit";text="件号";left=112;top=112;right=192;bottom=136;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=18};
txtPath={cls="edit";text="D:\TEST\fafj";left=120;top=48;right=464;bottom=72;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=16};
txtPfn={cls="edit";text=".jpg";left=296;top=168;right=376;bottom=192;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=25};
txtPostfix={cls="edit";left=200;top=168;right=280;bottom=192;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=24};
txtPrefix={cls="edit";left=112;top=168;right=192;bottom=192;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=23};
txtWS={cls="edit";text="4";left=16;top=168;right=96;bottom=192;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=22};
txtYH={cls="edit";text="页号";left=296;top=112;right=376;bottom=136;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=20};
txtYS={cls="edit";text="页数";left=384;top=112;right=464;bottom=136;edge=1;font=LOGFONT(h=-14);hidesel=1;tabstop=1;z=21}
)
/*}}*/

/*菜单栏、状态栏{{*/
//菜单栏
import win.ui.menu;
var menuAbout = function(id){
	win.msgbox('档案、文件分件工具。\r\nBUG提交：\r\n30157133@qq.com');;
} 
var menuIntro = function(id){
	var frmIntro = mainForm.loadForm("intro.aardio");
	frmIntro.show();
} 
var menu = win.ui.menu(mainForm);//创建主菜单
menu.add('使用说明',menuIntro);
menu.add('联系方式',menuAbout);
//状态栏
import win.ui.statusbar;
var statusbar = win.ui.statusbar( mainForm);
/*}}*/

/*自定义过程、函数、全局变量{{*/
//全局变量
namespace inData{
	fil,fol,id,ob,jm,yh,ys,ws,prefix,postfix,pfn="";
}
//ADO连接excel字段
getDatabaseConnectionString=function(dataPath){
	var strCnn="Provider=Microsoft.Jet.OLEDB.4.0;
                Persist Security Info=False;
                Extended Properties='Excel 8.0;HDR=Yes';
                Data Source=" ++ dataPath;
	return strCnn; 
}
//读取界面信息并检查
getDataVal=function(){
    var dataVal=true;
    //读取数据
    inData.fil=string.trim(mainForm.txtFile.text);
	inData.fol=string.trim(mainForm.txtPath.text);
	inData.id=string.trim(mainForm.txtID.text);
	inData.ob=string.trim(mainForm.txtOB.text);				//ob = order by
	inData.jm=string.trim(mainForm.txtJM.text);
	inData.yh=string.trim(mainForm.txtYH.text);
	inData.ys=string.trim(mainForm.txtYS.text);
	inData.ws=string.trim(mainForm.txtWS.text);
	inData.prefix=string.trim(mainForm.txtPrefix.text);
	inData.postfix=string.trim(mainForm.txtPostfix.text);
	inData.pfn=string.trim(mainForm.txtPfn.text);
	//数据检测
	if(string.len(inData.fil)<1 || string.len(inData.fol)<1){
		mainForm.msgbox("请选择分件文件及目录。");
		dataVal=false;
	}
	if(string.len(inData.id)<1 || string.len(inData.ob)<1 || string.len(inData.jm)<1 || string.len(inData.yh)<1 || 
		string.len(inData.ys)<1 || string.len(inData.ws)<1 || string.len(inData.pfn)<1){
		mainForm.msgbox("字段名不能为空！");
		dataVal=false;
	}
	return dataVal; 
}

/*}}*/

/*选择文件、目录{{*/
//文件
import fsys.dlg;
mainForm.btnXLS.oncommand = function(id,event){
	var file = fsys.dlg.open('Excel文件|*.xls||',,,mainForm);
	if(!file){
		return false;
	}
	mainForm.txtFile.text="";
	mainForm.txtFile.text=file;
}
//目录
import fsys.dlg.dir;
mainForm.btnDIR.oncommand = function(id,event){
	var path=fsys.dlg.dir();
	if(!path){
		return false;
	}
	mainForm.txtPath.text="";
	mainForm.txtPath.text=path;
}
/*}}*/

/*分件{{*/
import fsys;
//import access;
mainForm.btnFJ.oncommand = function(id,event){
	//初始化，变量赋值
	mainForm.lstInfo.clear();
	if(!getDataVal()){
		return false;
	};
//	var fjfile,fjpath,path,dh,jh,yh,ys,prefix,postfix,mn;
	var fjml,srcFile,srcFull,tarFull,strSQL; 
	mainForm.btnFJ.disabled=true;
	mainForm.btnFJ.text="分件中……";
	//建立数据表连接
	var cnn=com.CreateObject("ADODB.Connection");
	var rst=com.CreateObject("ADODB.Recordset");
	cnn.ConnectionString=getDatabaseConnectionString(inData.fil);
	cnn.open();
	//遍历目录
	fsys.enum(inData.fol, "*.*",,
		function(dirPath,dirName){
			//分件
			strSQL="Select * From [Sheet1$] Where " 
				+ inData.id + "='" + dirName + "' Order By " 
				+ inData.id + "," + inData.ob;
			rst.open(strSQL,cnn,1,3);
			if(rst.recordcount<1){				//无记录提示
				mainForm.lstInfo.add(dirName + "  无记录！");
				mainForm.lstInfo.ensureVisible(mainForm.lstInfo.count);
				rst.close();
				return false;
			}
			fjml=inData.fol + "_FJOK\" + dirName;
			fsys.createDir(fjml,1);				//创建分件目录，选择的目录后加_FJOK
			rst.movefirst();
			for(i=1;rst.recordcount;1){
				fsys.createDir(fjml + "\" + rst(inData.jm).value,1);
				for(j=rst(inData.yh).value;rst(inData.yh).value + rst(inData.ys).value - 1;1){
					if(string.len(inData.prefix)>0){
						srcFile=string.concat(inData.prefix,string.format(
							"%0"+inData.ws+"i",j));
					}
					else{
						srcFile=string.format("%0"+inData.ws+"i",j);
					}
					if(string.len(inData.postfix)>0){
						srcFile=string.concat(srcFile,inData.postfix);
					}
					srcFull=dirPath + "\" + srcFile + inData.pfn;
					tarFull=fjml + "\" + rst(inData.jm).value + "\" + srcFile + inData.pfn;
					if(io.exist(srcFull)==null){
						mainForm.lstInfo.add(srcFull + "  文件不存在！");
					}
					else{
						fsys.copy(srcFull,tarFull);
						statusbar.addItem(srcFull, /*宽度*/);
					}
				}
				rst.movenext();
			}
			rst.close();
			return false;
		}
	);
	statusbar.addItem("分件完成！", /*宽度*/);
	mainForm.lstInfo.add("分件完成！");
	mainForm.lstInfo.ensureVisible(mainForm.lstInfo.count);
	mainForm.lstInfo.setFocus();
//	mainForm.btnFJ.disabled=false;
	mainForm.btnFJ.text="分件";
	cnn.close();
	cnn=null;
}
/*}}*/

mainForm.btnDC.oncommand = function(id,event){
	var soreDir,strSQL,zys,i;
	mainForm.btnFJ.disabled=true;
	mainForm.lstInfo.clear();
	if(!getDataVal()){
		return false;
	};
	//建立数据表连接
	var cnn=com.CreateObject("ADODB.Connection");
	var rst=com.CreateObject("ADODB.Recordset");
	cnn.ConnectionString=getDatabaseConnectionString(inData.fil);
	cnn.open();
	//遍历目录
	fsys.enum(inData.fol, "*.*",,
		function(dirPath,dirName){
			i=0;
			fsys.enum(dirPath, "*.*",
				function(dir,filename,fullpath,findData){ 
					if(filename){ 
						i+=1;			           	
					}
				} 
				,false/*如果此参数为false则忽略子目录*/
			);
			if(mainForm.chkMN.checked){				//一页多件
				strSQL="Select * From [Sheet1$] Where " + inData.id + "='" 
					+ dirName + "' Order By " + inData.ob;
				rst.open(strSQL,cnn,1,3);
				if(rst.eof or rst.bof){
					zys=0;
				}
				else {
					rst.movelast();
					//zys=tonumber(rst(inData.yh).value) + tonumber(rst(inData.ys).value) - 1;
					zys=rst(inData.yh).value + rst(inData.ys).value - 1;
				}
				if(zys != i and i != 0){
					mainForm.lstInfo.add(dirName + "  		图片：" + tostring(i) 
						+ "  		数据：" + tostring(zys));
					mainForm.lstInfo.ensureVisible(mainForm.lstInfo.count);
				}
				rst.close();
			}
			else {									//正常分件
				//读取表数据
				strSQL="Select Sum(" + inData.ys 
						+ ") From [Sheet1$] Where " + inData.id + "='" + dirName + "'";
				rst=cnn.execute(strSQL);
				//数据校验，错误则输出
				if(rst.fields(0).value != i and i != 0){
					mainForm.lstInfo.add(dirName + "  		图片：" + tostring(i) 
						+ "  		数据：" + tostring(rst.fields(0).value));
					mainForm.lstInfo.ensureVisible(mainForm.lstInfo.count);
				}
			}
//			return true;
		} 
	);
	if(mainForm.lstInfo.count<1){
		mainForm.btnFJ.disabled=false;
	}
	mainForm.lstInfo.add("数据校验完成！");
	mainForm.statusbar.addItem("数据校验完成！", /*宽度*/);
}

mainForm.show();
return win.loopMessage();

 intro.aarido

import win.ui;
/*DSG{{*/
var winform = win.form(text="使用说明";right=479;bottom=575)
winform.add(
edit={cls="static";left=8;top=8;right=472;bottom=568;edge=1;font=LOGFONT(h=-14);multiline=1;z=1}
)
/*}}*/

winform.edit.text=/*
      本软件用于档案数字化加工，根据EXCEL文件提供的数据对图片（或
    
  文件）进行分件。

      索引字段：通常是 案卷级档号；
    
      排序字段：用于卷内排序，纯数字值，顺序号、件号、页号……；
    
      件名称字段：分件文件夹根据此字段值命名；
    
      页号字段：分件的数据依据；
    
      页数字段：同上；
    
      页号位数：图片（或文件）命名位数，如 0001.jpg 为4位数；
    
      页号前缀：图片（或文件）数字命名前的字符或数字，如图片命名为：

  N0001.jpg 填写 ‘N’;

      页号后缀：图片（或文件）数字命名后的字符或数字，如图片命名为：

  N000100000.jpg 填写 ‘00000’；

      后缀名：即文件后缀名，通常为 ‘.jpg’；

      一页多件：特殊分件形式，允许一张图片（或文件）分到多个件中；
*/;

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

gonery
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
aardio部署_aardio
weixin_39904809的博客
12-21 311
还是分析Gcode代码用的,先前是直接循环获取一行的数据然后解析显示到listbox中,现在需要点击任意一行然后进行解析测试,如果没有选中任意一行那么就继续循环解析:listbox中有这么个函数:win.ui.ctrl.listbox()=列表框\n!listbox.!listbox.cls=设计时类名!listbox.className=运行时类名!listbox.clear()=...
[aardio][SQL]usSplit - 档案数字化工具（分件、数据验证）
gonery的专栏
09-03 237
验证分为两步，先根据文件验证表数据，再根据表数据验证文件；出现null值则为无此文件夹或无此数据。之前的分件工具，添加了一个数据验证的功能，然后可以加载、保存多个配置。分件之前也会有一个数据校验的操作，数据校验没有问题才能进行分件操作。成品数据验证主要用于其他没通过数据校验就分件的项目组。这里应该小小更新一下，切换操作后应该清空信息输出。分件后文件夹： 原目录+”_FJOK“的文件夹；执行菜单：选择分件、成品验证操作；文件菜单：打开、保存配置文件；帮助菜单：使用说明、关于；
xlsSplit:excel文件分割工具，使用aardio开发
05-27
xlsSplit excel文件分割工具，使用aardio开发 使用方法 选择待分割excel文件，工具假设待分割文件第一行为标题行 输入分割后每个文件的行数，不包括标题行，分割后的文件都有标题行 这里可以选择一个模板文件，模板第一行为标题行，比如.xlsx文件如果分割后要存为.xls文件，就可以建立一个.xls的模板文件。 选择分割后文件存储路径，文件名为原文件名加序号
aardio 字符串分割代码
weixin_43539313的博客
05-27 723
var a = string.split("apple,banana,stone","<,>") console.log(table.unpack(a))
[Python][小工具]自动分件
gonery的专栏
06-27 607
功能：根据EXCEL文件中录入的档号、分类号、页数等信息，对案卷目录下的图片进行分类并重命名。 分件前目录结构： 数据目录 　 └───卷级目录 ├───0001.jpg ├───0002.jpg ├───0003.jpg ├───…… 分件后目录结构： 数据目录 　 └───卷级目录 ...
aardio - 小窍门及注意事项收集贴
光庆的学习笔记
01-14 2775
aardio - 小窍门及注意事项收集贴
精通SQL--结构化查询语言详解
12-11
第1章 数据库与sql基础 1 1.1 数据库的基本概念 1 1.1.1 数据库的由来 1 1.1.2 数据库系统的概念 3 1.2 数据库系统的结构、组成及工作流程 3 1.2.1 数据库的体系结构 3 1.2.2 数据库系统的组成 4 1.2.3 ...
好用的格式化SQL工具SQL Prompt-附件资源
03-05
好用的格式化SQL工具SQL Prompt-附件资源
数据库可视化工具SQL Workbench/J Build 118
06-08
SQL Workbench/J 是一款小巧精悍的数据库可视化工具，它支持MySQL、Oracle、DB2、SQL Server、PostgreSQL等多种数据库，而且支持缓存SQL文件，还有很强大的快捷键（如Ctrl+R美化SQL、自动完成提示、执行选中SQL、...
毕业设计javajsp数字化阅读平台(jsp+sqlserver)-qkrp源码含文档工具包
最新发布
07-22
毕业设计javajsp数字化阅读平台(jsp+sqlserver)-qkrp源码含文档工具包 页面是jsp，数据库sqlserver，jdk1.8，开发工具用ecplise、myecplise、sts、idea都可以 系统后台管理员模块 修改个人密码 课程介绍管理 老师...
aardio 常用语句整合（9）字符串基本操作
m0_60842374的博客
08-30 3398
一些字符串读取，切片，倒序，分割等常用操作 import win.dlg.message var $msg = win.dlg.message() //返回字符串长度 var $str = "Hello 这是一行 有空格的 句子！" $msg.great("长度为："+string.len($str)) //字符串倒序排列 $msg.ok(string.reverse($str,true)) //转换成大写 $msg.smile(string.upper($str)) //转换成小写 $msg
aardio 多线程开发入门
ribut9225的专栏
12-13 2964
aardio多线程
一次弄懂aardio中的数据类型转换
sunjichuancsdn的博客
11-05 2862
byte串也叫byte数组。例如，当应用场景为字符串时，计算机就会认为byte数组中存储的值是字节码，然后按照编码规则，展现字符串。同一个byte数组，可以展现为不同的数据类型，但是展现成什么有意义，只有存储数据的人清楚。bit容量太小，于是人们将8个bit定义为一个更大的存储单元，叫做byte（翻译为字节）。1个byte可以存储2的8次方，也就是256个值，分别是0-255。byte数组与其展现的特定数据之间，是本质与现象的关系，可以互相转换。因此也可以说，计算机中的数据都是以byte串方式存储的。
aardio - 【库】虚表增强版
光庆的学习笔记
01-20 8873
1、虚表是一个特殊的listview，一些特性可以通用。 2、虚表对大数据比较适合，几百万条数据毫无压力。 3、数据量大的情况下（过几十万数据）：虚表占用内存非常少，加载速度也非常快。listview 占内存非常多，加载速度非常慢。 4、数据在内存中处理速度是很快的，我们看到的慢，一般是加载到组件中并显示出来这段时间太长。.........
aardio - API调用分析
光庆的学习笔记
01-11 6692
Aardio - API调用分析，欢迎各位aardio爱好者交流,共同研究aardio,知对改错,共同进步。
一款不错的工具：aardio
热门推荐
strongerHuang
04-22 2万+
关注+星标公众号，不错过精彩内容来源|嵌入式大杂烩今天为大家分一款活跃了17年的开发工具：aardio。本期主角：aardio aardio属于易用性极强的动态语言，但也是一种混合语言，可以罕见地、非常方便地操作静态类型，因此可以直接调用 C语言、C++ 等等静态语言的 API 接口函数。aardio应用于桌面软件开发。aardio已经发展了 17年 ， 一直保持非常活...
aardio学习记录-1.基本概念和自定义类的调用
Dexter's Laboratory
09-06 6647
最近突然发现了一个winform桌面应用开发的神奇工具:aardio,国产良心IDE,初步尝试了一下操作,发现真心强大好用,除了可以开发传统winform应用以外,还可以嵌入HTML封装成exe程序,而且,关键是不需要额外的运行环境支持,纯绿色单文件,直接运行,简直不能好用更多啊~不是于是乎开始记录一下学习这工具(开发语言?)的过程 基本概念语法基本语法跟C语言比较类似,反正就那几样套路,都大差不差
aardio教程_aardio怎么用-aardio的使用说明 - 河东软件园
weixin_33390343的博客
12-24 5423
aardio是一款快捷的桌面开发程序，这款软件的开发操作比较简单，支持大家直接对操作页面进行绘制，也可以编辑代码信息。有用户在使用这款软件的时候发现它的使用方法和其他的编辑器略有不同，因此今天小编给大家准备了通过aardio来新建、保存文件等操作的教程，大家可以利用下面教程中的方法来完成基本的操作哦！接下来我们一起来了解一下详细的使用方法吧！方法步骤：大小：9.24 MB版本：28.9.3 官方版...
aardio消息大全
srx1024的博客
10-09 3247
消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。 对于一般的点按控件的用户操作，通过创建事件响应函数就可以处理了。 在窗体设计器里，直接...
aardio sql语句
05-29
aardio 是一种基于 Python 的编程语言，可以通过 aardio 内置的 sqlite3 模块使用 SQL 语句进行数据库操作。下面是一些常见的 aardio SQL 语句： 1. 创建表格 ``` CREATE TABLE table_name ( column1 datatype, column2 datatype, column3 datatype, .... ); ``` 2. 插入数据 ``` INSERT INTO table_name (column1, column2, column3, ...) VALUES (value1, value2, value3, ...); ``` 3. 更新数据 ``` UPDATE table_name SET column1 = value1, column2 = value2, ... WHERE condition; ``` 4. 删除数据 ``` DELETE FROM table_name WHERE condition; ``` 5. 查询数据 ``` SELECT column1, column2, ... FROM table_name WHERE condition; ``` 6. 创建索引 ``` CREATE INDEX index_name ON table_name (column1, column2, ...); ``` 7. 删除索引 ``` DROP INDEX index_name; ``` 以上是一些常见的 aardio SQL 语句，希望对你有所帮助。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值