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

Rank: 1

帖子: 11
积分: 21
技术: 0
捐助: 0
注册时间: 2017-3-25

1楼 跳转到 » 正序看帖

打印

字体大小: tT

发表于 2017-3-25 12:28 | 只看该作者

加上指定字符串

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

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

WHY

上校

Rank: 6 Rank: 6

帖子: 1496
积分: 3298
技术: 573
捐助: 0
注册时间: 2015-7-19

34楼

发表于 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.txtCOPY

 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.txtCOPY

 @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)COPY

Nsqs

Rank: 5 Rank: 5

帖子: 318
积分: 546
技术: 57
捐助: 0
注册时间: 2016-4-11

33楼

发表于 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)"COPY

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

Rank: 1

帖子: 11
积分: 21
技术: 0
捐助: 0
注册时间: 2017-3-25

32楼

发表于 2017-3-27 21:44 | 只看该作者

回复 28# Nsqs

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

Rank: 1

帖子: 11
积分: 21
技术: 0
捐助: 0
注册时间: 2017-3-25

31楼

发表于 2017-3-27 16:00 | 只看该作者

回复 30# Nsqs

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

:victory: :victory:

Nsqs

Rank: 5 Rank: 5

帖子: 318
积分: 546
技术: 57
捐助: 0
注册时间: 2016-4-11

30楼

发表于 2017-3-27 13:50 | 只看该作者

回复 29# lslkkda

给你方法了居然还在纠结

Rank: 1

帖子: 11
积分: 21
技术: 0
捐助: 0
注册时间: 2017-3-25

29楼

发表于 2017-3-27 12:46 | 只看该作者

回复 27# ShowCode

好的！

1 评分人数

pcl_test: 附件打包，优先文字说明，少发图片PB -4

Nsqs

Rank: 5 Rank: 5

帖子: 318
积分: 546
技术: 57
捐助: 0
注册时间: 2016-4-11

28楼

发表于 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'"COPY

1 评分人数

lslkkda: 乐于助人技术 + 1

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 568
积分: 1155
技术: 92
捐助: 298
注册时间: 2017-3-17

27楼

发表于 2017-3-27 12:42 | 只看该作者

回复 21# lslkkda

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

Rank: 1

帖子: 11
积分: 21
技术: 0
捐助: 0
注册时间: 2017-3-25

26楼

发表于 2017-3-27 12:33 | 只看该作者

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

老刘1号

论坛巡查

Rank: 8 Rank: 8

帖子: 1000
积分: 1791
技术: 205
捐助: 50
注册时间: 2016-4-17

25楼

发表于 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	HolloCOPY

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

Nsqs

Rank: 5 Rank: 5

帖子: 318
积分: 546
技术: 57
捐助: 0
注册时间: 2016-4-11

24楼

发表于 2017-3-26 13:35 | 只看该作者

回复 15# 老刘1号

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

Nsqs

Rank: 5 Rank: 5

帖子: 318
积分: 546
技术: 57
捐助: 0
注册时间: 2016-4-11

23楼

发表于 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'"COPY

一行

1 评分人数

老刘1号: 妞兄搞开PS了啊……666技术 + 1

pcl_test

荣誉版主

Rank: 8 Rank: 8

帖子: 3040
积分: 5332
技术: 685
捐助: 0
注册时间: 2014-10-19

22楼

发表于 2017-3-25 22:50 | 只看该作者

回复 17# lslkkda

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

Rank: 1

帖子: 11
积分: 21
技术: 0
捐助: 0
注册时间: 2017-3-25

21楼

发表于 2017-3-25 22:25 | 只看该作者

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

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