批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]批处理在文本每一行内容后面/行尾插入/添加/加上指定字符串 [打印本页]

作者: lslkkda 时间: 2017-3-25 12:28 标题: [已解决]批处理在文本每一行内容后面/行尾插入/添加/加上指定字符串

在每一排数字后面固定的位置加上“”00 sush ” 怎么弄个批处理文件一次处理完啊！！附件已经上传了

作者: zuodx 时间: 2017-3-25 12:48

perl -lpe "$_ = $_ . ' 00 sush'" wj.txt >result.txt

作者: lslkkda 时间: 2017-3-25 13:18

回复 2# zuodx

大神！！把你这代码做成BAT格式批处理文件还是不行啊处理的文本文档是空的

作者: ShowCode 时间: 2017-3-25 13:20

回复 3# lslkkda

2楼是Perl脚本，Windows不安装Perl环境的话，是无法执行的。

作者: zuodx 时间: 2017-3-25 13:21

下perl，执行就行了

作者: zuodx 时间: 2017-3-25 13:22

不用什么bat ,直接把那一行复制到命令行就行了

作者: ShowCode 时间: 2017-3-25 13:24

@echo off
(for /f %%i in ('type "1.txt"') do (
    echo,%%i  00  sush
))>"2.txt"
复制代码

作者: cfwyy77_bat 时间: 2017-3-25 13:34

本帖最后由 cfwyy77_bat 于 2017-3-25 13:37 编辑

for /f %%a in (1.txt) do (echo %%a    00    sush>>2.txt)
pause
复制代码

这样貌似就可以了。
不过前面长度不一样加入的位置就不固定了。

作者: lslkkda 时间: 2017-3-25 14:12

回复 8# cfwyy77_bat

这位大神的代码倒是加入了“00 sush” 可惜后面位置不对啊
就是要求后面的格式位置固定啊不然没法用啊有办法吗

作者: zuodx 时间: 2017-3-25 14:51

你要告诉从多少列开始加啊

作者: taofan712 时间: 2017-3-25 16:51

回复 9# lslkkda

复制粘贴七楼的代码，%%i 00 sush之间的空格，改成tab键。

作者: lslkkda 时间: 2017-3-25 18:40

回复 11# taofan712

搞定了！！感谢各位大神~~~~~

作者: /zhqsystem/zhq 时间: 2017-3-25 18:59

20位数字内有效,其他位数自己修改

for /l %%n in (0,1,300)do call set "#n=%%#n%% "
for /f %%i in ('type "%~f1"')do (
 call set "$n= %%i"
 call set "$n=%%$n: =%%%%#n%%"
 call echo,%%$n:~0,20%% 00    sush
)
复制代码

作者: 老刘1号 时间: 2017-3-25 19:45

本帖最后由老刘1号于 2017-3-25 19:48 编辑

回复 6# zuodx

哼哼，不用下载什么Perl，写2行Bat就完了

作者: 老刘1号 时间: 2017-3-25 19:53

回复 13# /zhqsystem/zhq

放着Tab不用……

作者: /zhqsystem/zhq 时间: 2017-3-25 21:03

回复 15# 老刘1号
一个TAB=8个字符,如果是1个字符永远不会与20个字符的对齐

作者: lslkkda 时间: 2017-3-25 21:55

又出问题了！！位置道是对了但是还是用不了！！我看了下源文件数字后面的空格是退格键按11楼方法改的空格是TAB键！跟源文件不一样用不了啊。那位大神在看看附件文件的前三排就是源文件！！

作者: 老刘1号 时间: 2017-3-25 22:06

回复 16# /zhqsystem/zhq

嘿嘿，这就是你的无知了
CMD和记事本对Tab都有对齐标准
不是简单的代表8个空格
要不怎么会有这个符号出现呢？
直接用空格代替好了～

作者: /zhqsystem/zhq 时间: 2017-3-25 22:19

回复 18# 老刘1号
1TAB键a
01234567890123456789TAB键a
这俩在记事本中不能体现TAB分离的整齐对齐视觉效果,添加两个又怕复制到excel导致被换列
只能加特定字符来处理

作者: 老刘1号 时间: 2017-3-25 22:20

回复 19# /zhqsystem/zhq

额，这个相差太悬殊……不管它

作者: lslkkda 时间: 2017-3-25 22:25

