objStreamReader = New StreamReader(fileName, System.Text.Encoding.GetEncoding(28597)) DobjStreamWriter = New StreamWriter(WDfilename, False, System.Text.Encoding.GetEncoding(28597)) strLine = objStreamReader.ReadLine Do While Not Dstrline Is Nothing DWstrLine = strline DobjStreamWriter.WriteLine(DWstrLine) Dstrline = DobjStreamReader.ReadLine loop
DobjStreamWriter.WriteLine(DWstrLine, System.Text.Encoding.GetEncoding(28597))
StreamWriter
strLine = objStreamReader.ReadLine Do While Not Dstrline Is Nothing DWstrLine = strline
Nothing
StreamReader
objStreamReader
DobjStreamReader
Dim fileEncoding As System.Text.Encoding = System.Text.Encoding.GetEncoding(28597) Using reader As New StreamReader(fileName, fileEncoding) Using writer As New StreamWriter(WDfilename, False, fileEncoding) Dim line As String = reader.ReadLine() Do While line IsNot Nothing writer.WriteLine(line) line = reader.ReadLine() Loop End Using End Using
perogr[^] wrote:The 28597 code page is for iso-8859-7, I think that it is greek ansi.
Wiki wrote:Windows code page 1253 ("Greek - ANSI"), commonly known by its IANA-registered name Windows-1253 or abbreviated as cp1253 is a Microsoft Windows code page used to write modern Greek. It is not capable of supporting the older polytonic Greek. It is not fully compatible with ISO 8859-7 because a few characters, including the letter Ά, are located at different byte values: (...) Unicode is preferred for Greek in modern applications, especially as UTF-8 encoding on the Internet.
Ά
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)