UiPath 杂记

• DataTable相关
  • 新建一个空的DataTable
  • DataTable.Select()
  • DataTable获取筛选后的某一字段
  • DataTable.Compute()
  • DataTable.AsEnumerable().Where
  • DataTable.Clone()
  • DataTable.Copy()
  • 给 DataTable 添加列（指定位置）
  • 给 DataTable 添加列（指定位置、默认值）
  • DataTable 调整列的顺序
  • DataTable 判断是否存在某列
  • DataColumn转list
  • DataTable 去重1
  • DataTable 去重2
  • DataTable 列名去掉空格
  • DataTable 删除行1
  • DataTable 删除行2
  • DataColumn.Expression
• LINQ
  • Lambda 表达式
  • 获取压缩包
  • 去掉数组里面空的元素
• 数据类型
  • Decimal 与 Double 的不同
• 运算符
  • And 运算符
  • AndAlso 运算符
  • Or 运算符
  • OrElse 运算符
  • Xor 运算符
  • IF
  • IIF
• String相关
  • 字符串函数
  • 输出”
  • String 大写
  • String 小写
  • String 转 Double 型
  • 转成两位精度小数
  • 判断能不能转换为整数
  • 转成百分比
  • SecurePassword
  • Password
  • 字符串加双引号
  • String.Format
  • String.Format补全0
  • String 去掉前面的0
  • String 换行
  • String 替换掉换行
  • String 分割
  • 获取特定字符串在某字符串出现的位置
  • Substring 截取
  • String 截取前四位
  • String 截取后四位
  • String 转 ASCII 码
  • ASCII 码转 String
  • 替换匹配
  • 判断字符串是否为Null或者为空字符串
  • 判断字符串是否为数字
• 选取器（Selectors）
  • 带有通配符的选取器
  • 动态选取器
  • 正则表达式搜索
  • 模糊搜索
  • 区分大小写的选取器
• 数据操作
  • 新建数组
  • 新建一个List
  • 实例化一个List
  • 快速输出 list
  • List 去重
  • List 筛选
  • 遍历 List 的时候删除 List 元素
  • 判断 List 里面是否包含某字符
  • 判断 List 是否包含符合特定条件的数据
  • 两个 List 操作
    • 两个 List 取交集
    • 两个 List 取差集
    • 两个 List 取并集
    • 两个 List 相加
  • 新建字典
  • 判断字典里面是否包含某个key
  • 判断字典里面是否包含某个Value
  • 遍历字典的键
  • 遍历字典的值
  • 遍历字典
  • String 转 list
  • 获取文本中的最后 15 行
  • 文本分割成数组
  • 文本分割，获取符合指定条件的字符串数组
  • Base64 转 Byte Array
  • Byte Array 保存为图片
  • 生成一个随机数
• 邮件相关
  • 邮件正文里面带图片
  • 调整邮件正文内容的 css
  • 邮件里面带上表格
  • 163 邮箱配置
  • 关闭SSL验证
• 日期时间相关
  • 输出当前时间
  • 时间转为当地时间
  • 获取日期的星期
  • 获取这周几的日期
  • 获取某年某月的天数
  • 对日期进行加减年月日
  • 字符串转为DateTime
  • 判断能否把字符串转化为DateTime
  • Subtract
  • DateDiff
  • TimeSpan 结构
  • Delay 500 毫秒
  • Delay 5 秒
  • Delay 1 分钟
  • 获取当前是第几季度
• 文件/文件夹相关
  • 获取某个文件夹下的所有文件夹
  • 获取某文件夹下的所有 .csv 文件
  • 获取某文件夹下的所有 .xls 文件的数量
  • 获取某文件夹下，包含子文件夹的所有文件
  • 获取某文件夹下，包含子文件夹的文件数量
  • 获取某文件夹下，所有 .dat 或 .gz 文件
  • 获取某文件夹下，包含子文件夹的所有的文件夹
  • 删除某文件夹下，所有空文件夹
  • 选择文件（SelectFile）
  • 获取文件大小(字节数)
  • 文件重命名
  • 文件压缩
  • 文件解压
  • 获取文件路径
  • 获取文件扩展名
  • 获取文件名
  • 获取文件名，不带扩展名
  • 获取文件名所在的根目录
  • 当前用户的临时文件夹的路径
• 环境相关
  • 获取当前文件夹路径
  • 字符串组合成路径
  • 文件在远程桌面的路径
  • 获取文件夹里面最新的一个文件
• Windows 系统相关
  • 自动登录Windows
  • 启动进程
  • 打开文件管理器
  • 打开文件管理器，指定路径
  • 打开文件管理器，选中指定文件
  • 打开远程桌面的文件管理器，指定路径
• Http请求
• 短信（验证码）相关
• Excel相关
  • 将列索引转换为列字母
  • 将列字母转换为列索引
  • Write Range 后的数据不对
  • Excel 去重
  • 无法导入 UiPath 生成的 Excel 文件
  • Write Range报错: Cannot write to the target range because it has hidden rows. Remove any filters or unhide rows and try again.
  • 一个一个cell填写数据特别慢
  • Excel 自动填写数据
  • Delete Range
  • Excel 在表格里面筛选数据
  • 第三方控件
• VBA相关
  • UiPath 运行VBA，前置操作
  • VBA 删除Sheet页
  • VBA 删除Sheet
  • VBA 删除C列为空的行
  • VBA 删除指定范围的行
  • VBA 从最后一行删到指定行
  • VBA 从指定行开始删数据
  • VBA 粘贴数据
  • VBA 自动调整所选列列宽
  • VBA 打开 Excel
  • Err 对象
  • Sub 和 Function 的区别
• SQL
  • MySQl 配置 ODBC
  • 清空一个表
  • 把一个表的数据去重放入另一个表
• 正则
  • 正则表达式构建器
  • 日期是否是yyyy/MM/dd
  • 获取数字
  • 获取英文
  • 获取中文
  • 判断字符串中是否含有5个下划线
  • 匹配日期(年-月-日)
  • 匹配数字+英文
  • 匹配数字+英文(至少是五位)
  • 匹配数字+英文+()（）_(至少是五位)
  • 匹配中文
  • 匹配非中文
• SAP
  • 启用 SAP GUI 脚本编写
  • 支持的 SAP WinGUI 元素
• Bat脚本（cmd命令行）
  • 修改cmd窗口编码为UTF-8
  • 创建虚拟磁盘
  • 删除虚拟盘
  • 杀进程
  • 7Zip 压缩文件
  • 7Zip 解压文件
  • WinRAR 压缩文件
  • WinRAR 解压文件
  • xcopy 复制文件
  • 移动鼠标
  • 等待 10 秒
  • 等待 5 秒 （ping 127.1 的方式）
• PowerShell
  • PowerShell 移动鼠标一段距离（X轴）
  • 移动鼠标到指定位置
• 浏览器相关
  • 谷歌浏览器，下载前询问每个文件的保存位置
  • 谷歌浏览器，设置关闭所有窗口时清除 Cookie 及网站数据
  • 您的连接不是私密连接
  • 谷歌浏览器黑屏
  • 谷歌浏览器崩溃：“STATUS_INVALID_IMAGE_HASH”
  • 弹出式窗口和重定向
  • 关闭谷歌浏览器异常恢复弹窗
  • Win11使用 IE
  • Win Server 关闭 IE 增强的安全配置
  • iFrame
• 奇奇怪怪的坑
  • ctrl v 失效
  • Selector 能找到元素，但是运行报错 time out
  • 客户机的系统和服务器日期不为同一天
  • 选择元素，F2倒计时结束后元素消失
  • Cannot find the UI element corresponding to this selector
  • Cannot communicate with the browser, please check the UiPath extension
  • 你要允许来自未知发布者的此应用对你的设备进行更改吗？
  • 以管理员身份运行Uipath应用程序
  • Block User Input 锁不了鼠标键盘
  • 批量插入数据（Insert DataTable）到数据库报错
  • UiPath Data Scraping只能抓取网页表格的数据
  • 报错：Scrape returned empty text
  • 能运行的代码，突然有一天不能运行了1
  • 能运行的代码，突然有一天不能运行了2
  • IsNumeric() 报错
  • Studio 运行流程报错 Unable to start execution
