【完成】50元求文本处理

lxh623

文本是utf8格式，文件夹下有十个。
每一行有1-1000个\t【，我想，依序加入序号（1-1000）。
就是形如，\t1.【等等。
谢谢！

netdzb

回复 1# lxh623

能把示范文件发上来吗？

zaqmlp

<# :
cls
@echo off
rem 存为ANSI编码的bat
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"
pause
exit
#>
$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$enc=New-Object System.Text.UTF8Encoding $False;
$files=@(dir -liter $path -recurse|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    write-host $files[$i].FullName.substring($path.length);
    $arr=New-Object -TypeName System.Collections.ArrayList;
    $text=[IO.File]::ReadAllLines($files[$i].FullName,$enc);
    for($j=0;$j -lt $text.count;$j++){
        $global:n=1;
        $line=[regex]::replace($text[$j],'\t【',{
            param($m);
            $m.groups[0].value -replace '(?=【)',(($global:n).toString()+'.');
            $global:n++;
        });
        [void]$arr.add($line);
    }
    [IO.File]::WriteAllLines($files[$i].FullName,$arr,$enc);
}
复制代码

lxh623

链接：https://pan.baidu.com/s/1FtuPoMYgEqv1ywrbrl2Dhw
提取码：ovoj

谢谢！

netdzb

回复 1# lxh623

你是想实现/t1,/t2,/t3......这样一直下去吗？

搜索你的文件没有看到/t，一共13行对吧。

xczxczxcz

https://pan.baidu.com/s/1lN1q-Zc2gFa44Kz3t3vk9w
sn: [ofh7]
论坛不能上传文件

下面的是按行添加序号,每行从1 开始.
https://pan.baidu.com/s/1mJ4dSWIz1oEhc4PLf5sNXw
sn: [8rs3]

qixiaobin0715

回复 5# netdzb
老外了，/t就是制表符了。

netdzb

回复 7# qixiaobin0715

我知道/t是制表符号，但他描述的时候是否可以尽量详细一些呢？

lxh623

没有满意的答案，取消了。

netdzb

回复 9# lxh623

自己动手丰衣足食，慢慢学习论坛教程吧。批处理我也算是入门了啊。

zaqmlp

回复 9# lxh623


    哪里不满意，说出来看看，有什么问题也没反馈，让人怎么改？消失多日，直接取消，让人白写吗

Gin_Q

回复 11# zaqmlp


    被白嫖了吗？

lxh623

非常好。
本来第一次不行，我也已经放弃，但是，有个新的想法，还是想做。于是又来试一试。
3.7G的文件，居然很快搞定。
谢谢！
请查收。