我有一个将 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$$ - 我文件的这个内容。
我有一个将 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$$ - 我文件的这个内容。
不要使用该代码,.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
如果您想以相反的方式进行转换,只需交换编码即可。