我正在尝试将文件从ECDIC转换为ASCII格式并遇到了一个有趣的问题。这些文件包含固定长度的记录,其中一些字段是带符号的二进制整数(在记录布局中描述为 B4)和长精度数值(在记录布局中描述为 L8)。我已经能够毫无问题地转换字符数据,但我不确定如何转换这些数值。从原始系统(IBM 5110)的参考手册中,这些字段如下所述。
B 表示要转换为 BASIC 内部数据格式的定点有符号二进制整数格式的数字数据项的长度(2、4 或 8 字节)。对于记录 I/O 文件输入,记录中接下来的 2、4 或 8 个字节包含一个有符号二进制值,系统将其转换为内部数据格式并分配给 READ FILE 或 REREAD 中指定的变量FILE 语句使用 FORM 语句。
和
L 表示数值的长精度(8 个字符)。对于输入,此条目表示将在记录中分配一个八位长精度值,而不转换为 READ FILE 或 REREAD FILE 语句中指定的相应数值变量。
编辑:这是我用于转换的代码
private void ConvertFile(EbcdicFile file)
{
if (file == null) return;
var filePath = Path.Combine(file.Path, file.FileName);
if (!File.Exists(filePath))
{
this.Logger.Info(string.Format("Cannot convert file {0}. It does not exist.", filePath));
return;
}
var ebcdic = Encoding.GetEncoding(37);
string convertedFilepath = Path.Combine(file.Path, file.ConvertedFileName);
byte[] fileData = File.ReadAllBytes(filePath);
if (!file.HasNumericFields)
File.WriteAllBytes(convertedFilepath, Encoding.Convert(ebcdic, Encoding.ASCII, fileData));
else
{
var convertedFileData = new List<byte>();
for (int position = 0; position < fileData.Length; position += file.RecordLength)
{
var segment = new ArraySegment<byte>(fileData, position, file.RecordLength);
file.Fields.ForEach(field =>
{
var fieldSegment = segment.Array.Skip(segment.Offset + field.Start - 1).Take(field.Length);
if (field.Type.Equals("string", StringComparison.OrdinalIgnoreCase))
{
convertedFileData.AddRange(
Encoding.Convert(ebcdic, Encoding.ASCII, fieldSegment.ToArray())
);
}
else if (field.Type.Equals("B4", StringComparison.OrdinalIgnoreCase))
{
// Not sure how to convert this field
}
else if (field.Type.Equals("L8", StringComparison.OrdinalIgnoreCase))
{
// Not sure how to convert this field
}
});
}
File.WriteAllBytes(convertedFilepath, convertedFileData.ToArray());
}
}