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

[文本处理] chatgtp写的批处理统计第一列重复3次或以上,错误在哪呢?

data.txt中有许多行数据,每一行数据被空格分成前后两个部分,请你写一个批处理,逐一比较每一行数据的空格前的部分,如果某一行数据的空格前的部分,与其他行的空格前的部分重复次数≥3,则把此行空格后的部分保存到newdata.txt

上图是data.txt中的部分内容
下图是newdata.txt中的部分内容

上图是data.txt中的部分内容,下图是运行批处理后newdata.txt中应该呈现的数据
即空格前数据重复了三次的数据的空格后的部分
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. rem 读取文件中的每一行数据
  4. for /f "tokens=1,* delims= " %%a in (data.txt) do (
  5.     set "count=0"
  6.     rem 统计空格前的部分出现的次数
  7.     for /f "tokens=1,* delims= " %%c in (data.txt) do (
  8.      if "%%c"=="%%a" set /a count+=1
  9.     )
  10.     rem 判断是否出现次数≥3
  11.     if !count! geq 3 (
  12.      echo %%b>>newdata.txt
  13.     )
  14. )
  15. echo 执行完毕,结果保存在 newdata.txt 文件中。
  16. pause
复制代码
复制解释:

1. `setlocal enabledelayedexpansion`:启用延迟环境变量扩展,以便在循环中使用 `!` 操作符。

2. `for /f "tokens=1,* delims= " %%a in (data.txt) do`:逐行读取 `data.txt` 文件中的数据,使用空格作为分隔符,将每行数据分成两个部分,分别存储在 `%%a` 和 `%%b` 变量中。

3. `set "count=0"`:初始化计数器变量 `count`,用于统计空格前的部分出现的次数。

4. `for /f "tokens=1,* delims= " %%c in (data.txt) do`:再次循环读取 `data.txt` 文件中的数据,用于统计空格前的部分出现的次数。

5. `if "%%c"=="%%a" set /a count+=1`:如果当前行的空格前的部分与原始行的空格前的部分相同,则计数器加 1。

6. `if !count! geq 3 (`:判断计数器是否大于等于 3。

7. `echo %%b>>newdata.txt`:如果出现次数大于等于 3,将当前行的空格后的部分追加到 `newdata.txt` 文件中。

8. `pause`:程序暂停运行,等待用户按下任意键继续。

9. `setlocal`:结束延迟环境变量扩展。

本帖最后由 qixiaobin0715 于 2023-3-20 08:22 编辑

回复 18# 520pcl
你没明白空白行是我故意留下的吗?不同组别之间以空行隔开,不想要空行的话,可以将代码第11行中“echo,”删除即可。
如果chatgtp真的像你说的那样神奇,大家何必在这里啰嗦呢。

TOP

回复 23# 520pcl


我了解到的情况:
1、本论坛有不少年轻人、学生。
2、如果一个人毕业之后别的什么都不会,Python掌握的非常好,可以找到一个挺好的对口的工作;如果一个人毕业之后别的什么都不会,BAT掌握的非常好,几乎找不到工作;如果一个人毕业之后可以通过其他技能找到工作,同时又懂BAT或Python,有助于提升薪资。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 22# Batcher


    好像批处理都是些年龄较大的人在用,年轻人好像不怎么会用批处理,要么不知道,要么看不上,可能去学python去了,其实批处理更简洁方便啊,是不是这样

TOP

回复 17# 520pcl


第二个慢的原因是在for循环内部频繁调用外部命令findstr,每处理一行文本就会调用一次。
如果文本内容有很多行,这种慢会更加明显。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 20# 77七


    谢谢,这段代码目前是最快的,为知笔记的特点是不管拷贝进去是什么格式,复制出来就是utf-8格式,之前不成功的时候我看了,data.txt就是ansi格式,后来去为知笔记复制回来其实是utf8,刚才试过了,data.txt是utf-8或ansi格式其实都可以运行。
其实这个代码很有用,data.txt是复制的excle中的某两个列,excle我不太熟,但好像用excle要实现这样的功能也是相当麻烦,干脆就保存为txt用批处理解决

TOP

本帖最后由 77七 于 2023-3-18 12:01 编辑

我还以为是开头的代码出现了提示
也可以试试直接计数,可能快一点
  1. @echo off
  2. for /f "tokens=1-2" %%a in ('type "data.txt"') do (
  3.         set /a #%%a+=1
  4. )
  5. setlocal enabledelayedexpansion
  6. for /f "tokens=1-2" %%a in ('type "data.txt"') do (
  7.         if !#%%a! geq 3 (
  8.                 echo %%b
  9.         )
  10. )>>newdata.txt
  11. endlocal
  12. pause
复制代码
如果有空白行,或者产生提示,还是建议查看一下编码格式和换行符,你复制到云笔记再粘贴回去不一定完美解决问题...
bat小白,请多指教!谢谢!

TOP

回复 15# qixiaobin0715


    是的,批处理代码的威力还是很大的,保守起见我是在另一台电脑上测试的,但chatgtp写批处理能力还是比较强的

TOP

回复 15# qixiaobin0715


你这个也是可以完成任务的,但是空白行多了些,每三五行数据就有一个空白行,当然,替换一下就没问题了

TOP

回复 14# Batcher
好的,三个批处理其实都是可以运行的,第一个最快,第三个也比较快,第二个也比较慢,我就用第一个批处理

TOP

回复 13# Batcher


谢谢,改动后“ECHO 处于关闭状态”的提示没有了

TOP

最起码现在来说,我还是不太相信chatgtp,还是自己写代码比较放心。如果不在乎文本原来的顺序的话:
  1. @echo off
  2. for /f "tokens=1*" %%i in ('type data.txt^|sort') do (
  3.     if "!str!"=="%%i" (
  4.         set /a n+=1
  5.         set _!n!=%%j
  6.     ) else (
  7.         if !n! geq 3 (
  8.             (for /f "tokens=1* delims==" %%a in ('set _') do (
  9.                 echo,%%b
  10.             )
  11.             echo,)>>newdata.txt
  12.             endlocal
  13.         )
  14.         setlocal enabledelayedexpansion
  15.         set n=1
  16.         set _1=%%j
  17.     )
  18.     set str=%%i
  19. )
  20. pause
复制代码

TOP

回复 2# 520pcl


echo !value! >> newdata.txt
这种写法会导致:
1、行尾有多余的空格
2、变量值遇到 on 或 off 等关键字的时候会出错

改成这样比较好:
>> newdata.txt echo,!value!
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 9# 520pcl


echo %%b>>newdata.txt
改成这样试试:
echo,%%b>>newdata.txt
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

好的,免费chatgtp网址 https://www.cx32.com/ 但这个是3.0版 不是最新的4.0版本

TOP

返回列表