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

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

本帖最后由 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万多行左右

(已解决感谢大家)
麻烦管理员将此贴标记一下谢谢

TOP

回复 9# went


    大侠, 如果病例.txt文件的编码有多种情况, 后面生成的文件会有乱码, 怎样彻底解决? 我新开了一贴讨论
http://www.bathome.net/thread-61288-1-1.html

TOP

回复 12# Batcher


    是的,还是有问题,我在原稿里把附件传上来了

TOP

回复 11# seekbook


    如果需要上传文件,可以用阿里云盘或百度网盘。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 11# seekbook


    4楼代码是否有问题?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 6# seekbook


请参考Q-04和Q-05把bat文件和txt文件都保存为ANSI编码:
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 8# seekbook


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

评分人数

    • 5i365: 短小精干技术 + 1

TOP

回复 7# went

感谢大哥,可以了,好像还忘了一个条件,就是病例里面有重复的行,有时有多好几条是一样的,只保留一条的话,这个可以麻烦帮我再加一下吗谢谢

TOP

回复 5# seekbook

    改成这样,还要把第10行的move语句删掉
  1. >"%fn%_NEW.txt"
复制代码

TOP

回复 3# Batcher


  谢谢管理,刚才测试了这个会乱码

TOP

回复 2# went

谢谢,逗号可以了,生成新文件好像不行

TOP

回复 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"
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 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!
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

空格变逗号
  1. set "p=!p!,%%i"
复制代码
生成新文件
  1. >"%fn%_NEW.tem"
复制代码
没有测试,应该正确

TOP

返回列表