대안을 아스키 파일로 인코딩

Question

ASCII로 UTF-8을 인코딩하는 대체 방법을 찾고 있습니다. 방법 작품 아래하지만이 사람이 나에게 방법 위보다 빠른 방법을 보여줄 수 있다면

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 

을 ASCII로이 4백86킬로바이트 파일을 인코딩하는 일분 40 초 소요, 나는 크게 감사합니다.

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)