[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 请老师抽空帮写一个批处理文本合并去重复(已解答,谢谢各位老师的帮助!)

本帖最后由 PCL0769 于 2021-10-12 17:03 编辑

01文件夹内有以下文本
1.txt
2.txt
3.txt
4.txt
......
N.txt
02文件夹内有以下文本
1.txt
2.txt
3.txt
4.txt
......
N.txt
03文件夹内有以下文本
1.txt
2.txt
3.txt
4.txt
......
N.txt
04文件夹内有以下文本
1.txt
2.txt
3.txt
4.txt
......
N.txt

05文件夹内有以下文本
........
有N个文件夹
请帮忙写一个将以上N个文件夹中的N个同名的文本合并然后生成一个新的文件夹,文件夹中同样生成合并后同名的文本
合并文件夹内有以下文本
1.txt
2.txt
3.txt
4.txt
......
N.txt

以下是原文档中的小部分格式内容,需要在合并后新生成的文本中去除不完整的行,去重复去特定行的语句,谢谢!
SZ300951        20210226        4727036
SZ300999        20210226        -201125534
SZ301000       20210原文本中少部分会有这种不完整的行,在合并后新生成的文本中将不完整的行去除)
SZ300          (原文本中少部分会有这种不完整的行,在合并后新生成的文本中将不完整的行去除)
SZ138811-QQ84299        20210226        0 (原文本中少部分会有此行,20210226 原文本中是按日期的一个变量,现需在新合并后生成的文本中将此行去除)

合并时能不能将记事本中的字符替换,替换条件如下:
SH替换成1|
SZ替换成0|   
SZ300951        20210226之间的空格替换成|   
20210226        4727036之间的空格替换成|

合并后的最终文本内容格式:
0|000001|20210104|45971388
1|600004|20210104|22269128


另:
以下是完整的两行。
SZ300951        20210226        4727036
SZ300999        20210226        -201125534

以下是不完整的两行,如果不好写就忽略此条件也行
SZ301000       20210
或者
SZ300   

以下是多余无用的行,此行内容不需要     (20210226 是按日期变化的变量)
SZ138811-QQ84299        20210226       0

不完整的行是原记事本偶尔某几个记事本中才会出现,不是所有的都会出现。
生成新的合并记事本时将这些不完整的去除,不完整的行不生成到这个新的合并记事本中。

请老师抽空帮写一个批处理,谢谢!

回复 52# xczxczxcz

老师好!
请帮忙看看这个能用批处理完成吗?谢谢!
http://www.bathome.net/thread-60353-1-1.html

TOP

回复 47# idwma

老师好!
请帮忙看看这个能用批处理完成吗?谢谢!
http://www.bathome.net/thread-60353-1-1.html

TOP

RE: 请老师抽空帮写一个批处理,文本合并后生成在新文件夹中去重复(已解答,谢谢!)

回复 50# WHY

老师好!
请帮忙看看这个能用批处理完成吗?谢谢!
http://www.bathome.net/thread-60353-1-1.html

TOP

回复 45# went
老师好!
请帮忙看看这个能用批处理完成吗?谢谢!
http://www.bathome.net/thread-60353-1-1.html

TOP

回复 36# newswan

老师好!
请帮忙看看这个能用批处理完成吗?谢谢!
http://www.bathome.net/thread-60353-1-1.html

TOP

谢谢各位老师出手帮助!

TOP

本帖最后由 WHY 于 2021-10-10 21:59 编辑

回复 59# xczxczxcz


    过奖,
感谢测试。
在我的电脑上,vbs 用时 3.5 分钟,PowerShell 脚本用时 2.1 分钟

TOP

回复 50# WHY


可以加个计时功能,运行完成,显示用时

TOP

本帖最后由 newswan 于 2021-10-9 15:34 编辑

回复 59# xczxczxcz


😓,搞错,是给 why 回复的。

没有禁用表情,怎么表情发不出

TOP

回复 50# WHY


    看你的VBS灰常工整,灰常适合教师类工作,偶测了下时间为 1分45秒。感觉把那个字典拿掉可能会提升一些速度。字典对效率影响还是很大的。个人愚见!
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

还可以调用 winform  windows的对话框,更简单
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

回复 56# newswan


    要显示对话框的话用 VisualBasic 的对话框不更好!
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

本帖最后由 newswan 于 2021-10-9 13:33 编辑

回复 55# xczxczxcz


我的意思是加到vbs代码里,运行完毕显示用时
MsgBox "Done 用时 xx.xx "

TOP

回复 54# newswan


    要vbs计时器作什么, StopWatch类不香吗?
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

返回列表