0

我有一个将 ASCII 编码文件转换为 EBCDIC 编码文件的应用程序。我的问题是,每当我尝试使用其他转换工具(EBCDIC 到 ASCII)时,我都会遇到问题。


这是我获得代码的地方http://support.microsoft.com/kb/216399


CS?NTPRC?37-MAY MTLAW 4RY?- 这应该是结果的样子。

CcCs@@CnCtCp$$CrCc@@C?C?-CmCaCy CmCtClCaCw C?$$CrCy@@CmCtClCaCw$$ - 我文件的这个内容。

4

1 回答 1

4

不要使用该代码,.NET 非常支持处理不同的编码:

Imports System.IO
Imports System.Text

Module Conversions
    Public Sub ConvertAsciiToEbcdic(ByVal inpath As String, ByVal outpath As String)
        Using sr As New StreamReader(inpath, Encoding.ASCII)
            Using sw As New StreamWriter(outpath, False, Encoding.GetEncoding(37))
                Do
                    Dim line = sr.ReadLine()
                    If line Is Nothing Then Exit Do
                    sw.WriteLine(line)
                Loop
            End Using
        End Using
    End Sub
End Module

如果您想以相反的方式进行转换,只需交换编码即可。

于 2012-09-19T10:46:12.563 回答