[问题求助] PowerShell把hash表定义还原回字面字符串

5i365

此贴由 另一贴引出 http://www.bathome.net/thread-62168-1-1.html

下面的代码, 输出的结果是: hash表对象的属性,即蓝色字, 我想输出hash对象的定义的字符串,即红色字,

我找到了【hash表对象定义还原回字符串】的下面关键代码, 有两种,效果相同, 但是还差首和尾的定义, 怎么接上? 【三行代码的结果也有瑕疵，值没有被双引号引起来】
$hash.GetEnumerator() | %{
$_.key + "=" + $_.Value
}

----------------------------------上面是用枚举器的方法,下面是用遍历键值的方法
foreach ($key in $hash.keys) {
$key + "=" + $hash[$key]
}

感觉从正则匹配的地方生成可能更简单，
或可能还有更好的思路和方法， 请求路过高手支招， 提前感谢！

-----------------------------------------------------------------------------------------------------------------------------

Name                           Value
----                           -----
日本                             "在东京"
美国                             "在纽约"
南非                             "在刚果"

------------------------------------------------------------------
$hash = [ordered]@{

日本 = "在东京"

美国 = "在纽约"

南非 = "在刚果"
}

$s = @"
岁月难得沉默
秋风厌倦漂泊
夕阳赖着不走
挂在墙头舍不得我
昔日伊人耳边话
已和潮声向东流
再回首
#开始
      黄种人"在东京", //日本
             白人"在纽约", //美国

"在刚果",//南非
        黑人//印度

#结束
往事也随枫叶一片片落
爱已走到尽头
恨也放弃承诺
命运自认幽默
想法太多由不得我
壮志凌云几分酬
知己难逢几人留
"@

$txt = $s -split '\n' -join "|"

$pattern1 = "#开始(.*)#结束"
$pattern2 = '("\w+"),\s?//(\w+)'
$hash = [ordered]@{ }

if ($txt -match $pattern1)
{
        $target = $matches[1].split('|')
}

foreach ($line in $target)
{
        if ($line -match $pattern2)
        {
                $hash[$matches[2]] = $matches[1]
        }
}
$hash
复制代码

went

用-f格式化就很好操作

$s = @'
岁月难得沉默
秋风厌倦漂泊
夕阳赖着不走
挂在墙头舍不得我
昔日伊人耳边话
已和潮声向东流
再回首
#开始
      黄种人"在东京", //日本
             白人"在纽约", //美国

"在刚果",//南非
        黑人//印度

#结束
往事也随枫叶一片片落
爱已走到尽头
"在刚f果",//南非
恨也放弃承诺
命运自认幽默
想法太多由不得我
壮志凌云几分酬
知己难逢几人留
'@

$hash = [ordered]@{}
if($s -match '(?s)#开始(.*?)#结束'){
    [regex]::Matches($Matches[1],'(?m)"(.+?)",\s*//(.+?)$') | foreach { $hash.($_.Groups[2].Value) = $_.Groups[1].Value }
}

$hash.Keys | foreach { '{0} = "{1}"' -f $_,$hash[$_] }
复制代码

5i365

回复 2# went


  大侠牛X, 确实好理解多了, 怎样生成下面格式的字面值?  我是想生成下面的字面值, 然后存到变量$h中, 后面想显示的时候, 直接放出$h变量
$hash = [ordered]@{
    日本 = "在东京"
    美国 = "在纽约"
    南非 = "在刚果"
}

5i365

回复 2# went


   我自己改成下面这样, 会多一个空行, 另外感觉太绕

$hash.Keys | foreach { '{0} = "{1}"' -f $_, $hash[$_] } | Out-String | tee -var mid | Out-Null
$start = '$hash = [ordered]@{'
$end = '}'

$h = @"
$start
$mid
$end
"@

$h
复制代码

went

&{
    代码块
}
可以把整个代码块的输出转换为一个字符串

$hash = [ordered]@{}
if($s -match '(?s)#开始(.*?)#结束'){
    [regex]::Matches($Matches[1],'(?m)"(.+?)",\s*//(.+?)$') | foreach { $hash.($_.Groups[2].Value) = $_.Groups[1].Value }
}