• UiPath 相关
  • 教程
  • UiPath 包路径
  • UiPath 本地依赖包路径
  • UiPath Studio.exe 的路径
  • UiPath UiRobot.exe 的路径
  • UiPath 本地日志的路径
  • UiPath 术语表(UiPath Glossary)
  • 产品生命周期(product lifecycle)
  • 活动生命周期(activities lifecycle)
  • 弃用 Windows 旧版兼容性
• UiPath Studio
  • 输入方法
  • UiPath Robot

DataTable相关

新建一个空的DataTable

New System.Data.DataTable

DataTable.Select()

使用 sql 语法筛选数据

dt.Select("[semployerName] like '*[*]*' or [semployerName] like '*''*' ")

Datatable Filtered_Results = dt.Select("[Column1] = '"+param_1+"' AND [Column2] = '"+param_2+"'").CopyToDataTable()

https://www.cnblogs.com/TeresaMu/p/12058559.html

https://docs.microsoft.com/zh-cn/dotnet/api/system.data.datatable.select?view=net-5.0

DataTable获取筛选后的某一字段

dt.Select("是否新增= '是'").Select( Function(row) row.Item("名称").ToString ).ToList()

筛选出来的是一个列表，可以转换成文本。

Join( dt.Select("是否新增= '是'").Select( Function(row) row.Item("名称").ToString ).ToList().ToArray, "、")

DataTable.Compute()

Compute (string? expression, string? filter);

用来计算值。

https://learn.microsoft.com/zh-cn/dotnet/api/system.data.datatable.compute?view=net-7.0

例： 计算 DataTable 中，【级别】为信息的条数。

dt.Compute(" Count(级别) ", " 级别 = '信息' ")

例：计算 DataTable 中，【资金类型】为代理费的 应划付金额 的总计。

dt.Compute(" Sum(应划付金额) ", " 资金类型 = '代理费' ")

【应划付金额】这一列不能为 String 型，String 型的会报错：Invalid usage of aggregate function Sum() and Type: Object.

把代码改成 dt.Compute(" Sum( Convert(应划付金额, 'System.Double' ) ) ", " 资金类型 = '代理费' ") 也不行，会报错：Syntax error in aggregate argument: Expecting a single column argument with possible ‘Child’ qualifier.

如果真的要实现，只能换方式：

dt.AsEnumerable().Where(Function(row) row.Item("资金类型").ToString = "代理费").Sum(Function(row) Convert.ToDouble( row.Item("应划付金额") ) )

或者是用 dt.Clone() 克隆表结构到 dtCloned，dtCloned.Columns(“应划付金额”).DataType = GetType(System.Decimal)，然后把 dt 每一行的数据插入到 dtCloned，最后是使用 dtCloned.Compute 进行计算。（思路是这样，但是觉得太麻烦了）

DataTable.AsEnumerable().Where

筛选数据

dt.AsEnumerable().Where(Function(y) y.Item("semployerName").ToString.Contains("'") or y.Item("semployerName").ToString.Contains("*")).ToList()

https://forum.uipath.com/t/checking-special-characters-in-column-values-in-data-table/14599/2

DataTable.Clone()

克隆可创建具有与原始 DataTable 相同的结构的新 DataTable，但不复制任何数据（新 DataTable 将不会包含任何 DataRows）。

https://docs.microsoft.com/zh-cn/dotnet/api/system.data.datatable.clone?view=net-5.0

DataTable.Copy()

同时将结构和数据复制到新 DataTable 中，使用 Copy。

给 DataTable 添加列（指定位置）

SetOrdinal(0)里面的 0 就是想添加到的位置。

dt.Columns.Add("列名").SetOrdinal(0)

dt.Columns.Add("列名", typeof(String)).SetOrdinal(0)

https://docs.microsoft.com/en-us/dotnet/framework/data/adonet/dataset-datatable-dataview/adding-columns-to-a-datatable

给 DataTable 添加列（指定位置、默认值）

Dim column As DataColumn
column = New DataColumn("日期")
column.DefaultValue = strBalanceDate

dtBankDataTable.Columns.Add(column)
column.SetOrdinal(0)

DataTable 调整列的顺序

将顺序调到第4列，计数从0开始

dt.Columns("ColumnName").SetOrdinal(4)

使用 Invoke Method 或者 Invoke Code 都可以实现

DataTable 判断是否存在某列

dt.Columns.Contains("列名")

DataColumn转list

( From row In dt.AsEnumerable() Select Convert.Tostring(row("列名")) ).ToList()

DataTable 去重1

Remove Duplicate Rows

DataTable 去重2

NameList = (From name in dtAllDataTable.Columns.Cast(of DataColumn) select name.ColumnName).ToArray

dvDataView = dtAllDataTable.DefaultView
    
dtAllDataTable = dvDataView.ToTable(True, NameList)

DataTable 列名去掉空格

TypeArgument : System.Data.DataColumn

或者循环里面直接使用

item.ColumnName = item.ToString.Trim

DataTable 删除行1

使用 For Each ，

For Each row in dt.Select( "[文件名称] like '*' " )

dt.Select() 或者 dt.Rows 都可以。用 dt.Select() 主要是为了筛选数据，如果不需要的话，直接用 dt.Rows 即可。

TypeArgument 选择 System.Data.DataRow

Index 填写 intIndex

循环里面使用 Remove Data Row 。

增加行的逻辑类似，只不过是把 Remove Data Row 换成 Add Data Row。

DataTable 删除行2

建一个列表 lstRowIndex 来存储需要删除的行数，New List(of integer)，变量类型：System.Collections.Generic.List

使用 For Each Row in dt

Index 填写 intIndex

使用控件 Add To Collection，把需要删除的行加到 lstRowIndex。

遍历完成之后，使用 For Each item in lstRowIndex.ToArray.Reverse()，进行倒序删除。

DataColumn.Expression

https://learn.microsoft.com/zh-cn/dotnet/api/system.data.datacolumn.expression?view=net-6.0

LINQ

LINQ 概述

https://learn.microsoft.com/zh-cn/dotnet/visual-basic/programming-guide/concepts/linq/

https://docs.microsoft.com/zh-cn/dotnet/csharp/linq/

https://learn.microsoft.com/zh-cn/dotnet/api/system.linq?view=net-6.0

https://www.yiibai.com/linq/

https://forum.uipath.com/t/how-to-use-arithmetic-operator-using-linq/471768

LINQ 查询操作由以下三个操作组成：

1. 获取数据源。
2. 创建查询。
3. 执行查询。

From num In numbers
Where num Mod 2 = 0
Select num

Lambda 表达式

Lambda 表达式是没有名称的函数，用于计算并返回单个值。 与命名函数不同，Lambda 表达式可以同时定义和执行。

在 LINQ 中，Lambda 表达式是许多标准查询运算符的基础。 编译器创建 Lambda 表达式来捕获基本查询方法（如 Where、Select、Order By、Take While 等）中定义的计算。

(Function(num As Integer) num + 1)(6)

结果是：7

Dim add1 = Function(num As Integer) num + 1
Console.WriteLine(add1(3))

From stdnt In students
Where stdnt.Year = "Senior"
Select stdnt

students
.Where(Function(st) st.Year = "Senior")
.Select(Function(s) s)

获取压缩包

(From n In Directory.GetFiles(strFolderPath)
    Where n.ToLower.EndsWith(".zip") Or n.ToLower.EndsWith(".7z")
Select n).ToArray

