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

Rank: 1

帖子: 29
积分: 29
技术: 0
捐助: 0
注册时间: 2011-5-6

3楼

发表于 2023-2-26 17:05 | 只看该作者

回复 2# 77七

生成的是

瀛楃2.txt

文件内的内容：
%
i

77七

中校

Rank: 6 Rank: 6

帖子: 1700
积分: 2788
技术: 342
捐助: 50
注册时间: 2022-9-18

4楼

发表于 2023-2-26 17:08 | 只看该作者

回复 3# 398832385

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

bat小白，请多指教！谢谢！

hfxiang

上尉

Rank: 5 Rank: 5

帖子: 601
积分: 1128
技术: 166
捐助: 0
注册时间: 2022-6-20

5楼

发表于 2023-2-26 17:56 | 只看该作者

本帖最后由 hfxiang 于 2023-2-26 19:51 编辑

回复 1# 398832385

将

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

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

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

2.txt就是你想要的结果

Rank: 1

帖子: 29
积分: 29
技术: 0
捐助: 0
注册时间: 2011-5-6

6楼

发表于 2023-2-26 18:53 | 只看该作者

本帖最后由 398832385 于 2023-2-26 19:03 编辑

回复 4# 77七

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

Rank: 1

帖子: 29
积分: 29
技术: 0
捐助: 0
注册时间: 2011-5-6

7楼

发表于 2023-2-26 19:00 | 只看该作者

回复 5# hfxiang

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

77七

中校

Rank: 6 Rank: 6

帖子: 1700
积分: 2788
技术: 342
捐助: 50
注册时间: 2022-9-18

8楼

发表于 2023-2-26 19:23 | 只看该作者

回复 6# 398832385

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

bat小白，请多指教！谢谢！

hfxiang

上尉

Rank: 5 Rank: 5

帖子: 601
积分: 1128
技术: 166
捐助: 0
注册时间: 2022-6-20

9楼

发表于 2023-2-26 19:54 | 只看该作者

回复 7# 398832385

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

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

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

qixiaobin0715

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 2852
积分: 4174
技术: 430
捐助: 0
注册时间: 2016-2-20

10楼

发表于 2023-2-27 08:28 | 只看该作者

Rank: 1

帖子: 29
积分: 29
技术: 0
捐助: 0
注册时间: 2011-5-6

11楼

发表于 2023-2-27 11:26 | 只看该作者

回复 9# hfxiang

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

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

12楼

发表于 2023-2-27 14:30 | 只看该作者

回复 11# 398832385

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

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

Rank: 1

帖子: 29
积分: 29
技术: 0
捐助: 0
注册时间: 2011-5-6

13楼

发表于 2023-2-28 10:27 | 只看该作者

回复 12# Batcher

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

hfxiang

上尉

Rank: 5 Rank: 5

帖子: 601
积分: 1128
技术: 166
捐助: 0
注册时间: 2022-6-20

14楼

发表于 2023-2-28 11:42 | 只看该作者

回复 13# 398832385

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

帝尊

一级士官

Rank: 2

帖子: 100
积分: 143
技术: 0
捐助: 0
注册时间: 2015-6-17

15楼

发表于 2023-2-28 13:12 | 只看该作者

@echo off
setlocal enabledelayedexpansion

set "filename=字符.txt"
set "outputfile=output.txt"

if exist "%outputfile%" del "%outputfile%"

for /f "usebackq delims=" %%a in ("%filename%") do (
  set "line=%%a"
  for /l %%i in (0,1,!strlen!) do (
    set "char=!line:~%%i,1!"
    echo !char!>>"%outputfile%"
  )
)

echo "转换完成"

exit /b

:: 函数：获取字符串长度
:setlen
setlocal
set "s=!%~1!"
set "len=0"
for /l %%i in (0,1,32767) do if not "!s:~%%i,1!"=="" set /a "len=%%i+1"
endlocal & set "%~2=%len%"
exit /b
复制代码

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

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