$h = 
&{
    '$hash = [ordered]@{'
    $hash.Keys | foreach { '{0}{1} = "{2}"' -f "`t",$_,$hash[$_] }
    '}'
}

$h
复制代码

5i365

回复 5# went


大侠实在太牛X了, 精干高效,炉火纯青!!

went

纠正一下
&{
    代码块
} 转换为Object数组

&{
    代码块
} | Out-String 转换为字符串

5i365

回复 7# went


   感谢大侠提醒, gettype看了一下, 确实如此, 另外大侠能解惑一下您正则中的符号的含义吗?
for_flr 大侠写的正则如下, 我能理解,
$pattern1 = "#开始(.*)#结束"
$pattern2 = '("\w+"),\s?//(\w+)'

--------------------------------------------------
您写的正则如下
'(?s)#开始(.*?)#结束'
'(?m)"(.+?)",\s*//(.+?)$'

--------------------------------------------------
量词+或*后加了? 应该是匹配尽可能的少
但是正则前都多了括号(?s)和(?m)
(?m)我好像在哪里看到过, 说的是匹配多行, 但是(?s)这个参数没找到相关资料, ps官方的MSDN也没找到,  
大侠能解释一下它的含义吗? 能引用一个资料出处就好了, 再次感谢.
放上官方PS的正则链接供大家参考
https://docs.microsoft.com/zh-cn/powershell/module/microsoft.powershell.core/about/about_regular_expressions?view=powershell-7.2

went

这里面有关于单行和多行匹配的详细介绍
https://docs.microsoft.com/zh-cn ... -expression-options

5i365

回复 9# went

非常感谢大侠的指引!!!原来是单行模式, 这样就不用 像 for_flr 大侠代码那样, 先用 | 拼接了, 方便了很多

刚又入了一个坑, 我把要处理的文本外置存为了s.txt, 再次执行后, =号后面换行了, 结果如下!

$hash = [ordered]@{

日本
= "在东京"

美国
= "在纽约"

南非
= "在刚果"
}

$s = gc s.txt -enc UTF8 -raw

$hash = [ordered]@{ }
if ($s -match '(?s)#开始(.*?)#结束')
{
        [regex]::Matches($Matches[1], '(?m)"(.+?)",\s*//(.+?)$') |
        foreach { $hash.($_.Groups[2].Value) = $_.Groups[1].Value }
}


$h = &{
        '$hash = [ordered]@{'
        $hash.Keys | foreach { '{0}{1} = "{2}"' -f "`t", $_, $hash[$_] }
        '}'
}

$h
复制代码

went

回复 10# 5i365


    我运行没问题

5i365

回复 11# went


我在powershell studio 里, 显示换行了, 但是我在powershell ISE里, 显示是好的, 但是定向后, 也换行了,
$h > "C:\Users\Administrator\Desktop\aaa.txt"
s.txt 下载 https://send.cm/d/9oH1

$s = gc "C:\Users\Administrator\Desktop\s.txt" -enc UTF8 -raw
$s -match '(?s)#开始(.*?)#结束'
$matches[0]

$hash = [ordered]@{ }
if ($s -match '(?s)#开始(.*?)#结束')
{
	[regex]::Matches($Matches[1], '(?m)"(.+?)",\s*//(.+?)$') |
	foreach { $hash.($_.Groups[2].Value) = $_.Groups[1].Value }
}


$h = &{
	'$hash = [ordered]@{'
	$hash.Keys | foreach { '{0}{1} = "{2}"' -f "`t", $_, $hash[$_] }
	'}'
}

$h>"C:\Users\Administrator\Desktop\aaa.txt"
复制代码

went

正则改一下,把末尾的换行符去掉

'(?m)"(.+?)",\s*//(\S+?)\s$'
复制代码

'(?m)"(.+?)",\s*//\s*(.+?)\s*$'
复制代码

5i365

回复 13# went


   大侠牛X,  显示和输出都没换行了.
正则真是字符串处理的万金油啊,!!!