小白龙

回复 4# xczxczxcz


   不好意思大佬, 我前面的描述太粗略了, 实际我想表达的是下面这个贴子的反向整理

http://www.bathome.net/thread-64359-1-1.html

小白龙

回复 4# xczxczxcz


  多谢大佬支招,

对正则有点晕, 有个情况忘提了,
处理前: 所有键的内容和值的内容的每行前都有一个空格,
处理后: 要删除所有键和值的内容的每行前的空格

现在下面键值内部的空行前面还是有个空格

sss Bv=
Hello 2

World 2
Bv.fff

xczxczxcz

娱乐一下：

$s = @'
sss A=
 Key 1
sss Av=
 Hello 1
 World 1
Av.fff 

sss B=
 Key 2
sss Bv=
 Hello 2
 
 World 2
Bv.fff

sss C=
 Key 3
sss Cv=
 Hello 3
 World 3
Cv.fff

sss kv=
@
 {A}={Av}
 {B}={Bv}
 {C}={Cv}
DDD(kv)
'@

[regex]::Replace($s, "(?sm)(?:(?!Key).)*Key\s*(\d+)(?:(?!\w+\s*\1).)*(?<m>(?:(?!\r?\n\s*\w+v\.fff).)*)","Key `$1`r`n-`r`n`${m}`r`n---`r`n") -replace '(?s)\r?\n?\s*(---)(?:(?!\1).)*$' -replace '(?m)^ +(\w+)','$1';

或
([regex]::Matches($s,"(?is)Key(?:(?!\r?\n?\w+v\.fff).)*").Value -join "`r`n---`r`n") -replace '(?m)(?:(?!v=).)*v=','-' -replace '(?m)^ +(\w+)','$1';

或 自己弄
复制代码

小白龙

回复 2# hfxiang


    多谢大佬支招,

好像没有用正则, 这个exe能支持管道吗? 也就是要处理的文本不是在文件中获取

hfxiang

将

sss A=
Key 1
sss Av=
Hello 1
World 1
Av.fff

sss B=
Key 2
sss Bv=
Hello 2

World 2
Bv.fff

sss C=
Key 3
sss Cv=
Hello 3
World 3
Cv.fff

sss kv=
@
{A}={Av}
{B}={Bv}
{C}={Cv}
DDD(kv)
复制代码

以ANSI格式保存为1.txt
将

/sss [^ ]=/ {
	A = substr($0, 1, 5) "v="
	B = substr($0, 5, 1) "v.fff"
	while ((getline) > 0) {
		if ($0 == B) {
			print "---"
			next
		}
		if ($0 == A) {
			print "-"
		} else {
			print
		}
	}
}
复制代码

以ANSI格式保存为1.awk
下载gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ）
执行

gawk -f.\1.awk 1.txt>2.txt
复制代码

结果（2.txt）

Key 1
-
Hello 1
World 1
---
Key 2
-
Hello 2

World 2
---
Key 3
-
Hello 3
World 3
---
复制代码