拆出日期

 

举例

Excel文件book1.xlsx中记录有事件备忘录,原始信息如下图所示:

..

现在需要将信息里面的日期都分离出来,并且用分号隔开后放到后面一列,方便以后统计。就像如下这种效果:

..

编写SPL脚本:


A

1

=clipboard().split@n(" ")

2

=A1.(~.(date(~,"dd.MM.yy")))

3

=A2.(~.select(ifdate(~)))

4

=clipboard(A3.concat@n(";"))

A1   读入剪贴板数据,然后用\n拆分为行,行内用空格拆分为字符串,形成序列的序列

A2   将序列中的文本串能够按指定格式转换为日期类型的数据转为日期型

A3   选出日期型数据,从而分离出日期和其他串

A4   A3的各行内成员用分号连接成串,各行再用\n连接成串后,放入剪贴板中

运行时先打开book1.xlsx,选择A1:A4区域,按Ctrl+C复制,进入集算器中运行SPL脚本,运行结束后回到Excel,点击B1,按Ctrl+V将剪贴板中的结果粘贴过来。