3

我正在尝试将文件从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());
    }
}
4

2 回答 2

2

您必须首先知道固定记录大小。使用 FileStream.Read() 读取一条记录的字节。然后 Encoding.GetString() 将其转换为字符串。

然后使用 String.SubString() 从记录中找出字段。B4 只是一个长度为 4 的 SubString 调用,L8 的长度为 8。进一步将此类字段转换为使用 Decimal.Parse() 的数字。您可能需要对结果进行除法,不清楚使用的是什么定点乘数。100的赔率很好。

于 2013-01-09T15:02:20.070 回答
1

好的,所以我想出了如何转换这两个字段。B4 字段非常简单。它们本质上是一个可以转换为整数的 4 字节数组。

//The IBM 5110 were big endian machines, so reverse the array 
if (BitConverter.IsLittleEndian)
    Array.Reverse(by);

int value = BitConverter.ToInt32(by, 0);

L8 字段是代表IBM Double Precision Float的 8 字节数组。有很多方法可以将其转换为IEEE 754 Float。可以在以下位置找到一些示例:

这是我根据文章指导使用的版本。

private double IbmFloatToDouble(byte[] value)
{
    if (ReferenceEquals(null, value))
        throw new ArgumentNullException("value");

    if (BitConverter.ToInt64(value, 0) == 0)
        return 0;

    int exponentBias = 64;
    int ibmBase = 16;
    double sign = 0.0D;

    int signValue = (value[0] & 0x80) >> 7;
    int exponentValue = (value[0] & 0x7f);
    double fraction1 = (value[1] << 16) + (value[2] << 8) + value[3];
    double fraction2 = (value[4] << 24) + (value[5] << 16) + (value[6] << 8) + value[7];
    double exponent24 = 16777216.0;             // 2^24
    double exponent56 = 72057594037927936.0;    // 2^56

    double mantissa1 = fraction1 / exponent24;
    double mantissa2 = fraction2 / exponent56;
    double mantissa = mantissa1 + mantissa2;
    double exponent = Math.Pow(ibmBase, exponentValue - exponentBias);

    if (signValue == 0) 
        sign = 1.0;
    else 
        sign = -1.0;

    return (sign * mantissa * exponent);
}
于 2013-03-02T05:14:44.993 回答