娜美

回复 15# 77七


   10楼PowerShell码 基本符合, 但就是会重复多添加一行 "退出"字段

娜美

回复 10# Nsqs


    找到 10楼PowerShell码 问题所在了
    如果"企业" 上下 字段名称不相同  其中间也含有退出字段情况,   他仍然会重复多添加一行 "退出" 字段,,  

他们之间已有了"退出" 字段行,  这种情况下应该跳过不做任何动作

Five66

脑子不灵活的我只能用最原始的方式弄出来，powershell代码

$inf="a.txt"
$otf="b.txt"
$r='企业\s*名称.+|退出'

$inf=[io.file]::ReadAllLines($pwd.path+"\$inf",[text.encoding]::Default)
if(!$inf){exit}
$n=0
$f=[System.IO.StringWriter]::new()

for($i=0;$i -lt $inf.Length;$i++){
if(!$inf[$i]){$f.WriteLine();continue}

if($n -and $n[1]){

$m=[regex]::Match($inf[$i],"$r")
if($m.success -and ($m.value -eq "退出")){$f.WriteLine($inf[$i]);$n=0;continue}
#if($m.success -and ($m.value.split(':')[1] -eq $n.split(':')[1])){$f.WriteLine($inf[$i]);$n=0;continue}
if($m.success -and ($m.value -eq $n[1])){$f.WriteLine($inf[$i]);$n[0]=$i;continue}

if($m.success){
$z=[regex]::Match($inf[$n[0]],">\s*")
echo "从原文本第 $i 行后插入"
$f.WriteLine($inf[$n[0]].substring(0,$z.index+$z.length)+"退出");
$f.WriteLine($inf[$i])
$n=@($i,$m.value);continue}

$f.WriteLine($inf[$i]);$n[0]=$i;continue
}

$m=[regex]::Match($inf[$i],"$r")
if($m.success -and ($m.value -ne "退出")){$n=@($i,$m.value)}
$f.WriteLine($inf[$i])
}

if($n){
$z=[regex]::Match($inf[$n[0]],">\s*")
echo "从原文本末尾插入"
$f.WriteLine($inf[$n[0]].substring(0,$z.index+$z.length)+"退出");
}

[io.file]::WriteAllText($pwd.path+"\$otf",$f.ToString(),[text.encoding]::default)
pause;$f.Dispose()
复制代码

娜美

回复 18# Five66


   完全正确, 谢谢哥哥

Nsqs

$data=gc a.txt
$s=New-Object 'System.Collections.Generic.List[string][]' 3
$f='企业'
[string[]]$x=@{}
@(for($i=0;$i -lt $data.Count;$i++){
    $x+=$data[$i]
    if($data[$i] -match $f){
        [int]$c=$c%2+1
        $s[$c]=[regex]::Matches($data[$i],"$f.+")
        if($s[1] -ne $s[2] -and $x -notmatch '退出'){
            $b=$data[$i-1]
            if($i -gt 1){[PSCustomObject]@{'Changed'="Source:`t$("$i".PadLeft(4))";Source=$($data[$i-1])}}
            $r="$([regex]::Matches($b,'.+>'))   退出"
            $data[$i-1]="$($b)`r`n$r"
            if($i -gt 1){[PSCustomObject]@{'Changed'="New`t$("$($i+1)".PadLeft(4))";Source=$r}}
        }
        $x=@{}
    }
})|ft -Wrap -AutoSize
$data=$data -split '\r\n'
$data[0..($data.Count-2)]>b.txt
cmd /c pause
复制代码

不知道是不是这样呢?

hfxiang

回复 1# 娜美
用awk可以实现：

awk -F"企业 名称:" "/^[ t]+$/{next}{C=$0}/企业 名称:/{A=B;B=$2;if(A!=B)C=\"\n\"C}/退出/{C=C\"\n\"}{print C}" a.txt|awk -F"[\n>]+" -vRS="" "/^[ t]+$/{next}/退出/{print $0 \"\n\";next}{print $0\"\n\"$(NF-1)\"^>   退出 \n\"}">b.txt
复制代码

qixiaobin0715