去掉数组里面空的元素

myArray = myArray.Where(Function(s) Not String.IsNullOrEmpty(s)).ToArray()

数据类型

数据类型摘要

Decimal 与 Double 的不同

一句话总结：Single 和 Double 只能用来做科学计算或者是工程计算，在商业计算中用 Decimal。

商业计算中，建议使用 Decimal，而不是使用 Double。Decimal 数据类型为数字提供的有效位数最多。 它最多支持 29 个有效位数，并可表示超过 7.9228 x 10 ^ 28 的值。 它特别适用于需要大量数字但不允许舍入误差的计算（例如财务）。

Decimal 不是浮点数据类型。 Decimal 结构包含一个二进制整数值以及一个符号位和一个整数比例因子，该比例因子用于指定该值的小数部分。 因此，在内存中，Decimal 数字的表示形式比浮点类型（Single 和 Double）更精确。

Convert.ToDouble( "66.144421" )
Double.Parse("17.89")

Convert.ToDecimal( 66.144421 )
Decimal.Parse("17.89")

参见：数据类型疑难解答 (Visual Basic)

浮点表达式不比较为等于

使用浮点数（单数据类型和双数据类型）时，请记住，它们存储为二进制分数。 这意味着对于任何不是二进制分数的数量，它们无法提供准确的表示形式（采用 k / (2 ^ n) 的形式，其中 k 和 n 是整数）。 例如，0.5 (= 1/2) 和 0.3125 (= 5/16) 可以作为精确的值，而 0.2 (= 1/5) 和 0.3 (= 3/10) 只能是近似值。

由于这种不精确性，在使用浮点值时，不要指望获得准确的结果。 具体而言，理论上相等的两个值的表示形式可能略有不同。

比较浮点数量
1. 使用 System 命名空间中 Math 类的 Abs 方法计算其差值的绝对值。 2. 确定可接受的最大差值，这样，如果两个数量的差值不大于该值，则出于实用目的，你可以认为这两个数量相等。 3. 将差值的绝对值与可接受的差值进行比较。

Mod 运算符不返回准确的结果

由于浮点存储的不精确性，当至少有一个操作数为浮点时，Mod 运算符可能会返回意外的结果。

十进制数据类型不使用浮点表示形式。 在 Single 和 Double 中不准确的许多数字在 Decimal 中是准确的（例如 0.2 和 0.3）。 尽管算术在 Decimal 中比在浮点中慢，但为了实现更好的精度，性能降低是值得的。

查找浮点数量的整数余数
1. 将变量声明为 Decimal。 2. 使用文本类型字符 D 将文本强制为 Decimal，以免其值对于 Long 数据类型来说太大。

举例：

dblVariable1 = Double.Parse("4.17")
dblVariable2 = Double.Parse("17.89")
dblVariable3 = dblVariable1 + dblVariable2

dblVariable4 = Double.Parse("22.06")

输出 dblVariable3 = dblVariable4 的结果为 False。

或者直接输出 Double.Parse("4.17") +Double.Parse("17.89") = Double.Parse("22.06") ，结果也是 False。

把相关变量换成 Decimal 型

decVariable1 = Decimal.Parse("4.17")
decVariable2 = Decimal.Parse("17.89")
decVariable3 = decVariable1 + decVariable2

decVariable4 = Decimal.Parse("22.06")

输出 decVariable3 = decVariable4 的结果为 True。

或者直接输出 Decimal.Parse("4.17") +Decimal.Parse("17.89") = Decimal.Parse("22.06")，结果也是 True。

在 19.10.4 版本的 Studio 上，输出 Double.Parse("4.17") +Double.Parse("17.89")，虽然日志里面是 22.06，但是直接 Debug 看 Message 的 in，其实是 22.060000000000002。但在 22.12.0 版本的 Studio 上，却是输出 22.060000000000002。

直接导致了我接手的一个流程，报错时，抛出的异常信息是：代理佣金管理界面表格中【发生额】合计：22.06，与【应划付金额】总计：22.06 不一致。都不好和业务老师解释，只能怪自己接手代码的时候没有注意到这里选用的数据类型。

运算符

And 运算符

逻辑与，两个都为真才为真。

AndAlso 运算符

短路的逻辑与

如果编译的代码可以根据一个表达式的结果绕过另一个表达式的计算，则称逻辑运算为短路。

如果第一个表达式的计算结果决定运算的最终结果，则无需计算第二个表达式，因为这无法改变最终结果。 如果绕过的表达式很复杂，或者涉及过程调用，短路可以提高性能。

逻辑与运算的话，两个表达式为真才为真，有一个不为真，则为假。

用 And，哪怕第一个表达式是假，也会去计算第二个表达式；

用 AndAlso，只要第一个表达式是假，就会直接返回假，不计算第二个表达式，如下表所示。

举个例子，假如在一个判断里面，我需要判断文件路径是否在某个字典里面，且还需要判断该路径是否在电脑本地存在。

dic.Keys.Contains("文件路径") AndAlso File.Exists( dic("文件路径").ToString )

这里用 AndAlso 就没问题，用 And 的话，在文件路径没有添加到字典的时候，File.Exists( dic("文件路径").ToString ) 就会报错，说这个key 不在字典里面。

所以，从方便、提高效率、避免错误的角度来说，用 AndAlso 会更好一些。

愿我不会再接手别人的代码。

Or 运算符

逻辑或，有一个为真则为真。

OrElse 运算符

短路的逻辑或

用 Or，哪怕第一个表达式是真，也会去计算第二个表达式；

用 OrElse，只要第一个表达式是真，就会直接返回真，不计算第二个表达式，如下表所示。

Xor 运算符

逻辑异，不短路的。

两个表达式之一的计算结果为 真 时，结果 才是 真。

两个表达式同真同假，结果 皆为 假。

IF

IIf(expr, truepart, falsepart)

参数描述 ： 　　expr 必要参数。用来判断真伪的表达式。 　　truepart 必要参数，只能为文本。如果 expr 为 True，则返回这部分的文本。 　　falsepart 必要参数，只能为文本。如果 expr 为 False，则返回这部分的文本。

If( out_blIsCheckSuccess, "校验成功", "校验失败" )

IIF

IIf(expr, truepart, falsepart) 参数描述 ： 　　expr 必要参数。用来判断真伪的表达式。 　　truepart 必要参数。如果 expr 为 True，则返回这部分的值或表达式。 　　falsepart 必要参数。如果 expr 为 False，则返回这部分的值或表达式。

IIf( out_blIsCheckSuccess, "校验成功", "校验失败" )

Note：使用 IIF 时,不管 expr 是真还是假，后面的 truePart 和 falsepart都会进行计算，虽然它只返回其中的一个。也就是 IIF 函数是不短路的。

例如，如果 falsepart 产生一个被零除错误，那么程序就会发生错误，即使 expr 为 True。

它对每个表达式都会进行计算，如果某一项为 DBnull 则就会抛出异常，所以在进行非空判断时应该用 IF 的形式，而不应该用 IIF。

下面这个例子就会引发被零除错误。

intIndex = 100
IIf( out_blIsCheckSuccess, "校验成功", intIndex \ 0 )

https://learn.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.interaction.iif?view=net-7.0

String相关

字符串函数

https://learn.microsoft.com/zh-cn/dotnet/visual-basic/language-reference/functions/string-functions

https://learn.microsoft.com/zh-cn/dotnet/api/system.string?view=netframework-4.8#methods

输出”

