办公自动化示例(1)

系列说什么

日常工作中有很多细节可以做个自动化小脚本来优化一下

文本正则处理提取写入excel

比如这个需求,偶尔需要提取医疗系统中的一段内容,正则处理后写入表格,手动操作实在很麻烦,一天一百次能省下十分钟的时间,一个月剩下300分钟,一年3600分钟,等于活活赚了两三天

思路

正则提取读取com对象写入excel

涉及患者隐私,只提供源码不给演示了

提取网页患者信息写入表格:
Clipboard:=""
SendInput,^c
ClipWait,1
患者名字:=RegExReplace(clipboard,"^([一-龟]{2,4})\s+\d+\s+([男女])\s+(\d{1,3})\s+(\d+)\s","$1")
患者性别:=RegExReplace(clipboard,"^([一-龟]{2,4})\s+\d+\s+([男女])\s+(\d{1,3})\s+(\d+)\s","$2")
患者年龄:=RegExReplace(clipboard,"^([一-龟]{2,4})\s+\d+\s+([男女])\s+(\d{1,3})\s+(\d+)\s","$3")
患者手机:=RegExReplace(clipboard,"^([一-龟]{2,4})\s+\d+\s+([男女])\s+(\d{1,3})\s+(\d+)\s","$4")
gosub 添加患者信息
Return
添加患者信息:
gosub 补充患者空信息
gosub 打开信息
	a:=objExcel.ActiveSheet.Cells(objExcel.Rows.Count,1).End(3).Row+1
	objExcel.Cells(a,1).value:=患者名字 , objExcel.Cells(a,2).value:=患者性别 , objExcel.Cells(a,3).value:=患者年龄 , objExcel.Cells(a,4).value:=患者手机
	MsgBox,4096,信息写入成功,信息写入成功,1
	gh.Save
return
补充患者空信息:
	if (患者名字="")
		InputBox,患者名字,补充患者名字,补充患者名字
	if (患者性别="")
		InputBox,患者性别,补充患者性别,补充患者性别
	if (患者年龄="")
		InputBox,患者年龄,补充患者年龄,补充患者年龄
	if (患者手机="")
		InputBox,患者手机,补充患者手机,补充患者手机
	Sleep 200
	return
打开信息:
	gosub Registerobj
	gh.Sheets("Info").Activate
	return