テキストファイルに特殊文字を置き換えます。これを行う最善の方法は？

Question

私は行と特殊文字でテキストファイルを持っています。私はそれらを交換したい。これを行うにはこれが最善の方法ですか？私はこれが最速の方法ではないと感じている。

Dim lOpenFile As Long 
Dim sFileText As String 
Dim sFileName As String 

sFileName = "C:\test.txt" 


lOpenFile = FreeFile 
Open sFileName For Input As lOpenFile 
sFileText = Input(LOF(lOpenFile), lOpenFile) 
Close lOpenFile 

sFileText = Replace(sFileText, " Ç ", " C ") 
sFileText = Replace(sFileText, " ü ", " u ") 
sFileText = Replace(sFileText, " é ", " e ") 


lOpenFile = FreeFile 
Open sFileName For Output As lOpenFile 
Print #lOpenFile, sFileText 
Close lOpenFile 

また、変更されたことをまとめたいと思います。誰かが私を助けることができる？

Answer 1

あなたが実際に望むのは、アクセントやウムラウトなどの文字列からすべてdiacreticsを削除することです。 [あなたのコードファイルの先頭にImports System.Textを追加することを忘れないでください]

を

Public Shared Function RemoveDiacritics(s As String) As String 
    Dim normalizedString As String = s.Normalize(NormalizationForm.FormD) 
    Dim stringBuilder As New StringBuilder() 

    For Each c As Char In normalizedString 
     If CharUnicodeInfo.GetUnicodeCategory(c) <> UnicodeCategory.NonSpacingMark Then 
      stringBuilder.Append(c) 
     End If 
    Next 

    Return stringBuilder.ToString() 
End Function 

しかし、それはüuに変換しますのでご注意：次に、あなたはそれがStringBuilderを使用していますので、また、効率的である。この方法を使用することができます（必要に応じて）正しいものではありません。通常は、ドイツ語のウムラウトを次のように「翻訳」する必要があります。ü = ue,= ae,= oeRelated

上記のメソッドf.eを呼び出します。この方法で：

Dim text As String = File.ReadAllText(sFileName) 
Dim newText As String = RemoveDiacritics(text) 
File.WriteAllText(sFileName, newText)