""""

String 大写

str.ToUpper

String 小写

str.ToLower

String 转 Double 型

Convert.ToDouble("1.2")

转成两位精度小数

用 0 占位

Double.Parse("1.2").ToString("0.00")

Double.Parse("1").ToString("f")

去掉数字 0

Decimal.Parse("1.20").ToString("0.0#")

判断能不能转换为整数

Integer.TryParse("asd",0)

输出为：False

Integer.TryParse("123",0)

输出为：True

https://learn.microsoft.com/zh-cn/dotnet/api/system.int32.tryparse?view=net-6.0

转成百分比

Double.Parse("0.5").ToString("p")

https://docs.microsoft.com/zh-cn/dotnet/api/system.double.tostring?view=net-5.0

SecurePassword

获取或设置 SecureString 实例形式的密码。

secStrPassWord = New System.Net.NetworkCredential("","123456").SecurePassword

https://docs.microsoft.com/zh-cn/dotnet/api/system.net.networkcredential

Password

获取或设置与凭据关联的用户名的密码。

New System.Net.NetworkCredential("",pwd).Password

字符串加双引号

"test""Test" + """"

输出：test”Test”

String.Format

String.Format("银行名称：{0}，账户类型：{1}，文件名称：{2}", strBankName, strAccountType, strFileName)

https://learn.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.strings.format?view=net-6.0

将对象的值转换为字符串

String.Format补全0

Strings.Format(7, "000")

输出：007

也可以：https://docs.microsoft.com/zh-cn/dotnet/api/system.string.padleft?view=net-6.0

String 去掉前面的0

"0000abc".TrimStart("0".ToCharArray)

输出：abc

https://docs.microsoft.com/zh-cn/dotnet/api/system.string.trimstart?view=net-6.0

String 换行

"asdf"+ _ 
"dssffg"

输出：asdfdssffg

String 替换掉换行

str.Trim.Replace( Chr(10) , "").Replace( Chr(13) , "")

str.Trim.Replace( vbcrlf , "")

String 分割

Split(str, ",")

str.Split(","c)
str.Split({","})
str.split(CChar(","))
str.Split(Char.Parse(","))
str.Split(convert.ToChar(","))

https://learn.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/split-function

https://learn.microsoft.com/zh-cn/dotnet/api/system.string.split?view=net-7.0

用两个分隔符来分割

str.Split(","c, " "c)

去掉结果中包含空字符串的数组元素

str.Split( (",").ToArray, StringSplitOptions.RemoveEmptyEntries)

str.Split( (" "+",").ToArray, StringSplitOptions.RemoveEmptyEntries)

str.Split( {",", " "}, StringSplitOptions.RemoveEmptyEntries)

https://learn.microsoft.com/zh-cn/dotnet/api/system.stringsplitoptions?view=net-7.0

获取特定字符串在某字符串出现的位置

Instr( str, "特定字符串")

https://learn.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/instr-function

Substring 截取

从第六个字符开始，截取两个字符

str.Substring(6,2)

截第六个字符后的所有字符

str.Substring(6)

https://docs.microsoft.com/zh-cn/dotnet/api/system.string.substring?view=net-6.0

String 截取前四位

注意：不足 4 位也不会出错

Left(str, 4)

Strings.Left(str, 4)

String 截取后四位

注意：不足 4 位也不会出错

Right(str , 4)

Strings.Right(str , 4)

String 转 ASCII 码

每个字符串中的第一个字母的字符代码

Asc("A")

https://learn.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.strings.asc?view=net-6.0

ASCII 码转 String

Chr(65)

https://learn.microsoft.com/zh-cn/dotnet/api/microsoft.visualbasic.strings.chr?view=net-6.0

替换匹配

System.Text.RegularExpressions.Regex.Replace(text, "\W","")

判断字符串是否为Null或者为空字符串

String.IsNullOrEmpty(str)

https://docs.microsoft.com/zh-cn/dotnet/api/system.string.isnullorempty?view=net-6.0

判断字符串是否为数字

.IsNumeric

"7".IsNumeric

IsNumeric( "7" )

选取器（Selectors）

关于选取器

<html omit:title='*新意*' />

带有通配符的选取器

<wnd app='notepad.exe' cls='Notepad' title='Untitled - Notepad' />

<wnd app='notepad.exe' cls='Notepad' title='*- Notepad' />

<wnd app='notepad.exe' cls='Notepad' title='Untitled?- Notepad' />

• 星号 (*) – 替换零个或更多个字符
• 问号 (?) – 替换单个字符

https://docs.uipath.com/studio/lang-zh_CN/docs/selectors-with-wildcards

动态选取器

MenuOption 为变量

<wnd app='notepad.exe' cls='Notepad' title='Untitled - Notepad' />
<ctrl automationid='MenuBar' idx='1' name='Application' role='menu bar' />
<ctrl name='' role='menu item' />

https://docs.uipath.com/studio/lang-zh_CN/docs/dynamic-selectors

正则表达式搜索

<wnd app='applicationframehost.exe' title='Calculator' /> 
<uia cls='LandmarkTarget' /> 
<uia automationid='CalculatorResults' name='Display is \d' role='text' matching:name='regex' />

https://docs.uipath.com/studio/lang-zh_CN/docs/regex-search

模糊搜索

<html title='*新意*' />
<webctrl id='depName' tag='SPAN' aaname='总部清算中心' matching:aaname='fuzzy' fuzzylevel:aaname='0.8' />

区分大小写的选取器

UiPath Selector 里面，属性默认是大小写敏感的，但是可以使用 casesensitive:<attribute-name>='false' 进行更改。

例：

<html app='chrome.exe' title='区分大小写的选取器' />
<webctrl parentid='content-container' tag='STRONG' aaname='RegEx' />

如果 RegEx 变成了 regex，那么上面的 Selector 就会报错，但是修改为下面这样，大小写不敏感，就不会报错了。

<html app='chrome.exe' title='区分大小写的选取器' />
<webctrl parentid='content-container' tag='STRONG' aaname='RegEx' casesensitive:aaname='false' />

https://docs.uipath.com/studio/lang-zh_CN/docs/case-sensitive-selectors

数据操作

新建数组

{"1", "2", "3"}

New String() {"1", "2", "3"}

新建一个List

New List(Of String)

实例化一个List

New List(Of String) From {"1", "2", "3"}

快速输出 list

先转为Array，然后再处理

Join( list.ToArray, "、" )

String.Join( ",", list)

https://learn.microsoft.com/zh-cn/dotnet/api/system.string.join?view=net-8.0

List 去重

list.Distinct().ToList

List 筛选

list1.Where( Function(y)  y.Contains("2") ).ToList

遍历 List 的时候删除 List 元素

正常的 for each in list，删除完 List 元素之后肯定会出错，对 list 再 ToList 一下就可以了。

list.ToList

或者 list 再 ToArray 一下

list.ToArray

甚至可以 ToArray 之后再翻转一下

list.ToArray.Reverse()

甚至还可以 ToArray 之后再翻转两次，再 ToList 一下

list.ToArray.Reverse().Reverse().ToList

判断 List 里面是否包含某字符

list.Contains(str)

https://learn.microsoft.com/zh-cn/dotnet/api/system.collections.generic.list-1.contains?view=net-6.0

判断 List 是否包含符合特定条件的数据

list1.Exists( Function(y)  y.Contains("2") )

两个 List 操作

list1 = New List(Of String) From {"1", "2", "3"}
list2 = New List(Of String) From {"1", "3","5","7"}

两个 List 取交集

FinalList = list1.Intersect(list2).ToList

FinalList 的值为 1、3

两个 List 取差集

FinalList = list1.Except(list2).ToList

FinalList 的值为 2

FinalList = list2.Except(list1).ToList

FinalList 的值为 5、7

两个 List 取并集

取并集是去重的

FinalList = list1.Union(list2).ToList

FinalList 的值为 1、2、3、5、7

两个 List 相加

Concat 是不去重的

FinalList = list1.Concat(list2).ToList

FinalList 的值为 1、2、3、1、3、5、7

新建字典

