找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 49614|回复: 15

[文本处理] 还是上次帮医务工作者求的代码,遇到点问题,求助朋友们再帮帮忙

[复制链接]
发表于 2022-1-11 21:52:45 | 显示全部楼层 |阅读模式
本帖最后由 seekbook 于 2022-1-12 09:05 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. set "str="
  5. for /f "delims=" %%i in ('type "a.txt"') do (
  6.     set "line=%%i"
  7.     set str=!str!,!line!
  8. )
  9. >"a_New.txt" echo !str:~1!
复制代码
代码可以实现将文本每一行的内容加逗号变成一行,但是发现了一个问题,以上代码只能合并1000多条,后面就不能再合并了,这两天数据文本中的数量达到上万条时,就处理不了,麻烦大哥们帮忙改进一下,非常感谢,附件传不上来,附件a.txt的样例内容如下

链接:https://pan.baidu.com/s/1gtejPAwB02orYYo0uQRMSA?pwd=63sj
提取码:63sj
--来自百度网盘超级会员V5的分享

大概以后可能会处理有1万多行左右
 楼主| 发表于 2022-1-9 13:10:18 | 显示全部楼层

帮医务工作者求助合并每行文本的批处理代码,感谢(已解决感谢大家)

本帖最后由 seekbook 于 2022-1-14 13:26 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. set "str="
  5. for /f "delims=" %%i in ('type "a.txt"') do (
  6.     set "line=%%i"
  7.     set str=!str!,!line!
  8. )
  9. >"a_New.txt" echo !str:~1!
复制代码
以上代码只能合并1000多条,后面就不能再合并了,这两天数据文本中的数量达到上万条时,就处理不了,麻烦大哥们帮忙改进一下,非常感谢,附件传不上来,附件a.txt的样例内容如下

链接:https://pan.baidu.com/s/1gtejPAwB02orYYo0uQRMSA?pwd=63sj
提取码:63sj
--来自百度网盘超级会员V5的分享

大概以后可能会处理有1万多行左右
发表于 2022-1-9 13:20:20 | 显示全部楼层
空格变逗号
  1. set "p=!p!,%%i"
复制代码
生成新文件
  1. >"%fn%_NEW.tem"
复制代码
没有测试,应该正确
发表于 2022-1-9 13:24:02 | 显示全部楼层
回复 1# seekbook


test1.bat
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. set "str="
  5. for /f "delims=" %%i in ('type "病例.txt"') do (
  6.     set "line=%%i"
  7.     set str=!str!,!line!
  8. )
  9. >"病例_New.txt" echo !str:~1!
复制代码
发表于 2022-1-9 13:26:53 | 显示全部楼层
回复 1# seekbook


test2.bat
  1. @echo off
  2. cd /d "%~dp0"
  3. (for /f "delims=" %%i in ('type "病例.txt"') do (
  4.     set /p =%%i,<nul
  5. ))>"病例_New.txt"
复制代码
 楼主| 发表于 2022-1-9 13:57:27 | 显示全部楼层
回复 2# went

谢谢,逗号可以了,生成新文件好像不行
 楼主| 发表于 2022-1-9 13:59:05 | 显示全部楼层
回复 3# Batcher


  谢谢管理,刚才测试了这个会乱码
发表于 2022-1-9 14:06:44 | 显示全部楼层
回复 5# seekbook

    改成这样,还要把第10行的move语句删掉
  1. >"%fn%_NEW.txt"
复制代码
 楼主| 发表于 2022-1-9 14:31:36 | 显示全部楼层
回复 7# went

感谢大哥,可以了,好像还忘了一个条件,就是病例里面有重复的行,有时有多好几条是一样的,只保留一条的话,这个可以麻烦帮我再加一下吗谢谢
发表于 2022-1-9 15:07:32 | 显示全部楼层
回复 8# seekbook


    保存为bat文件,选择ansi编码
  1. powershell "(Get-Content '病例.txt' | Select-Object -Unique) -join ','" > "病例_NEW.txt"
复制代码

评分

参与人数 1技术 +1 收起 理由
5i365 + 1 短小精干

查看全部评分

发表于 2022-1-9 16:47:10 | 显示全部楼层
回复 6# seekbook


请参考Q-04和Q-05把bat文件和txt文件都保存为ANSI编码:
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ
发表于 2022-1-11 23:39:43 | 显示全部楼层
回复 11# seekbook


    4楼代码是否有问题?
发表于 2022-1-11 23:40:18 | 显示全部楼层
回复 11# seekbook


    如果需要上传文件,可以用阿里云盘或百度网盘。
 楼主| 发表于 2022-1-12 09:06:19 | 显示全部楼层
回复 12# Batcher


    是的,还是有问题,我在原稿里把附件传上来了
发表于 2022-1-12 09:21:06 | 显示全部楼层
回复 9# went


    大侠, 如果病例.txt文件的编码有多种情况, 后面生成的文件会有乱码, 怎样彻底解决? 我新开了一贴讨论
http://www.bathome.net/thread-61288-1-1.html
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 13:57 , Processed in 0.021760 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表