Powershell和Excel，區分大小寫.replace

Question

我對Powershell腳本相當陌生，所以請原諒我，如果代碼和/或解釋是草率的。我正在嘗試創建一個腳本，用於打開Excel電子表格，並用標準字符替換所有特殊字母（æö等）。 現在，腳本可以工作，但它會將電子表格中的所有大寫字符轉換爲小寫字符（例如，「奧爾堡」變成「奧爾堡」），如果沒有，我寧願選擇。我被引導認爲.replace方法是區分大小寫的，雖然在這裏似乎並不是這種情況。

現在，我已經嘗試了幾件事情，雙引號代替單引號，雙精度與單引號，-creplace代替.replace剛剛吐出

System.__ComObject 

沒有實際改變什麼電子表格（我認爲$ objRange是一個數組，這是爲什麼？），爲大寫和小寫字母添加.replace，但沒有任何作用。任何人都能指出我的錯誤？

代碼：

$excelFile = New-Object system.windows.forms.openfiledialog 
$excelFile.InitialDirectory = 'Q:\Address_convert' 
$excelFile.MultiSelect = $false 
$excelFile.showdialog() 
$excelFile.filenames 

$excelFile = $excelFile -replace "System.Windows.Forms.OpenFileDialog: Title: , FileName: ", "" 

if ($excelFile -like '*.xlsx*') { 

    $excel = New-Object -comObject Excel.Application 
    $excel.Visible = $false 
    $excel.DisplayAlerts = $false 

$workBook = $excel.WorkBooks.Open($excelFile) 

$oReturn = [Microsoft.VisualBasic.Interaction]::MsgBox("Replace special characters in $excelFile ?", 'YesNo,MsgBoxSetForeground,Question', 'Address Replace') 
switch ($oReturn){ 
"Yes" { 
    For($i = 1 ; $i -le $workBook.Sheets.count ; $i++) 
    { 
     $workSheet = $workBook.Sheets.item($i) 
     $objRange = $workSheet.UsedRange 
     $objRange.Replace('á', 'a')   
     $objRange.Replace('à', 'a') 
     $objRange.Replace('â', 'a') 
     $objRange.Replace('ã', 'a') 
     $objRange.Replace('ä', 'a') 
     $objRange.Replace('å', 'a') 
     $objRange.Replace('æ', 'ae') 
     $objRange.Replace('ç', 'c') 
     $objRange.Replace('é', 'e') 
     $objRange.Replace('è', 'e') 
     $objRange.Replace('ê', 'e') 
     $objRange.Replace('ë', 'e') 
     $objRange.Replace('í', 'i') 
     $objRange.Replace('ì', 'i') 
     $objRange.Replace('î', 'i') 
     $objRange.Replace('ï', 'i') 
     $objRange.Replace('ð', 'd') 
     $objRange.Replace('ð', 'd') 
     $objRange.Replace('ñ', 'n') 
     $objRange.Replace('ó', 'o') 
     $objRange.Replace('ò', 'o') 
     $objRange.Replace('ô', 'o') 
     $objRange.Replace('õ', 'o') 
     $objRange.Replace('ö', 'o') 
     $objRange.Replace('ø', 'o') 
     $objRange.Replace('ú', 'u') 
     $objRange.Replace('ù', 'u') 
     $objRange.Replace('û', 'u') 
     $objRange.Replace('ü', 'u') 
     $objRange.Replace('ý', 'y') 
     $objRange.Replace('ÿ', 'y') 
     $objRange.Replace('ß', 'ss') 
     $objRange.Replace('þ', 'th') 
    } 
    if (!$workBook.saved) {$workBook.save()} 
    $workBook.close() 

    [Microsoft.VisualBasic.Interaction]::MsgBox("Replacement completed", 'OkOnly,MsgBoxSetForeground,Information', 'Address Replace') 
} 
"No" { 
    if (!$workBook.saved) {$workBook.save()} 
    $workBook.close() 

    [Microsoft.VisualBasic.Interaction]::MsgBox("Replacement aborted!", 'OkOnly,MsgBoxSetForeground,Exclamation', 'Address Replace') 
    } 
    } 
} 
Else {[Microsoft.VisualBasic.Interaction]::MsgBox("Specified path ($excelFile) does not contain an .xlsx file!", 'OkOnly,MsgBoxSetForeground,Exclamation', 'Address Replace')} 

Answer 1

嘗試替換操作，像這樣

... 
$optionalParameter = [System.Type]::Missing 
$objRange.Replace('á', 'a', $optionalParameter, $optionalParameter, $true) 
... 

，使前兩個可選參數不使用，然後$true傳遞到指示的情況下匹配 - 看here簽名