New Dictionary(Of String,Object) From{ {"异常结果收件邮箱",""}, {"发件邮箱账号密码凭据","发件邮箱账号密码"}, {"RobotWorkFolder","C:\Robots\asdf"} }

判断字典里面是否包含某个key

dic.ContainsKey("异常结果收件邮箱")

判断字典里面是否包含某个Value

Config.ContainsValue("发件邮箱账号密码")

遍历字典的键

for key in dic.Keys

遍历字典的值

for value in dic.Values

遍历字典

For Each 的 TypeArgument 选择 KeyValuePair

键：item.Key

值：item.Value

String 转 list

, 为分隔符，先按照分割符转为数组，再转为 list

str.Split( CChar(",") ).ToList

获取文本中的最后 15 行

用 chr(10) ，也就是换行来分割获取到的日志，然后获取最后的15条日志。

Split( strlogText, chr(10) ).TakeLast(15).ToList

把 strlogText 分割成之后数组，取前 15 条，再反转回去，接着转成 list

Split( strlogText, chr(10) ).Reverse().Take(15).Reverse().ToList

chr(13)是回车，把获取好的内容用回车拼接成文本

Join( Split( strlogText, chr(10) ).Reverse().Take(15).Reverse().ToArray, chr(13))

Skip 是跳过，把倒数 15 行前面的内容跳过

Split( strlogText, vbCrLf ).Skip( Split( strlogText, vbCrLf ).Count - 15 )

Math.Max 是返回两个值中的最大值

Split( strlogText, vbCrLf ).Skip( Math.Max(0, Split( strlogText, vbCrLf ).Count - 15) )

文本分割成数组

将字符串 strText 按照换行符进行分割，并返回一个包含分割后所有子字符串的数组，然后对于数组中的每个元素，都选取它本身作为结果。

From r In Split( strlogText,chr(10))
Select r

文本分割，获取符合指定条件的字符串数组

将字符串strErrorMsg按照换行符进行分割，并返回一个包含分割后所有子字符串的数组，然后选取其中所有包含字符串”新增代码”的子字符串，并返回一个新的数组，其中只包含符合条件的子字符串。

From r In Split( strErrorMsg,chr(10))
Where r.Contains("新增代码")
Select r

Base64 转 Byte Array

Convert.FromBase64String( strImageBase64 )

Byte Array 保存为图片

File.WriteAllBytes( strImgPath, arrByteArray )

生成一个随机数

范围是 0 到 9

Cint( Rnd()*9 )

范围是 10 到 100

New Random().Next(10, 100)

范围是1到15

New Random(DateTime.Now.Millisecond).Next(1, 15)

邮件相关

邮件正文里面带图片

strMailBody = "邮件里面的文字信息"

byteArray = File.ReadAllBytes(strScreenshotPath)
strPicBase64 = Convert.ToBase64String(byteArray)
strPicHtml = "<img src=data:image/jpeg;base64,"  + strPicBase64 + ">"

"<html><body>"+ strMailBody + strPicHtml +"</body></html>"

调整邮件正文内容的 css

需要勾选 IsBodyHtml ，或 IsBodyHtml 为 True

"<STYLE type=text/css>
       font {
            font-size: 22px !important;
        }
</STYLE><font>邮件正文内容</font>"

邮件里面带上表格

需要勾选 IsBodyHtml ，或 IsBodyHtml 为 True

如果是有 Create HTML Content 这个控件，则可以使用这个控件。

若是没有，则使用遍历表头+表的内容组合出 DataTable 的 Html

163 邮箱配置

关闭SSL验证

System.Net.ServicePointManager.ServerCertificateValidationCallback =
Function(se As Object,
cert As System.Security.Cryptography.X509Certificates.X509Certificate,
chain As System.Security.Cryptography.X509Certificates.X509Chain,
sslerror As System.Net.Security.SslPolicyErrors) True

日期时间相关

https://learn.microsoft.com/zh-cn/dotnet/api/system.datetime

输出当前时间

yyyy：年； MM：月； dd：日；

hh：小时，12 小时制。如果是下午三点，会输出 03； HH：小时，24 小时制。如果是下午三点，会输出 15； mm：分 ss：秒

Now.ToString("yyyyMMdd hh:mm:ss")

输出：20221216 10:06:58

其实 Now 就是 DateTime.Now，为了方便，省略了。

DateTime.Now.ToString("yyyyMMdd hh:mm:ss")

输出：20221216 10:06:58

输出结果是一样的。

时间转为当地时间

DateTime.UtcNow.ToLocalTime()

https://learn.microsoft.com/zh-cn/dotnet/api/system.datetime.tolocaltime?view=net-7.0

获取日期的星期

Now.DayOfWeek

输出：Sunday

https://learn.microsoft.com/zh-cn/dotnet/api/system.datetime.dayofweek?view=net-6.0

Now.ToString("dddd")

输出：Sunday

Now.ToString("ddd")

输出：Sun

Now.ToString("dddd",New Globalization.CultureInfo("zh-cn"))

输出：星期日

Now.ToString("ddd",New Globalization.CultureInfo("zh-cn"))

输出：周日

Weekday(Now,vbSunday)

Weekday(date， [firstdayofweek])

设置

firstdayofweek 参数具有以下设置：

返回值

Weekday 函数可以返回以下任一值：

https://learn.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/weekday-function

获取这周几的日期

获取周一的日期

Now.AddDays(1 - Weekday(Now,vbMonday) ).ToString("yyyyMMdd")

周日的话，把 vbMonday 改成 vbSunday

Now.AddDays(1 - weekday(now,vbSunday)).ToString("yyyyMMdd")

获取某年某月的天数

DateTime.DaysInMonth(2023, 2)

输出：28

https://learn.microsoft.com/zh-cn/dotnet/api/system.datetime.daysinmonth?view=net-6.0

对日期进行加减年月日

加一年：.AddYears(-1) 加一月：.AddMonths(-1) 加一天：.AddDays(-1)

减一年：.AddYears(+1) 减一月：.AddMonths(+1) 减一天：.AddDays(+1)

Now.AddMonths(+1).ToString("yyyyMMdd")

输出：20230116

字符串转为DateTime

转换为 DateTime 变量，一般是够用的

Convert.ToDateTime("2022/05/25")

DateTime.Parse("2022/05/25")

如果格式特别奇怪的话，可以使用 DateTime.ParseExact：

DateTime.ParseExact( "Tue May 25 18:11:19 CST 2022", "ddd MMM dd HH:mm:ss CST yyyy", Nothing)

DateTime.ParseExact( "Tue May 25 18:11:19 CST 2022", "ddd MMM dd HH:mm:ss CST yyyy", New System.Globalization.CultureInfo("en-US") )

将日期时间的字符串转换为 DateTime

strReceiptime = "Wed, 15 Dec 2021 15:00:04 +0800"
format = "ddd, dd MMM yyyy HH:mm:ss zzz (CST)"

strReceiptime = "Wed, 15 Dec 2021 15:00:04 +0800 (CST)"
format = "ddd, dd MMM yyyy HH:mm:ss zzz (CST)"

DateTime.ParseExact(strReceiptime, format, System.Globalization.CultureInfo.InvariantCulture)

https://docs.microsoft.com/zh-cn/dotnet/api/system.datetime.parseexact

https://blog.csdn.net/bigheadsheep/article/details/12013267

判断能否把字符串转化为DateTime

DateTime.TryParse

直接进行转化的判断

DateTime.TryParse("2022/08/05", dtmdateValue)

DateTime.TryParseExact

提供日期格式的转化判断

DateTime.TryParseExact("20220805", "yyyyMMdd", Nothing, System.Globalization.DateTimeStyles.None, dtmdateValue)

Subtract

输出时间差

Time1 = DateTime.now()
Time2 = DateTime.now()

System.TimeSpan diff1 =Time1.Subtract(Time2)

System.TimeSpan diff2 =Time2-Time1

