fix UTF-8 bom

UTF-8 BOM #724
This commit is contained in:
hama3254 2023-03-29 17:47:33 +02:00
parent c544479873
commit b7ef74cb5e
2 changed files with 7 additions and 1 deletions

Binary file not shown.

View File

@ -1,5 +1,6 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.Remoting
Imports System.Text
Imports System.Windows.Forms.VisualStyles
@ -56,7 +57,12 @@ Module Subfolder
Pfad = "\\?\" + Pfad
End If
File.WriteAllText(Pfad, Content, Encoding.UTF8)
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
Using sink As New StreamWriter(Pfad, False, utf8WithoutBom2)
sink.WriteLine(Content)
End Using
'File.WriteAllText(Pfad, Content, Encoding.UTF8)
End Sub