idwma

回复 15# 小白龙


   你一楼的不是已经实现了吗

小白龙

回复 16# idwma


一楼不是用的正则, 用的split实现的, 二楼用的开关,

我想用纯正则实现相同的功能, 正则比较通用, 我用的那个软件没有 split 功能, 只有正则, 查找和替换功能

idwma

回复 17# 小白龙


    不会呀

terse

来练练手

$s= @'
Key 1

Hello 1
World 1
---
Key 2

Hello 2

World 2
---
Key 3

Hello 3
World 3

'@
$pattern = "(([\S\s]+?)[\r\n]+---[`r`n]?)"
$out = ( $s + "`r`n---" | Select-String -Pattern "(([\S\s]+?)[\r\n]+---[\r\n]?)" -AllMatches ).Matches.Value -replace "---" ,''
$ss = 'sss '
$arr=@()
$n = 65
$out |% {
    $a,$b = ($_ -replace '[\r\n]+', "`n" |Select-String -Pattern "(.+?)\n"  -AllMatches).Matches.Value
    $c = [char](++$n - 1)
    $arr += "{$c}={$($c)v}[]"
    "$ss $c="
    ' ' + $a.trim()
    ' ' + $($b -join " ").trim()
    "sss ${c}v="
    ' ' + "${c}v.ffff"
}
'sss kv=@' + '"{0}"' -f ($arr -join '').TrimEnd("[]")
'DDD(kv)'
复制代码

小白龙

回复 19# terse

多谢大佬, 结果有点问题, 另外, 每对之间有个空行
另外键值B的结果应该是这样

sss B=
 Key 2
sss Bv=
 Hello 2
 
 World 2
Bv.fff
复制代码

terse

回复 20# 小白龙
30行和29行对调一下呢？另外要空行的话 去掉trim()试一下

$s= @'
Key 1

Hello 1
World 1
---
Key 2

Hello 2

World 2
---
Key 3

Hello 3
World 3

'@
$pattern = "(([\S\s]+?)[\r\n]+---[`r`n]?)"
$out = ( $s + "`r`n---" | Select-String -Pattern "(([\S\s]+?)[\r\n]+---[\r\n]?)" -AllMatches ).Matches.Value -replace "---" ,''
$ss = 'sss '
$arr=@()
$n = 65
$out |% {
    $a,$b = ($_  |Select-String -Pattern "(.+?)\n"  -AllMatches).Matches.Value
    $c = [char](++$n - 1)
    $arr += "{$c}={$($c)v}[]"
    "$ss $c="
    ' ' + $a.trim()
    "sss ${c}v="
    ' ' + $($b -join " ").trim()
    ' ' + "${c}v.ffff"
}
'sss kv=@' + '"{0}"' -f ($arr -join '').TrimEnd("[]")
'DDD(kv)'
复制代码

小白龙

回复 21# terse


   空行还是没有

terse

32行这样试
输出没问题的话  你再自己调整一下

' ' + "${c}v.ffff"+  "`n"
复制代码