由于审题不仔细，代码思路不对，此贴作废。
回复 14# 娜美
总感觉你提供的文本哪里有不规范的地方。比如14楼样本中的第8-13行都是“利海 B”的范围，第9行好像是多了一行“退出”。
根据时间差异进行判断。如果本行与上一行时间相同，不做任何操作；否则时间不同话，查看上一行时间后面是否是字符“退出”或“企业”，若是，不做任何操作，若不是，则按要求添加一行。
这种思路不知是否符合楼主的要求，从样本上看是这样：

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1* delims=>" %%i in (a.txt) do (
    if not "%%i"=="!Times!" (
        for /f %%k in ("!str!") do (
            if not "%%k"=="退出" (
                if not "%%k"=="企业" (
                    echo,!Times!^>   退出
                    echo,
                )
            ) else (
                echo,
            )
        )
    )
    echo,%%i^>%%j
    set "str=%%j"
    set "Times=%%i"
))>b.txt
pause
复制代码

代码保存为ANSI编码。未测试。

感觉上面代码还是有点不太严谨。

jszw666

都是高手，学习各位

qixiaobin0715

回复 15# 77七
应当不是这么算法，只能作为参考。比如下面代码，在我的电脑上测试，实际上用时6分多而已：

@echo off
(for /l %%i in (1,1,10000000) do echo,%%i)>1.txt
pause
复制代码

77七

回复 24# qixiaobin0715


   谢谢大佬指点！
我自己也试了一下，生成 500万行的 ”19:37:30 August 16 2023>   20854企业 名称:优 美 利 A“，用for /f echo %%a用时5分钟左右。
2009-2023，14年过去了，随着计算机性能提升，效率变高了。可能是5倍。

Batcher

回复 25# 77七


这个差别应该跟硬件关系不太大，更主要的是多次写入和一次写入的区别，参考：
https://mp.weixin.qq.com/s/VZk0TmYUpFdCoWK9ZpgL0Q

77七

回复 26# Batcher


   
谢谢站长指点！
用链接中的文本和1.bat测试，

20:12:26.72
20:12:32.40
请按任意键继续. . .
复制代码

耗时6秒左右。

qixiaobin0715

由于审题不仔细，代码思路不对，此贴作废。
下面代码要比22楼要严谨些：

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1* delims=>" %%i in (a.txt) do (
    if not "%%i"=="!Times!" (
        if not "%%j"=="!str!" (
            for /f %%k in ("%%j") do (
                if "%%k"=="企业" (
                    for /f %%l in ("!str!") do (
                        if not "%%l"=="退出" (
                            echo,!Times!^>   退出
                            echo,
                        ) else (
                            echo,
                        )
                    )
                )
            )
        )
    )
    echo,%%i^>%%j
    set "str=%%j"
    set "Times=%%i"
)
for /f %%m in ("!str!") do if not "%%m"=="退出" echo,!Times!^>   退出
)>b.txt
pause
复制代码

qixiaobin0715

这样的思路才对：

@echo off
set str2=退出
setlocal enabledelayedexpansion
(for /f "tokens=1* delims=>" %%i in (a.txt) do (
    for /f %%x in ("%%j") do (
        if "%%x"=="企业" (
            if not "%%j"=="!str1!" (
                if not "!str2!"=="退出" (
                    echo,!Times!^>   退出
                    echo,
                ) else (
                    if defined Times echo,
                )
            )
        )
    )
    set "Times=%%i"
    echo,%%i^>%%j
    for /f %%x in ("%%j") do (
        if "%%x"=="企业" set "str1=%%j"
        set "str2=%%x"
    )
)
if not "!str2!"=="退出" echo,!Times!^>   退出)>b.txt
pause
复制代码

娜美

回复 29# qixiaobin0715


   嗯嗯, 哥哥批处理很快哦,,  条件都齐了,, 只是还欠了一种条件,  下面, 这种 上一个 "企业"  与 下一个 "企业" 之间已存在存 "退出" 字段行, 就不用再补了.   

20:39:30 August 16 2023>   企业 名称:利海 B
20:38:31 August 16 2023>   退出
20:38:31 August 16 2023>   +
20:37:30 August 16 2023>   企业 名称:海
复制代码

  18楼哥哥代码完全遵循所有条件,  所以无论文本内容如何都能正确完成