提取变化次数是奇数的记录，生成到同路径txt，谢谢ykcbf1100和准提部林老师！

lhj323323 · 发表于 2024-2-28 11:27

lhj323323 发表于 2024-2-28 08:15
老师：
请看下图

liulang0808

此贴原有内容，已解决。

从8楼开始，只是后续想把【测试.xls】原有的内容给保留
这一点，并不是在【当初开此贴时，没有想到】
而是想【补充这一情况】

之所以没有重开贴，就是考虑到
从8楼起，这两种情况（即，重写和补充）如果能在同一组代码里实现
就算比较完美的了。

准提部林 · 发表于 2024-2-28 11:40

lhj323323 发表于 2024-2-28 08:15
老师：
请看下图

那一段是將字典vD中未被替換的, 全部抓進來補齊~~

准提部林 · 发表于 2024-2-28 12:18

將三項內容列出比對//

Test001.rar (22.11 KB, 下载次数: 7)

lhj323323 · 发表于 2024-2-28 18:48

准提部林发表于 2024-2-28 12:18
將三項內容列出比對//

43楼这段，太珍贵了！
我正愁不知如何导入到excel里来查看。

lhj323323 · 发表于 2024-3-1 19:11

本帖最后由 lhj323323 于 2024-3-1 19:15 编辑

准提部林发表于 2024-2-28 12:18
將三項內容列出比對//

准提部林老师：

我只改动了一句，运行后，【新数据】为何没法加入其中呢？
百思不得其解

是不是以下这一句的原因？
If Left(T, 1) = "[" Then

快照4.png

lhj323323 · 发表于 2024-3-1 19:26

本帖最后由 lhj323323 于 2024-3-1 20:16 编辑

准提部林发表于 2024-2-28 12:18
將三項內容列出比對//

当临时添加[END]在文件末尾，就OK了

lhj323323 · 发表于 2024-3-1 20:15

准提部林发表于 2024-2-28 12:18
將三項內容列出比對//

用了个笨办法
先用一段语句，给原有txt的最末行，添加一个[END]
再来运行43楼的语句

复制代码

准提部林 · 发表于 2024-3-2 15:45

lhj323323 发表于 2024-3-1 20:15
用了个笨办法
先用一段语句，给原有txt的最末行，添加一个[END]
再来运行43楼的语句

結尾加入新內容//

Test001.rar (22.53 KB, 下载次数: 3)

lhj323323 · 发表于 2024-3-2 16:29

准提部林发表于 2024-3-2 15:45
結尾加入新內容//

谢谢老师

在这之前，改良了47楼的写法
https://club.excelhome.net/forum ... ;page=1#pid11444694

		自动登录	找回密码
密码			免费注册

[已解决] 提取变化次数是奇数的记录，生成到同路径txt，谢谢ykcbf1100和准提部林老师！