[文本处理] 批处理如何将文本内的逗号替换成换行符？

Rasm

我的一个文本内容如下：

leoskylove, 朗里格郎, 快乐肥狼
gggmby, 阿南哥哥
yinxun506, 刘一辰007, 中山老郁, 过路385, 到处旅游, 陈龙64, 愚明, moluyi陌, 朗里格郎
池塘涟漪, 阿南哥哥, dww3418, 陈龙64, ysh116, 喜洋洋2008, 寿星老, bbg008, 老闵, sy0429, wzjmq
董玮, 晨晨乐乐
icepop
yellowstick
POP通城虎
tnt8000, 阿诺舒华辛力叻, freemores


我就是想将[,]换成换行符，处理后的文本变成：

leoskylove
朗里格郎
快乐肥狼
gggmby
阿南哥哥
yinxun506
刘一辰007
中山老郁
过路385
到处旅游
陈龙64
愚明
moluyi陌
朗里格郎
池塘涟漪
阿南哥哥

Demon

@echo off
setlocal enabledelayedexpansion
set lf=^


(for /f "delims=" %%i in (1.txt) do (
    set "$=%%i"
    for %%a in ("!lf!") do echo !$:, =%%~a!
))>2.txt
pause
复制代码

wc726842270

即然如此，我就给出VBS的吧，不平不高，还请赏谅
PS：没有做任何的错误处理和检查

Dim fso
Set fso=CreateObject("scripting.filesystemobject")
Set f_obj=fso.OpenTextFile("目标.txt",1)
str=f_obj.ReadAll
f_obj.close
sarry=Split(str,", ")
Set nf_obj=fso.openTextFile("new.txt",2,true)
nf_obj.Write Join(sarry,vbcrlf)
nf_obj.Close
Set fso=nothing
复制代码

另外有个小精喜，没想到五笔的"code"就是"代码"

Rasm

回复 2# Demon


   为什么处理后用记事本打开看不到效果，而用写字板却可以

CrLf

回复 4# Rasm


    因为记事本认的是 回车符+换行符，小改如下：

@echo off
setlocal enabledelayedexpansion
for /f %%h in ('copy /z %0 nul') do set crlf=%%h^


(for %%h in ("!crlf!") do (
   for /f "delims=" %%b in (1.txt) do (
      endlocal
      set "str=%%b"
      setlocal enabledelayedexpansion
      echo !str:,=%%~h!
   )
))>2.txt
pause
复制代码

wc726842270

回复 5# CrLf


    真想到ZM /Z的用法都了解了，不过ENDLOCAL放在前面还是有些不谐调（我还以为忘了写了呢）COPY /Z %0 NUL 很有技术性

forfiles

sed "s/,/\n/g" a.txt >b.txt
复制代码

forfiles

gawk "gsub(/,/,\"\n\")" a.txt >b.txt
复制代码

CrLf

回复 6# wc726842270


    这个不是我发现的，得膜拜“怕老婆”兄：http://bbs.bathome.net/thread-12347-1-1.html

wangxiaodong

老大，for /f %%h in ('copy /z %0 nul') do set crlf=%%h^是啥意思?还有就是，enlocal有何用?5# CrLf

DAIC

回复 10# wangxiaodong


endlocal的作用：
http://bbs.bathome.net/thread-1224-1-1.html

wangxiaodong

endlocal懂了，但'copy /z %0 和set crlf=%%h^不懂。好像copy没有/z参数啊nul'11# DAIC

DAIC

回复 12# wangxiaodong


  /Z           用可重新启动模式复制已联网的文件。

wangxiaodong

谢谢，就是不知道为啥要用for /f %%h in ('copy /z %0 nul') do set crlf=%%h^构造换行符5楼和2楼有什么不一样?13# DAIC

CrLf

回复 14# wangxiaodong


    2楼得到的是换行符，但win下某些软件（如记事本）分段时只认回车+换行，缺一不可。所以从 copy /z 的输出中获取一个回车符，拼起来就完整了