https://docs.microsoft.com/zh-cn/dotnet/api/system.datetime.subtract?view=net-6.0

DateDiff

输出时间差，DateInterval.Second是秒数，DateInterval.Minute 是分钟数，DateInterval.Day 是日期数

DateDiff(DateInterval.Minute, Time1,Time2)

https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.dateandtime.datediff?view=net-6.0

https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.dateinterval?view=net-6.0

TimeSpan 结构

https://docs.microsoft.com/zh-cn/dotnet/api/system.timespan?view=net-6.0

Delay 500 毫秒

00:00:00.500

New TimeSpan(0, 0, 0, 0,500)

TimeSpan.FromSeconds( 0.500 )

Delay 5 秒

00:00:05

New TimeSpan(0, 0, 5)

New TimeSpan(0, 0, 0, 5)

TimeSpan.FromSeconds( 5 )

https://learn.microsoft.com/zh-cn/dotnet/api/system.timespan.fromseconds?view=net-7.0

Delay 1 分钟

00:01:00

New TimeSpan(0, 1, 0)

TimeSpan.FromMinutes( 1 )

https://learn.microsoft.com/zh-cn/dotnet/api/system.timespan.fromminutes?view=net-7.0

获取当前是第几季度

DatePart( "q", Now() )

文件/文件夹相关

获取某个文件夹下的所有文件夹

Directory.GetDirectories("C:\Robots\asdf")

获取某文件夹下的所有 .csv 文件

Directory.GetFiles("C:\Robots\asdf", "*.csv")

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.directory.getfiles?view=net-6.0

获取某文件夹下的所有 .xls 文件的数量

Directory.GetFiles("C:\Robots\asdf","*.xls").Count

获取某文件夹下，包含子文件夹的所有文件

Directory.GetFiles( in_strInputPath, "*" , SearchOption.AllDirectories )

SearchOption

获取某文件夹下，包含子文件夹的文件数量

Directory.GetFiles( in_strInputPath,"*", searchOption.AllDirectories).Count

获取某文件夹下，所有 .dat 或 .gz 文件

Directory.GetFiles(in_strInputPath, "*" ).Where(Function(s) s.EndsWith(".dat") or s.EndsWith(".gz") )

获取某文件夹下，包含子文件夹的所有的文件夹

Directory.GetDirectories(in_strInputPath,"*", searchOption.AllDirectories)

删除某文件夹下，所有空文件夹

1. 先 Directory.GetDirectories(in_strInputPath,"*", searchOption.AllDirectories)，遍历所有文件夹；
2. 然后Directory.GetFiles( item,"*", searchOption.AllDirectories).Count = 0, 判断文件夹是否为空，如果文件数量为 0，则把文件夹路径添加到待删除文件列表；
3. 最后待删除文件列表去重，遍历列表，删除文件夹。

选择文件（SelectFile）

如果是需要自定义文件的筛选 ,比如说要筛选出 .nupkg 的文件，Filter 就填写

nupkg包 (*.nupkg)|*.nupkg

例如，如果只想选择 PDF 文件，则筛选器应类似于 PDF files (*.pdf)|*.pdf；

如果需要多种图像文件类型以及所有文件，则筛选器应类似于 Image files (*.bmp, *.jpg)|*.bmp;*.jpg|All files (*.*)|*.*；

https://docs.uipath.com/activities/lang-zh_CN/docs/select-file

获取文件大小(字节数)

code

fileSize = FileLen(filePath).ToString

文件重命名

code

FileSystem.Rename(oldPathName,newPathName)

文件压缩

strSourcePath, 压缩的目录路径；strZipFilePath, 要生成压缩包的所在路径。strZipFilePath 貌似不能在 strSourcePath 里面。

code

System.IO.Compression.ZipFile.CreateFromDirectory(strSourcePath, strZipFilePath)

设置压级别、压缩包不包含基目录

System.IO.Compression.ZipFile.CreateFromDirectory(System.IO.Compression.CompressionLevel.Fastest, False)

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.compression.zipfile.createfromdirectory?view=net-5.0

文件解压

将指定 zip 压缩包中的所有文件都解压缩到文件系统的一个目录下。

System.IO.Compression.ZipFile.ExtractToDirectory(strZipFilePath,strUnzipFilePath,System.Text.Encoding.Default)

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.compression.zipfile.extracttodirectory?view=net-5.0

获取文件路径

Path.GetDirectoryName("C:\Robots\港股通权限补报送\港股通权限补报送_日志表.xlsx")

运行结果：C:\Robots\港股通权限补报送

获取文件扩展名

Path.GetExtension("C:\Robots\港股通权限补报送\港股通权限补报送_日志表.xlsx")

运行结果：.xlsx

获取文件名

Path.GetFileName("C:\Robots\港股通权限补报送\港股通权限补报送_日志表.xlsx")

运行结果：港股通权限补报送_日志表.xlsx

获取文件名，不带扩展名

Path.GetFileNameWithoutExtension("C:\Robots\港股通权限补报送\港股通权限补报送_日志表.xlsx")

运行结果：港股通权限补报送_日志表

获取文件名所在的根目录

Path.GetPathRoot("C:\Robots\港股通权限补报送\港股通权限补报送_日志表.xlsx")

运行结果：C:\

当前用户的临时文件夹的路径

Path.GetTempPath

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.path.gettemppath?view=net-6.0&tabs=windows

环境相关

获取当前文件夹路径

Environment.CurrentDirectory

字符串组合成路径

Path.Combine(Environment.CurrentDirectory,"Data")

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.path.combine?view=net-5.0

文件在远程桌面的路径

