批处理怎样把文本的每一个字符转成单独行？

398832385

求大神帮忙，

把文本的每一个字符转成单独行

例，字符.txt

啊呵埃挨哎唉哀皑癌蔼矮艾碍爱隘
鞍氨安俺按暗岸胺案肮昂盎凹敖熬
翱袄傲奥懊澳芭捌扒叭吧笆八疤巴
拔靶把耙坝霸罢爸白柏百摆佰败拜
稗斑班搬扳般颁板版扮拌伴瓣半办
绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞
包褒剥薄雹保堡饱宝抱报暴豹鲍爆
杯碑悲卑北辈背贝钡倍狈备惫焙被

转换成

啊
呵
埃
挨
哎
唉
哀
皑
癌
蔼
矮
艾
碍
爱
隘
鞍
……

每个文字都单独占一行

77七

1. @echo off
   
2. rem 根据实际情况调整100数值
   
3. for /f "delims=" %%i in ('type "字符.txt"') do (
   
4.         set "str=%%i"
   
5.         setlocal enabledelayedexpansion
   
6.         for /l %%l in (0,1,100) do (
   
7.                 if not "!str:~%%l,1!" equ "" (
   
8.                         >>字符2.txt echo,!str:~%%l,1!
   
9.                 )
   
10.         )
    
11.         endlocal
    
12. )
    
13. pause

复制代码

这样行吗

398832385

回复 2# 77七


生成的是

瀛楃?2.txt

文件内的内容：
%
i

77七

回复 3# 398832385


   把批处理和文本都保存为ansi编码格式试试

hfxiang

回复 1# 398832385

将

1. 
   
2. 啊呵埃挨哎唉哀皑癌蔼矮艾碍爱隘
   
3. 鞍氨安俺按暗岸胺案肮昂盎凹敖熬
   
4. 翱袄傲奥懊澳芭捌扒叭吧笆八疤巴
   
5. 拔靶把耙坝霸罢爸白柏百摆佰败拜
   
6. 稗斑班搬扳般颁板版扮拌伴瓣半办
   
7. 绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞
   
8. 包褒剥薄雹保堡饱宝抱报暴豹鲍爆
   
9. 杯碑悲卑北辈背贝钡倍狈备惫焙被
   

复制代码

以ANSI编码板式保存为1.txt
下载gawk（ http://bcn.bathome.net/tool/4.1.3/gawk.exe ），执行：

1. 
   
2. gawk -vFS="" "{for(i=0;i++<NF;)print$i}" 1.txt>2.txt
   

复制代码

2.txt就是你想要的结果

398832385

回复 4# 77七


少了一些字~总共6,688个字，转出来有6270个字

398832385

回复 5# hfxiang


少了很多字~总共6,688个字，但是转出来只有5852个字
比如第一眼就看到少了最后一个字

77七

回复 6# 398832385


   请提供一个执行后少字的样本，要不然我也不知道错在哪里

hfxiang

回复 7# 398832385


抱歉，把“i++”写成“++i”了，造成每行最后1个字给忽略了，已修正

1. 
   
2. gawk -vFS="" "{for(i=0;i++<NF;)print$i}" 1.txt>2.txt
   

复制代码

qixiaobin0715

http://bbs.bathome.net/viewthrea ... B%D7%D6%D2%BB%D0%D0

398832385

回复 9# hfxiang


    为啥转出来是6270个字，但是我的原版里面是6688个字

Batcher

回复 11# 398832385


    请把原始文件上传到网盘，我试试。

398832385

回复 12# Batcher


    链接：https://pan.baidu.com/s/1uLg_nxSNn3EzJlRgWosCGw?pwd=g43n
提取码：g43n

hfxiang

回复 13# 398832385


    15（字/行）X（418行）=6270（字），哪来 6688 字？

帝尊

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. set "filename=字符.txt"
   
5. set "outputfile=output.txt"
   
6. 
   
7. if exist "%outputfile%" del "%outputfile%"
   
8. 
   
9. for /f "usebackq delims=" %%a in ("%filename%") do (
   
10.   set "line=%%a"
    
11.   for /l %%i in (0,1,!strlen!) do (
    
12.     set "char=!line:~%%i,1!"
    
13.     echo !char!>>"%outputfile%"
    
14.   )
    
15. )
    
16. 
    
17. echo "转换完成"
    
18. 
    
19. exit /b
    
20. 
    
21. :: 函数：获取字符串长度
    
22. :setlen
    
23. setlocal
    
24. set "s=!%~1!"
    
25. set "len=0"
    
26. for /l %%i in (0,1,32767) do if not "!s:~%%i,1!"=="" set /a "len=%%i+1"
    
27. endlocal & set "%~2=%len%"
    
28. exit /b
    

复制代码

首先，定义了输入文件名为字符.txt和输出文件名为output.txt。接着，使用for循环逐行读取输入文件，对于每一行，获取其长度并逐个字符处理。内部使用了一个自定义函数setlen来获取字符串长度。在内部的循环中，使用字符串切片来逐个获取字符，并将每个字符写入输出文件output.txt的一行。最后输出"转换完成"，并退出脚本。

注意：如果输入文件包含 UTF-8 编码的中文字符，需要将脚本文件保存为 UTF-8 编码，并在脚本文件开头添加chcp 65001以设置命令行窗口的字符编码。