额~虽然不太懂你们说的什么意思但我感觉我这问题是个疑难杂症！！

大神留个QQ或者加我QQ1417793009 我传整个源文件研究下！

作者: pcl_test 时间: 2017-3-25 22:50

回复 17# lslkkda

退格键是什么鬼？然而只是空格，13楼的试了吗

作者: Nsqs 时间: 2017-3-26 13:09

powershell -command "foreach($i in Get-Content '1.txt'){[array]$s+=$i.PadRight(20)+'00'+'		'+'sush'};$s|Set-Content 'n.txt'"
复制代码

一行

作者: Nsqs 时间: 2017-3-26 13:35

回复 15# 老刘1号

没那么简单,如果用tab的话,每行长短不一就会无法对齐

作者: 老刘1号 时间: 2017-3-26 18:21

回复 24# Nsqs

nonono，这就是你的无知了

123342	tab	668866	Hollos	U
12332	tab	6652	Holl	H
7777777	Tab	s	Shwuadd	N

超过8个字符串用多Tab对齐

1234567898765		Hollo
1234			Hollo
1						Hollo
66666666666666666666666666666666666666666	Hollo
复制代码

复制到记事本里，我还没见过Tab搞不了的
不超过8个字符就会自动对齐
长短不一的时候就计算长度，
除以8得到整数部分
2个字符串的除以8得到整数部分相差数+1补给短的
1个Tab补给长的
肯定对的齐齐的。。。

作者: lslkkda 时间: 2017-3-27 12:33

回复 13# /zhqsystem/zhq
用13楼提供的批处理文件做出来的结果格式是对的，跟源文件对比位置还是有差异，多了几个空格，如果能去掉多出来的空格修改成跟源文件的“00 sush ”位置对齐就能用了！！

作者: ShowCode 时间: 2017-3-27 12:42

回复 21# lslkkda

把原文件压缩上传到顶楼，我看一下。

作者: Nsqs 时间: 2017-3-27 12:45

回复 26# lslkkda

@powershell -command "foreach($i in Get-Content '1.txt'){[array]$s+=$i.PadRight(17)+'00'+''.PadRight(4)+'sush'};$s|Set-Content 'n.txt'"
复制代码

作者: lslkkda 时间: 2017-3-27 12:46

回复 27# ShowCode

好的！

作者: Nsqs 时间: 2017-3-27 13:50

回复 29# lslkkda

给你方法了居然还在纠结

作者: lslkkda 时间: 2017-3-27 16:00

回复 30# Nsqs

感谢感谢！测试成功，你发的这个批处理代码又快又准又能用终于解决了我的大问题。

:victory: :victory:

作者: lslkkda 时间: 2017-3-27 21:44

回复 28# Nsqs

还有个小问题这个代码一次能处理多少啊好像大于500K的文件就处理不了啊

作者: Nsqs 时间: 2017-3-27 22:46

本帖最后由 Nsqs 于 2017-3-28 15:59 编辑

@powershell -c "[string]$f=((Get-Content -raw '1.txt')-replace '(\d+)',('$1'+''.PadRight(50)))-replace '(.{16}) +',('$1 '+'00'+''.PadRight(4)+'sush');[io.file]::WriteAllLines('n.txt',$f)"
复制代码

保存bat,490毫秒处理完800kb

作者: WHY 时间: 2017-3-28 09:46

本帖最后由 WHY 于 2017-3-28 16:55 编辑

gawk "$0~/.+$/{s=\" \";len=17-length($0);for(i=1;i<len;i++)s=s\" \";$0=$0s\"00    sush\"};1" a.txt > b.txt
复制代码

set "s=[IO.File]::ReadAllText('a.txt', [Text.Encoding]::Default)"
PowerShell -c "[regex]::Replace(%s%, '[^\r\n]+', {param($m); $s=$m.Value; $s+' '*(17-$s.Length)+'00    sush'})" > b.txt
复制代码

@if(0)==(0) echo off
cscript //nologo //e:jscript "%~f0" < a.txt > b.txt
pause & goto :EOF
@end

var sp = '                 ';
var s = WSH.StdIn.ReadAll().replace(/[^\r\n]+/g,function(s0){return (s0 + sp).substr(0, 17) + '00    sush'})
WSH.Echo(s)
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)