PowerShell - 将属性名称从Pascal案例转换为具有下划线的大写字母

Question

假设我有一个这样的对象：

$test = @{
          ThisIsTheFirstColumn = "ValueInFirstColumn"; 
          ThisIsTheSecondColumn = "ValueInSecondColumn"
         }     

我想最终得到：

$test = @{
          THIS_IS_THE_FIRST_COLUMN = "ValueInFirstColumn"; 
          THIS_IS_THE_SECOND_COLUMN = "ValueInSecondColumn"
         } 

无需手动编写新列名称。

这向我展示了我想要的价值观：

$test.PsObject.Properties | where-object { $_.Name -eq "Keys" } | select -expand value | foreach{ ($_.substring(0,1).toupper() + $_.substring(1) -creplace '[^\p{Ll}\s]', '_$&').Trim("_").ToUpper()} | Out-Host

这导致：

THIS_IS_THE_FIRST_COLUMN
THIS_IS_THE_SECOND_COLUMN

但现在我似乎无法弄清楚如何将这些新值分配回对象。

Answer 1

您可以按如下方式修改哈希表$test ：

foreach($key in @($test.Keys)) { # !! @(...) is required - see below.
  $value = $test[$key] # save value
  $test.Remove($key)   # remove old entry
  # Recreate the entry with the transformed name.
  $test[($key -creplace '(?<!^)\p{Lu}', '_$&').ToUpper()] = $value
}

@($test.Keys)从现有的哈希表键创建一个数组; @(...)确保将密钥集合复制到静态数组 ，因为直接在修改相同散列表的循环中使用.Keys属性会中断。

循环体保存手头输入键的值，然后删除旧名称下的条目。 ^[1]

然后使用所需的名称转换在其新密钥名称下重新创建该条目：

$key -creplace '(?<!^)\\p{Lu}匹配给定键中的每个大写字母（ \\p{Lu} ），除了在字符串的开头（ (?<!^) ），并替换用_后跟那个字母（ _$& ）; 将结果转换为大写（ .ToUpper() ）会产生所需的名称。

---

^{[1] 在添加重命名的单词 之前删除旧条目避免了单字名称的问题，例如Simplest ，由于PowerShell中的hasthables不区分大小写，其转换后的名称SIMPLEST被认为是相同的名称。 因此，在条目Simplest仍然存在的情况下为条目SIMPLEST分配值实际上是以现有条目为目标，然后后续的$test.Remove($key)将简单地删除该条目，而不添加新条目。
给JosefZ的帽子提示指出了问题。}

Answer 2

这似乎有效。 不过，我最终把东西放在一个新的哈希表中。

$test = @{
          ThisIsTheFirstColumn = "ValueInFirstColumn"; 
          ThisIsTheSecondColumn = "ValueInSecondColumn"
         }  
$test2=@{}
$test.PsObject.Properties | 
    where-object { $_.Name -eq "Keys" } | 
    select -expand value | foreach{ $originalPropertyName=$_
                                    $prop=($_.substring(0,1).toupper() + $_.substring(1) -creplace '[^\p{Ll}\s]', '_$&').Trim("_").ToUpper()
                                    $test2.Add($prop,$test[$originalPropertyName])
                                  } 
$test2

Answer 3

我想知道是否有可能在原始物体上做到这一点？

($test.PsObject.Properties|Where-Object {$_.Name -eq "Keys"}).IsSettable表示False 。 因此，您需要按以下两个步骤执行此操作：

$test = @{
          ThisIsTheFirstColumn = "ValueInFirstColumn"; 
          ThisIsTheSecondColumn = "ValueInSecondColumn"
         }
$auxarr = $test.PsObject.Properties |
  Where-Object { $_.Name -eq "Keys" } | 
    select -ExpandProperty value 
$auxarr | ForEach-Object { 
    $aux = ($_.substring(0,1).toupper() + 
    $_.substring(1) -creplace '[^\p{Ll}\s]', '_$&').Trim("_").ToUpper()
    $test.ADD( $aux, $test.$_)
    $test.Remove( $_)
}
$test

由于尝试在唯一的管道中执行REMOVE和ADD方法会导致以下错误，因此必须采用两步法：

 select : Collection was modified; enumeration operation may not execute. 

编辑 。 遗憾的是，在单字Pascal Case键的情况下，上述解决方案将失败，例如对于Simplest = "ValueInSimplest" 。 这是改进的脚本：

$test = @{
          ThisIsTheFirstColumn = "ValueInFirstColumn"; 
          ThisIsTheSecondColumn = "ValueInSecondColumn"
          Simplest = "ValueInSimplest" # the simplest (one word) PascalCase
         }
$auxarr = $test.PsObject.Properties |
  Where-Object { $_.Name -eq "Keys" } | 
    select -ExpandProperty value
$auxarr | ForEach-Object { 
    $aux = ($_.substring(0,1).toupper() + 
      $_.substring(1) -creplace '[^\p{Ll}\s]', '_$&').Trim("_").ToUpper()
    $newvalue =  $test.$_
    $test.Remove( $_)
    $test.Add( $aux, $newvalue)
}
$test