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

最新推荐文章于 2023-09-03 18:26:12 发布
最新推荐文章于 2023-09-03 18:26:12 发布
阅读量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
    评论
专栏目录
xlsSplit:excel文件分割工具，使用aardio开发
05-27
xlsSplit excel文件分割工具，使用aardio开发 使用方法 选择待分割excel文件，工具假设待分割文件第一行为标题行 输入分割后每个文件的行数，不包括标题行，分割后的文件都有标题行 这里可以选择一个模板文件，模板第一行为标题行，比如.xlsx文件如果分割后要存为.xls文件，就可以建立一个.xls的模板文件。 选择分割后文件存储路径，文件名为原文件名加序号
精通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 ...
[aardio][SQL]usSplit - 档案数字化工具（分件、数据验证）
gonery的专栏
09-03 237
验证分为两步，先根据文件验证表数据，再根据表数据验证文件；出现null值则为无此文件夹或无此数据。之前的分件工具，添加了一个数据验证的功能，然后可以加载、保存多个配置。分件之前也会有一个数据校验的操作，数据校验没有问题才能进行分件操作。成品数据验证主要用于其他没通过数据校验就分件的项目组。这里应该小小更新一下，切换操作后应该清空信息输出。分件后文件夹： 原目录+”_FJOK“的文件夹；执行菜单：选择分件、成品验证操作；文件菜单：打开、保存配置文件；帮助菜单：使用说明、关于；
[Python][小工具]自动分件
gonery的专栏
06-27 607
功能：根据EXCEL文件中录入的档号、分类号、页数等信息，对案卷目录下的图片进行分类并重命名。 分件前目录结构： 数据目录 　 └───卷级目录 ├───0001.jpg ├───0002.jpg ├───0003.jpg ├───…… 分件后目录结构： 数据目录 　 └───卷级目录 ...
aardio 字符串分割代码
weixin_43539313的博客
05-27 723
var a = string.split("apple,banana,stone","<,>") console.log(table.unpack(a))
aardio - 小窍门及注意事项收集贴
光庆的学习笔记
01-14 2775
aardio - 小窍门及注意事项收集贴
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
好用的格式化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 多线程开发入门
ribut9225的专栏
12-13 2961
aardio多线程
一次弄懂aardio中的数据类型转换
sunjichuancsdn的博客
11-05 2861
byte串也叫byte数组。例如，当应用场景为字符串时，计算机就会认为byte数组中存储的值是字节码，然后按照编码规则，展现字符串。同一个byte数组，可以展现为不同的数据类型，但是展现成什么有意义，只有存储数据的人清楚。bit容量太小，于是人们将8个bit定义为一个更大的存储单元，叫做byte（翻译为字节）。1个byte可以存储2的8次方，也就是256个值，分别是0-255。byte数组与其展现的特定数据之间，是本质与现象的关系，可以互相转换。因此也可以说，计算机中的数据都是以byte串方式存储的。
aardio - 【库】虚表增强版
光庆的学习笔记
01-20 8871
1、虚表是一个特殊的listview，一些特性可以通用。 2、虚表对大数据比较适合，几百万条数据毫无压力。 3、数据量大的情况下（过几十万数据）：虚表占用内存非常少，加载速度也非常快。listview 占内存非常多，加载速度非常慢。 4、数据在内存中处理速度是很快的，我们看到的慢，一般是加载到组件中并显示出来这段时间太长。.........
aardio - API调用分析
光庆的学习笔记
01-11 6692
Aardio - API调用分析，欢迎各位aardio爱好者交流,共同研究aardio,知对改错,共同进步。
aardio学习记录-1.基本概念和自定义类的调用
Dexter's Laboratory
09-06 6647
最近突然发现了一个winform桌面应用开发的神奇工具:aardio,国产良心IDE,初步尝试了一下操作,发现真心强大好用,除了可以开发传统winform应用以外,还可以嵌入HTML封装成exe程序,而且,关键是不需要额外的运行环境支持,纯绿色单文件,直接运行,简直不能好用更多啊~不是于是乎开始记录一下学习这工具(开发语言?)的过程 基本概念语法基本语法跟C语言比较类似,反正就那几样套路,都大差不差
一款不错的工具：aardio
热门推荐
strongerHuang
04-22 2万+
关注+星标公众号，不错过精彩内容来源|嵌入式大杂烩今天为大家分一款活跃了17年的开发工具：aardio。本期主角：aardio aardio属于易用性极强的动态语言，但也是一种混合语言，可以罕见地、非常方便地操作静态类型，因此可以直接调用 C语言、C++ 等等静态语言的 API 接口函数。aardio应用于桌面软件开发。aardio已经发展了 17年 ， 一直保持非常活...
aardio教程_官方AARDIO课程已经开课了!学习的速来报道!
weixin_33180221的博客
01-14 4068
aardio视频培训课程(2018新版)因为课程都是制作视频 -所以上课时间不受限制。1、本次课程共计50节视频课程，每周一课，培训时间为一年(1月15日以后报名按报名交费时间开始计算)。2、所有参加本次培训课程 ，可同时获取为期2年的技术支持服务(1月15日以后报名按报名交费时间开始计算)。3、所有参加本次培训课程的，付款后立即发送上期培训的全部视频教材。本次的课程分为以下10个阶段1、aar...
aardio消息大全
srx1024的博客
10-09 3247
消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。 对于一般的点按控件的用户操作，通过创建事件响应函数就可以处理了。 在窗体设计器里，直接...
aardio学习~~ 资料整理收集
路楷的专栏
04-24 5531
官方网站 http://bbs.aardio.com/   http://bbs.aardio.com/forum.php 感觉有点意思，所以学一学。 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 标准库:  import win.ui; import inet.http; import thread.command; 、、、、、、、、、
aardio sql语句
05-29
aardio 是一种基于 Python 的编程语言，可以通过 aardio 内置的 sqlite3 模块使用 SQL 语句进行数据库操作。下面是一些常见的 aardio SQL 语句： 1. 创建表格 ``` CREATE TABLE table_name ( column1 datatype, ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值