Path.Combine("\\tsclient\", in_Config("RobotWorkFolder").ToString.Replace(":\","\"), strFileName)

获取文件夹里面最新的一个文件

Directory.GetFiles(Environment.CurrentDirectory,"Exceptions_Screenshots\").OrderByDescending(Function(d) New FileInfo(d).CreationTime)(0)

Windows 系统相关

自动登录Windows

免费：https://www.logonexpert.com/freeautologon/

付费：LogonExpert（可试用），配置好之后就可以自动登录Windows系统了

命令行使用：

"C:\Program Files\Softros Systems\LogonExpert\le.exe" -logon username [password][domain]

详细信息请参考：https://www.logonexpert.com/help/command-line/

如果有域名的话，一定要加上域名。

也可以在LogonExpert Administrator 配置好，然后直接使用

"C:\Program Files\Softros Systems\LogonExpert\le.exe" -logon *

启动进程

WorkingDirectory：如果未设置该属性，则默认工作目录为 %SYSTEMROOT%\system32。

UiPath 的控件 Open Application 打开应用，除非指定工作目录，否则都是默认使用 %SYSTEMROOT%\system32

NewProcess = New System.Diagnostics.Process

NewProcess.StartInfo.CreateNoWindow = False '是否创建窗口
NewProcess.StartInfo.FileName = '文件名称
NewProcess.StartInfo.Arguments = " " + argInstrArguments '参数

NewProcess.StartInfo.WorkingDirectory = '工作目录
NewProcess.StartInfo.UseShellExecute = '是否使用shell来执行

NewProcess.Start() '启动进程
NewProcess.WaitForExit() '等待进程退出

System.Diagnostics.Process.Start 用法

https://docs.microsoft.com/zh-cn/dotnet/api/system.diagnostics.process?view=net-6.0

打开文件管理器

System.Diagnostics.Process.Start("explorer.exe")

打开文件管理器，指定路径

System.Diagnostics.Process.Start("explorer.exe", "C:\Users\lbj\Documents\ChromeDownloads")

打开文件管理器，选中指定文件

System.Diagnostics.Process.Start("explorer.exe", "/select,"+ "C:\Users\lbj\Documents\ChromeDownloads\031002100311_43538867.pdf" )

打开远程桌面的文件管理器，指定路径

Argument：文件夹路径

FileName：”C:\Windows\explorer.exe”

Selector：```

![Uipath打开远程桌面的文件管理器，指定路径](https://img.lbjheiheihei.xyz/img/20220416_Uipath打开远程桌面的文件管理器，指定路径.png?imageView2/0/format/webp/interlace/1/q/75 "Uipath打开远程桌面的文件管理器，指定路径")

### 设置已中断会话时间限制

为防止流程在系统启动后处于锁屏状态，通过设置 ”**已中断会话时间限制**“ 来让会话注销，达到每次进去之后都创建一个新的远程链接。

在运行中输入：**gpedit.msc** 打开本地组策略编辑器

计算机设置->管理模板->Windows 组件->远程桌面服务->远程桌面会话主机->会话时间限制

双击打开“**设置已中断会话的时间限制**”，选中“**已启用**”，“结束已断开连接的会话”设置为“**1分钟**”

### 设置Windows Server登录时禁止自动启动服务器管理器

[https://blog.csdn.net/allway2/article/details/103940157](https://blog.csdn.net/allway2/article/details/103940157)

## 输入法相关

### 切换为英文输入法

安装依赖 LanguageChange，然后使用控件Language Change Activity 切换成英文

![](https://img.lbjheiheihei.xyz/img/20220810_切换为英文输入法.png?imageView2/0/format/webp/interlace/1/q/75 "切换为英文输入法")

## 鼠标相关

### 鼠标滚轮上下滑动

安装依赖包：ScrollActivity

### 鼠标移动到具体的元素位置

控件：Hover

### 鼠标循环滚动到具体的元素位置

循环 + 控件：Hover

### 鼠标移动指定的距离

Uipath 实现起来挺麻烦的，cmd 使用工具 [nircmd](http://www.nirsoft.net/utils/nircmd.html) 可以实现，但是 nircmd 会报毒（实测火绒、360）。

鼠标位置相对移动  movecursor [X] [Y]

move the mouse cursor. The **[X]** and **[Y]** parameters specifies the number of pixels to move. 

Example: movecursor 100 100

```shell
nircmdc movecursor 100 100

UiPath.Excel.Helpers.ExcelUtilities.ConvertColumnIndexToColumnLetter(number)

UiPath.Excel.Helpers.ExcelUtilities.ConvertColumnLetterToColumnIndex("A")

Sub Deletesheet(sheetName)
Sheets(sheetName).Delete
End Sub

Function DeleteSheet(in_StrFilePath, in_StrSheetName As String) As String

Application.DisplayAlerts = False '禁止弹窗
Application.ScreenUpdating = False '禁止显示

On Error GoTo Myerr '异常处理
Dim Wb_Root As Workbook

Set Wb_Root = Workbooks.Open(in_StrFilePath, 0)
'初始化结束

Wb_Root.Sheets(in_StrSheetName).Delete


Wb_Root.Save
Wb_Root.Close

Myerr:
DeleteSheet = Err.Description
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Function

Worksheets("指数转化表").Columns("c:c").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Worksheets("指数转化表").Range("H20:N1171").EntireRow.Delete

Dim i As Integer

For i = Worksheets("指数转化表").UsedRange.Rows.Count To 20 Step -1
	Worksheets("指数转化表").Rows(i).Delete
Next i

Worksheets("指数转化表").UsedRange.Offset(20).Delete

Wb_Root.ActiveSheet.Paste

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Range("i:i").EntireColumn.AutoFit
End Sub

Function OpenExcel(in_StrFilePath As String)

Application.DisplayAlerts = False '禁止弹窗
Application.ScreenUpdating = False '禁止显示

On Error GoTo ErrorHandler '异常处理
    
Dim Wb As Workbook

Set Wb = Workbooks.Open(in_StrFilePath, 0)
'初始化结束

Application.Workbooks(wb).Activate '测试异常的情况

Wb.Save
Wb.Close
    
Exit Function '正常运行完成，退出 Function

ErrorHandler:
OpenExcel = "运行错误，错误号：" & Err.Number & "，错误信息：" & Err.Description
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Function

TRUNCATE TABLE 表名;

replace INTO vcp_distinct select * from vcp_all;

^[12]\d{3}/(?:0[1-9]|1[0-2])/(?:0[1-9]|[12][0-9]|30|31)$

System.Text.RegularExpressions.Regex.Replace( str, "[^0-9]+", "")

System.Text.RegularExpressions.Regex.Replace( str, "[^A-Za-z]+", "")

System.Text.RegularExpressions.Regex.Replace( str, "[^\u4e00-\u9fa5]]+", "")

System.Text.RegularExpressions.Regex.Matches(str,"_").Count=5

([0-9]{3}[1-9]|[0-9]{2}[1-9][0-9]{1}|[0-9]{1}[1-9][0-9]{2}|[1-9][0-9]{3})-(((0[13578]|1[02])-(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)-(0[1-9]|[12][0-9]|30))|(02-(0[1-9]|[1][0-9]|2[0-8])))

[A-Za-z0-9]+$

[A-Za-z0-9]+${5,}

[A-Za-z0-9\+\-（）\(\)]+${5,}

[^\u4e00-\u9fa5]

chcp 65001

@echo off
C:\Windows\System32\Subst H: C:\O32_d
Pause

@echo off
C:\Windows\System32\Subst H: /d
Pause

taskkill /f /t /im UiPath.Executor.exe

"C:\Program Files\7-Zip\7z.exe" a 压缩包路径 压缩文件路径

"C:\Program Files\7-Zip\7z.exe" x 压缩包路径 -o解压路径

WinRAR A LETTERS.RAR LETTER.TXT

WinRAR A -ep1 LETTERS.RAR LETTER.TXT

WinRAR a Info.rar "c:\latest data"

WinRAR x Info.rar d:\data\

xcopy "D:\666" "E:\777" /s /e /y

xcopy "D:\666\*_compare_result.xlsx" "E:\777" /y

rundll32 user32.dll,SetCursorPos

@echo off
timeout /t 10 /NOBREAK

ping 127.1 -n 5 > nul

Param(
[Parameter(Mandatory=$true)] [int32]$MoveX,   # X轴要移动的距离，可以为正，可以为负
[Parameter(Mandatory=$true)] [Int32]$speed  # 移动的速度，实际为 Sleep 的毫秒数
)

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# $MoveX = -100   # X轴要移动的距离

$MoveCount = 0  # 移动的次数

while($MoveX -gt 0) # 遍历到 MoveX 为 0。-ge ：大于等于，如果 MoveX 大于等于0，则进入循环
{
    $MoveX = $MoveX-1
	$x = [Windows.Forms.Cursor]::Position.X+1   # 鼠标当前 X 轴的位置 +1
	$y = [Windows.Forms.Cursor]::Position.Y   # 鼠标当前 Y 轴的位置
	
	$MoveCount= $MoveCount +1
	if ($MoveCount -eq 10)  # 如果移动的次数等于10，则随机变动一下位置，可以去掉，感觉也不太好用。
        {
			$RandomX = Get-Random -Minimum -1 -Maximum 1  # 随机数，最小为-1，最大为1
			$RandomY = Get-Random -Minimum -1 -Maximum 1  # 随机数，最小为-1，最大为1
            $x = $x + $RandomX
			$y = $y + $RandomY
			$MoveCount = 0  # 移动的次数归零
         }
	
	[Windows.Forms.Cursor]::Position = new-object Drawing.Point $x,$y
	Start-Sleep –m $speed
}

while($MoveX -le 0) # 遍历到 MoveX 为 0 。-le ：小于等于，如果 MoveX 小于等于0，则进入循环
{
    $MoveX = $MoveX+1
	$x = [Windows.Forms.Cursor]::Position.X-1   # 鼠标当前 X 轴的位置 -1
	$y = [Windows.Forms.Cursor]::Position.Y   # 鼠标当前 Y 轴的位置
	
	$MoveCount = $MoveCount +1
	if ($MoveCount-eq 10)  # 如果移动的次数等于10，则随机变动一下位置，可以去掉，感觉也不太好用。
        {
			$RandomX = Get-Random -Minimum -1 -Maximum 1  # 随机数，最小为-1，最大为1
			$RandomY = Get-Random -Minimum -1 -Maximum 1  # 随机数，最小为-1，最大为1
            $x = $x + $RandomX
			$y = $y + $RandomY
			$MoveCount = 0  # 移动的次数归零
         }
	
	[Windows.Forms.Cursor]::Position = new-object Drawing.Point $x,$y
	Start-Sleep –m $speed
}

# 
Param(
[Parameter(Mandatory=$true)] [Int32]$x3,
[Parameter(Mandatory=$true)] [Int32]$y3,
[Parameter(Mandatory=$true)] [Int32]$speed # 移动的速度，实际为 Sleep 的毫秒数
)

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

$x0 = [Windows.Forms.Cursor]::Position.X   # 鼠标当前 X 轴的位置
$y0 = [Windows.Forms.Cursor]::Position.Y   # 鼠标当前 Y 轴的位置

$x1 = 100   # 
$y1 = 100   # 

$x2 = 800   # 
$y2 = 800   # 

# $x3 = 500   # 目标 X 轴的位置
# $y3 = 500   # 目标 Y 轴的位置

$u = 0   # 
while($u -le 1) 
{
	$u = $u+0.005
	$x = [math]::pow( (1-$u) , 3) * $x0 + 3 * [math]::pow( (1-$u) , 2) * $u * $x1 + 3 * [math]::pow( ($u) , 2) * (1-$u) *$x2 + [math]::pow( ($u) , 3) * $x3
	$y = [math]::pow( (1-$u) , 3) * $y0 + 3 * [math]::pow( (1-$u) , 2) * $u * $y1 + 3 * [math]::pow( ($u) , 2) * (1-$u) *$y2 + [math]::pow( ($u) , 3) * $y3

	[Windows.Forms.Cursor]::Position = new-object Drawing.Point $x,$y
	Start-Sleep –m $speed
}

Add-Type @"
  using System;
  using System.Runtime.InteropServices;
  public class Mouse{
    [DllImport("user32.dll")]
    public static extern bool SetCursorPos(int x, int y);
  }
"@

# 模拟鼠标移动到指定位置
[Mouse]::SetCursorPos(100, 100);

# 加载 System.Windows.Forms 命名空间
Add-Type -AssemblyName System.Windows.Forms

# 将鼠标移动到 (100, 100) 的位置
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(100, 100)

"--test-type --ignore-certificate-errors --no-sandbox --new-window --disable-gpu --disable-gpu-rasterization --disable-gpu-vsync --disable-accelerated-2d-canvas --disable-software-rasterizer "+ in_strSystemUrl

%UserProfile%\AppData\Local\Google\Chrome\User Data\Default

%LocalAppData%\Google\Chrome\User Data\Default

'打开IE.vbs

CreateObject("InternetExplorer.Application").Visible=true

'IE打开指定网址.vbs

StartURL = "https://www.baidu.com/" 
set IE = CreateObject("InternetExplorer.Application") 
IE.Visible = true 
IE.Navigate StartURL

edge://settings/defaultBrowser

edge://compat/sitelistmanager

RemoteException wrapping System.AggregateException: One or more errors occurred. (拒绝访问。)  ---> RemoteException wrapping System.ComponentModel.Win32Exception: 拒绝访问。 
   at System.Diagnostics.ProcessManager.OpenProcess(Int32 processId, Int32 access, Boolean throwIfExited)
   at System.Diagnostics.Process.GetProcessHandle(Int32 access, Boolean throwIfExited)
   at System.Diagnostics.Process.GetOrOpenProcessHandle()
   at System.Diagnostics.Process.EnsureWatchingForExit()
   at System.Diagnostics.Process.set_EnableRaisingEvents(Boolean value)
   at UiPath.Service.UserHost.AttendedServiceProxy.RegisterClientProcess(Int32 clientPid)
   at UiPath.Service.UserHost.StudioOperations.Prepare(ClientProcessMessage message, CancellationToken ct)
   at UiPath.Service.Core.Utils.TaskUtils.WithShortWait(Task task, TimeSpan wait)
   at UiPath.Service.UserHost.StudioOperations.<>c__DisplayClass7_0.<<RunJob>b__0>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.CancellationHelper`1.Invoke[TResult](TId requestId, Func`2 func)
   at UiPath.CoreIpc.Server.<>c__DisplayClass7_3.<<-ctor>g__InvokeMethod|6>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.Server.<>c__DisplayClass7_1.<<-ctor>g__HandleRequest|3>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.Server.<>c__DisplayClass7_2.<<-ctor>b__5>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.Helpers.Timeout[TResult](TimeSpan timeout, List`1 cancellationTokens, Func`2 func, String message, Func`2 exceptionHandler)
	--- End of inner exception stack trace ---
   at System.Diagnostics.ProcessManager.OpenProcess(Int32 processId, Int32 access, Boolean throwIfExited)
   at System.Diagnostics.Process.GetProcessHandle(Int32 access, Boolean throwIfExited)
   at System.Diagnostics.Process.GetOrOpenProcessHandle()
   at System.Diagnostics.Process.EnsureWatchingForExit()
   at System.Diagnostics.Process.set_EnableRaisingEvents(Boolean value)
   at UiPath.Service.UserHost.AttendedServiceProxy.RegisterClientProcess(Int32 clientPid)
   at UiPath.Service.UserHost.StudioOperations.Prepare(ClientProcessMessage message, CancellationToken ct)
   at UiPath.Service.Core.Utils.TaskUtils.WithShortWait(Task task, TimeSpan wait)
   at UiPath.Service.UserHost.StudioOperations.<>c__DisplayClass7_0.<<RunJob>b__0>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.CancellationHelper`1.Invoke[TResult](TId requestId, Func`2 func)
   at UiPath.CoreIpc.Server.<>c__DisplayClass7_3.<<-ctor>g__InvokeMethod|6>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.Server.<>c__DisplayClass7_1.<<-ctor>g__HandleRequest|3>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.Server.<>c__DisplayClass7_2.<<-ctor>b__5>d.MoveNext()
--- End of stack trace from previous location ---
   at UiPath.CoreIpc.Helpers.Timeout[TResult](TimeSpan timeout, List`1 cancellationTokens, Func`2 func, String message, Func`2 exceptionHandler)

ERROR [42000] [MySQL][ODBC 3.51 Driver][mysqld-8.0.28]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'DEFAULT VALUES' at line 1

<ctrl role='grouping' text='展开' />

<webctrl aaname='展开' tag='SPAN' />

"7".IsNumeric
Microsoft.VisualBasic.IsNumeric("7")
Microsoft.VisualBasic.Information.IsNumeric("7")

%UserProfile%\.nuget\packages

%UserProfile%\AppData\Local\Programs\UiPath\Studio\Packages

%LocalAppData%\Programs\UiPath\Studio\Packages

C:\Program Files (x86)\UiPath\Studio\Packages

%UserProfile%\AppData\Local\Programs\UiPath\Studio\UiPath.Studio.exe

%LocalAppData%\Programs\UiPath\Studio\UiPath.Studio.exe

C:\Program Files (x86)\UiPath\Studio\UiPath.Studio.exe

%UserProfile%\AppData\Local\Programs\UiPath\Studio\UiRobot.exe

%LocalAppData%\Programs\UiPath\Studio\UiRobot.exe

C:\Program Files (x86)\UiPath\Studio\UiRobot.exe

%UserProfile%\AppData\Local\UiPath\Logs

%LocalAppData%\UiPath\Logs