[问题求助] PowerShell如何在特定的行前添加文本？

meixi

大家好:

我想在下面的
第一个@开头的行之前,
且在前面的已有文本的行之后,
添加变量$a的文本

注意:
1.变量$a的文本后面还要加上1个序号, 这个序号需要判断前面所有行中间的数字来得出
例如下面的文本:
已经有了 2,  5,  11, 还没有1, 则添加的文本后面序号为1
但是如果已经有了 1,  2,  5,  11, 还没有3, 那添加的文本后面序号为3
规律就是添加前面所有数字中没还没有的最小数字

2.数字左右的文本不是固定的, 但是,肯定会有一个1-3位的数字在一行中
含有数字的行也不是固定的, 但它总是出现在字母或文字开头的行, 即符号开头的行中间是不会有数字的

3.处理后, 第一个@开头的行之前只保留一个空行
------------------------------------------------------------------------------
hello11world
-
hello2go
>
world5to



@hello
hello

@world
world
------------------------------------------------------------------------------
处理后输出:

hello11world
-
hello2go
>
world5go
我是要加的文本1

@hello
hello

@world
world

$s = @'
hello11world
-
hello2go
>
world5to



@hello
hello

@world
world
'@
$a = "我是要加的文本"


<# 处理后输出:
hello11world
-
hello2go
>
world5go
我是要加的文本1

@hello
hello

@world
world
#>
复制代码

pd1

11  5  2左右的值是固定的？
也默认在1  3  5行吗

meixi

回复 2# pd1


  感谢!

数字左右的文本不是固定的, 但是,肯定会有一个1-3位的数字在一行中

所在的行也不是固定的, 但它总是出现在字母或文字开头的行, 即符号开头的行中间是不会有数字的

idwma

$a=@{}
foreach($l in ($f=gc 1.txt)){
    if($l -match '\d+'){
        $m=$matches[0]
        if([int]$m -gt $i){[int]$i=$m}
        $a[[int]$m]=1
    }elseif($l -match '^@'){
        1..$i|%{if(!$a[$_]){$i=$_;break}}
    }
}
$f -join "`r`n" -replace '(?s)(?<=^[^@]+?)\s+(?=@)',"`r`n我是要加的文本$i`r`n`r`n"
复制代码

meixi

回复 4# idwma

多谢,

忘了一点逻辑, 像下面这种情况, 应该怎样改代码?
当没有要补的中间数时, 要顺着最后面的数字向后加1, 添加的文本后面的序号应该是4

hello3world
-
hello2go
>
world1to

idwma

回复 5# meixi

$a=@{}
foreach($l in ($f=gc 1.txt)){
    if($l -match '\d+'){
        $m=$matches[0]
        if([int]$m -gt $i){[int]$i=$m}
        $a[[int]$m]=1
    }elseif($l -match '^@'){
        1..$i|%{if(!$a[$_]){$i=$_;break}}
        if($a.count -eq $i){$i++}
        break
    }
}
$f -join "`r`n" -replace '(?s)(?<=^[^@]+?)\s+(?=@)',"`r`n我是要加的文本$i`r`n`r`n"
复制代码

xczxczxcz

娱乐一下：

$s = @'
hello11world
-
hello2go
>
world5to



@hello
hello

@world
world
'@

$a='添加字符串';

[regex]::Replace($s, '(?s)^[^@]+', {
	if([string]::IsNullOrEmpty($args.Value.Trim())){return $args.Value;}
	[int[]]$num=[regex]::Matches($args.Value, '\d+').Value;
	$n=1;
	while($true){if($num -ne$null -and$num.Contains($n)){$n++}else{break;}}
	return "{0}`r`n$a$n`r`n`r`n" -f$args.Value.TrimEnd();
})
复制代码

meixi

回复 7# xczxczxcz

多谢!

请教怎样只匹配一行中先出现的数字, 而后面出现的数字则忽略掉不计?
例如下面的示例文本,  我在先出现的数字左右加了些空格, 在数字后面又加了些字符和数字,
即: 只有先出现的数字才参与序号的计算!
下面的文本执行后, 序号是4 应该是2就对了

$s = @'
hello 1 a 1 cc 1
world 3 b5 bb 2



@hello
hello

@world
world
'@

xczxczxcz

回复 8# meixi

[regex]::Matches($args.Value,'(?m)^(?:(?!\d).)*\d+').value -replace '\D+'
复制代码

复制代码
不再回复，多看一下正则即可。

xczxczxcz

[regex]::Matches($args.Value,'(?m)(?<=^[^\d]*)\d+').value;
复制代码

也可以。 确定左边界就行。然后减少匹配次数。

meixi

回复 6# idwma

刚试了一下, 发现@开头的行后面的数字会影响序号
我把第5行后面的1删了, 加的序号是对的, 不删加的序号是错的

$s = @'
hello 1 a 3 aa 1
world 2 a 6 aa 3

@hello helo1
hello

@world world2
world
'@ -split '\r?\n'
$a = "我是要加的文本"

#$f = gc 1.txt
$a = @{ }
foreach ($l in ($f = $s))
{
	if ($l -match '\d+')
	{
		$m = $matches[0]
		if ([int]$m -gt $i) { [int]$i = $m }
		$a[[int]$m] = 1
	}
	elseif ($l -match '^@')
	{
		1 .. $i | %{ if (!$a[$_]) { $i = $_; break } }
		if ($a.count -eq $i) { $i++ }
		break
	}
}
$f -join "`r`n" -replace '(?s)(?<=^[^@]+?)\s+(?=@)', "`r`n我是要加的文本$i`r`n`r`n"
复制代码

meixi

回复 10# xczxczxcz


  多谢, 这个可以了

惭愧, 复杂的正则还看不太懂