Copy stream in single operation

When converting from one encoding to another, copy the stream all at once to avoid accidentally splitting Unicode character blocks. See #186
joyfullservice · Mar 5, 2021 · fa2ba83 · fa2ba83
1 parent 801f39e
commit fa2ba83
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/Version Control.accda.src/modules/modEncoding.bas b/Version Control.accda.src/modules/modEncoding.bas
@@ -303,10 +303,8 @@ Public Sub ReEncodeFile(strInputFile As String, strInputCharset As String, _
         .Charset = strInputCharset
         objOutputStream.Open
         objOutputStream.Charset = strOutputCharset
-        ' Copy data over by chunks to boost performance
-        Do While .EOS <> True
-            .CopyTo objOutputStream, clngChunkSize
-        Loop
+        ' Copy from one stream to the other
+        .CopyTo objOutputStream
         .Close
     End With