1

UTF-8 を ASCII にエンコードする別の方法を見つけようとしています。以下の方法は機能しますが、この 486kb ファイルを ASCII にエンコードするには 1 分 40 秒かかります

For Each foundFile As String In My.Computer.FileSystem.ReadAllText(My.Settings.TempFile)
        foundFile = foundFile
        My.Computer.FileSystem.WriteAllText(My.Settings.DefaultOutput, foundFile, True, System.Text.Encoding.ASCII)
    Next

誰かが上記の方法よりも最速の方法を教えてくれたら、私は大歓迎です。

ありがとう

4

1 に答える 1

1

ReadAllTextシンプルな を返すStringため、その文字列内のすべての文字をループしているため、遅くなります。

代わりに、

Dim fileText As String = My.Computer.FileSystem.ReadAllText(My.Settings.TempFile)
My.Computer.FileSystem.WriteAllText(My.Settings.DefaultOutput, fileText, True, System.Text.Encoding.ASCII)
于 2012-10-24T05:53:25.300 に答える