Question

我试图找到将UTF-8编码为ASCII的替代方法。下面的方法有效，但需要1分40秒才能将这个486kb文件编码为ASCII

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

如果有人能以比上述方法更快的方式向我展示，我非常感谢。

由于

Answer 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)

将文件编码为ascii的替代方法

1 个答案: