批处理如何将以指定字符分割的多个字段按指定数目分行

598seo · 发表于 2013-12-19 15:10:39

本帖最后由 pcl_test 于 2016-8-15 16:15 编辑

批处理怎样把5个词分成一排？
文件1.txt里面的内容

a，b，c，d，e，f，g，h，i，j，k，l，m，n，o，p，q，r，s，t，u，v，w，x，y，z

现在要把5个词分成一排

a，b，c，d，e
f，g，h，i，j
k，l，m，n，o
p，q，r，s，t
u，v，w，x，y
z
这样可以实现吗？谢谢了！

battab · 发表于 2013-12-19 17:05:37

本帖最后由 battab 于 2013-12-19 17:07 编辑

@echo off
for /f %%i in (1.txt) do (
set str=%%i
setlocal enabledelayedexpansion
echo !str:~0,9!>>2.txt
echo !str:~10,9!>>2.txt
echo !str:~20,9!>>2.txt
echo !str:~30,9!>>2.txt
echo !str:~40,9!>>2.txt
echo !str:~50,9!>>2.txt
endlocal )

复制代码

逗号要换成英文状态下输入的才行。

598seo · 发表于 2013-12-19 17:20:12

回复 2# battab

你这样不行！5个词分成1行，而不是固定字数分成一行。

1270697389 · 发表于 2013-12-19 18:04:18

这种情况你要上传你的真实数据才行，你举例是没有用的。

terse · 发表于 2013-12-19 20:15:47

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (1.txt) do call :loop "%%a"
pause
exit/b0
:loop
for /f "tokens=1-5* delims=,，" %%a in ("%~1") do (
set "str=%%a,%%b,%%c,%%d,%%e"
set str=!str:,,=!
if "!str:~-1!" == "," (
echo !str:~,-1!
) else echo;!str!
call :loop "%%f"
)

复制代码

PowerShell · 发表于 2013-12-19 21:40:00

本帖最后由 PowerShell 于 2013-12-19 21:48 编辑

你可以参考这篇帖子如何把txt文本内容每间隔37行加空行一次 http://www.bathome.net/thread-27948-1-1.html
powershell代码,需要powershell 3.0及以上版本,
win8,及以上无需安装
如果是win7,需要手动安装powershell 4.0,详见powershell版的 2.0 3.0 4.0 安装置顶帖子

Get-Content -Delimiter ',' aaa.csv -ReadCount 5|ForEach-Object { $_ -join ""} |out-file .\b.txt

复制代码

我win8.1测试通过

598seo · 发表于 2013-12-21 11:00:03

1.txt的内容：

写完了,我,情绪,没有恢复,至今,打字,时候,还是习惯性,打出等字眼,这是一段难忘,日子,我喜欢这些人,君无悔,英雄,东方问心,执着,夜孤寒,深情,梅雪烟,雍容

想要得到的结果：（也就是每5个逗号分为一组）
写完了,我,情绪,没有恢复,至今,
打字,时候,还是习惯性,打出等字眼,这是一段难忘,
日子,我喜欢这些人,君无悔,英雄,东方问心,
执着,夜孤寒,深情,梅雪烟,雍容

lifei259 · 发表于 2013-12-21 11:56:36

@echo off
set m=1&set n=5
:aaa
for /f "tokens=%m%-%n% delims=," %%a in ('type "1.txt"') do (
set /a n+=5&set /a m+=5
echo,%%a,%%b,%%c,%%d,%%e,
goto :aaa
)
pause>nul

复制代码

598seo · 发表于 2013-12-21 12:19:30

回复 8# lifei259

你这个很不错那得到的结果能不能自动生成2.txt？

lifei259 · 发表于 2013-12-22 13:41:51

回复 9# 598seo

@echo off
set m=1&set n=5
:aaa
for /f "tokens=%m%-%n% delims=," %%a in ('type "1.txt"') do (
set /a n+=5&set /a m+=5
echo,%%a,%%b,%%c,%%d,%%e,>>2.txt
goto :aaa
)
pause>nul

复制代码

598seo · 发表于 2014-1-8 12:51:57

回复 10# lifei259

您好！谢谢您！但是这样分出来最多只有6行。但是我的词远远不止6行那么多。能帮我再做一下吗？感激涕零~！

pcl_test · 发表于 2016-8-15 16:23:46

第三方

gawk "gsub(/([^,，]*(,|，)){5}/,"^&\n")" "a.txt"|find /v ""
pause

复制代码

		自动登录	找回密码
密码			注册

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

[文本处理] 批处理如何将以指定字符分割的多个字段按指定数目分行

评分