[au3]复制选择性粘贴文本到excel
案例:在一张网页上有许多你要复制的内容,但是你必须一个一个找到他们,然后一个一个复制出来粘贴到excel表格里。时间一长你的眼睛容易花,而且复制多了容易出错。
方法:当然有许多方法可以自动化的做这一件事情。网页上可以利用tg元素来获取,但是这个网页只能是google浏览器打开。
我们干脆偷个懒,直接复制全部内容,然后用程序来查找,根据表格要求进行输出。
思路:
把文本(网页上的或者是其他应用上的)整个复制下来,
输出给剪贴板
正则查找,生成新的文本文件
直接以tab单元形式输出到剪贴板
#include<Date.au3> $starday = "2017/4/22" ;测试开始时间
$iDateCalc = _DateDiff('d', $starday, _NowCalc())
If $iDateCalc < And $iDateCalc >= Then
Break()
Else
MsgBox(, "警告:", "超过测试版本的使用期限,请到淘宝:“维尼熊的百宝箱”购买正式版本!")
Exit
EndIf HotKeySet("{F9}", "qianniu")
HotKeySet('{ESC}', 'FNC_EXIT')
While
Sleep()
WEnd
;~ if "microsof-fb686a"=$PublicIP then Func qianniu()
Sleep()
Send("{CTRLDOWN}")
Sleep()
Send("a")
Sleep()
Send("c")
Sleep()
Send("{CTRLUP}") $var = ClipGet() If = StringRegExp($var, '订单管理', ) Then
Return MsgBox(, "注意", "你没有粘贴飞牛冲值内容")
Else
$text2 = StringRegExp($var, '(\d{16,17})\r', ) ;$text2[]
;$text4 =StringRegExp($var,'留言: \R(.+)',)
$text4 = StringRegExp($var, '\D(\d{12})\D|\D(\d{8})\D', )
;~ $text4 =StringRegExp($var,'\D(\d\d\d\d\d\d\d\d)|\D(\d\d\d\d\d\d\d\d\d\d\d\d)',)
$text5 = StringRegExp($var, '实付:(.+)元', ) ;$text2[]
$text7 = StringRegExp($var, '(1\d\d\d\d\d\d\d\d\d\d)\D', );$text2[]
$text1 = @MON & "月" & @MDAY & "日"
$text3 = ""
$text6 = ""
$text8 = "" If = StringRegExp($var, '(\d{16,17})\r', ) Then
$txt2 = " "
Else
$txt2 = $text2[]
EndIf If = StringRegExp($var, '\D(\d{12})\D|\D(\d{8})\D', ) Then
$txt4 = " " Else
$txt4 = ""
For $i = To UBound($text4) -
$txt4 = $txt4 & " "
$txt4 = $txt4 & $text4[$i]
Next EndIf If = StringRegExp($var, '实付:(.+)元', ) Then
$txt5 = " "
Else
$txt5 = $text5[]
EndIf If = StringRegExp($var, '(1\d\d\d\d\d\d\d\d\d\d)\D', ) Then
$txt7 = " "
Else
$txt7 = $text7[]
EndIf ClipPut($text1 & " '" & $txt2 & " " & $text3 & " " & $txt4 & " " & $txt5 & " " & $text6 & " " & $txt7 & " " & $text8)
EndIf
Sleep()
EndFunc ;==>qianniu Func FNC_EXIT()
Exit
EndFunc ;==>FNC_EXIT
程序操作:1、鼠标选中需要操作的界面,利用f9键,来完成程序操作。2、直接粘贴到表格里面,成为一行的内容
[au3]复制选择性粘贴文本到excel的更多相关文章
- C#复制、粘贴文本信息到剪贴板
复制:private void button1_Click(object sender, System.EventArgs e) { // Takes the selected text from a ...
- C#WinForm中复制、粘贴文本到剪贴板
//复制: private void button1_Click(object sender, System.EventArgs e) { if(textBox1.SelectedText != ...
- C# 复制、粘贴文本信息到系统剪贴板
复制: Clipboard.SetDataObject(textBox1.SelectedText); 粘贴: IDataObject iData = Clipboard.GetDataObject( ...
- 从零开始,开发一个 Web Office 套件(14):复制、粘贴、剪切、全选
这是一个系列博客,最终目的是要做一个基于 HTML Canvas 的.类似于微软 Office 的 Web Office 套件(包括:文档.表格.幻灯片--等等). 博客园:<从零开始, 开发一 ...
- 重新想象 Windows 8 Store Apps (40) - 剪切板: 复制/粘贴文本, html, 图片, 文件
[源码下载] 重新想象 Windows 8 Store Apps (40) - 剪切板: 复制/粘贴文本, html, 图片, 文件 作者:webabcd 介绍重新想象 Windows 8 Store ...
- excel复制+粘贴,怎样让公式里的参数不自动变化?
例如,某一单元格内容为:=A1+A2 我把它复制+粘贴到其他地方,就自动变成了:=B1+B2 怎样让它不变化,仍保持=A1+A2 ?? 答: Excel一般使用相对地址来引用单元格的位置,当把一个含有 ...
- 学习excel的使用技巧复制一列文本成新列去重
学习excel的使用技巧复制一列文本成新列去重 其实比较简单的技巧 知道了就会 不知道就比较麻烦 直接复制到一列 找到 数据选项 删除重复项
- js 禁止剪切、复制、粘贴的文本框代码
有的网站中不允许用户复制.粘贴.剪切文本框中的内容的,是怎么实现的呢?看看下面的代码就知道了. <input id=”username” oncut=”return false” oncopy= ...
- Excel-实现选择性粘贴(粘贴公式为文本)自动化,不想手动
10.选择性粘贴(粘贴公式为文本)自动化,不想手动: (1)参考:https://jingyan.baidu.com/article/20b68a88a8bf55796cec62a3.html (2) ...
随机推荐
- Codeforces 545E. Paths and Trees 最短路
E. Paths and Trees time limit per test: 3 seconds memory limit per test: 256 megabytes input: standa ...
- Ubuntu安装R及R包
安装R $sudo apt-get update $sudo apt-get install r-base $sudo apt-get install r-base-dev 安装一些可能的依赖包 $s ...
- JSP自定义标签(标签处理器 tld文件)
标签的形式如下,标签处理器就是处理JSP页面中的标签的属性和内容,定义好之后就跟使用JSTL一样 <标签名 属性名="属性值" 属性名="属性值"> ...
- 基于内存,redis,mysql的高速游戏数据服务器设计架构 ZT
zt http://www.cnblogs.com/captainl1993/p/4788236.html 1.数据服务器详细设计 数据服务器在设计上采用三个层次的数据同步,实现玩家数据的高速获取和 ...
- RecyclerView错误
1. java.lang.NoClassDefFoundError: android.support.v7.widget.RecyclerView 这个错误真TM见鬼,明明jar包里面就有这个类,工程 ...
- 字符串匹配 - sunday算法
常见的字符串匹配算法有BF.KMP(教科书中非常经典的).BM.Sunday算法 这里主要想介绍下性能比较好并且实现比较简单的Sunday算法 . 基本原理: 从前往后匹配,如果遇到不匹配情况判断母串 ...
- oracle创建、删除 数据库、建立表空间以及插入 删除 修改表
一.创建.删除数据库 oracle OraDb11g_home->配置和移植工具->Database configration Assistant->...然后可以创建或者删除数据 ...
- 23.Xcode中常用的快捷键操作
1.工程导航器:command+1 浏览文件夹,控制器,图片等 2.显示/隐藏导航器面板:Command+0 隐藏左边工具栏 3.显示/隐藏实用工具面板:Command+Option+0 使用工具面板 ...
- mysql的一些配置优化
[mysqld]lower_case_table_names=1datadir=/var/lib/mysqlsocket=/var/lib/mysql/mysql.sockuser=mysql# Di ...
- 集成 dubbo 微服务
微服务架构近年来非常的火,阿里 的dubbo 是其中的一种解决方案. dubbo 的微服务主要分为以下几部分: 1.注册中心 2.服务提供者 3.消费者 4.监控平台 1.一般流程服务提供者向注册中心 ...