替代文件编码为ascii

我试图找到另一种方法来编码UTF-8到ASCII。下面的方法可以工作，但需要1分40秒到编码这个486KB文件为ASCII替代文件编码为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

如果有人能告诉我除了以上方法的最快捷的方式，我不胜感激。

感谢

来源

2012-10-24 Momento

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-24 05:53:25 nneonneo

感谢nneonneo，你的方法提供更多更快的方式（下文超过10秒），比前一个。再次感谢您的回答。我非常感激。 – Momento

替代文件编码为ascii

回答

相关问题