Поменять порядок байт в single

[UnCen]

При переходе с vb6 на vb.net столкнулся с проблемой чтения данных из двоичного файла со значениями типа single с противоположным порядком байт. На vb6 я перегружал все в байтовый массив, менял порядок на правильный и переносил в переменную типа single. В vb.net отсутствует команда VarPtr... Подскажите, как можно загрузить подобный файл?

Как я делал на VB6:

Код: Выделить всё

Dim Arr(1 To 5) As Byte
Dim s as single

    Get #1, offset, Arr   ' Считали значения

        BytArr(5) = BytArr(1)  ' Поменяли местами байты с 1 по 4
        BytArr(1) = BytArr(4)
        BytArr(4) = BytArr(5)
        BytArr(5) = BytArr(2)
        BytArr(2) = BytArr(3)
        BytArr(3) = BytArr(5)

    GetMem4 VarPtr(Arr(1)), VarPtr(s) ' Получили в S правильное значение


[UnCen]

День гуглил безрезультатно, как вопрос написал - нашел решение...

Код: Выделить всё

        Dim a, b As Single
        Dim c(4) As Byte
        a = 1231.654741111
        c = BitConverter.GetBytes(a)
        ReDim Preserve c(4)

        c(4) = c(0)
        c(0) = c(3)
        c(3) = c(4)
        c(4) = c(1)
        c(1) = c(2)
        c(2) = c(4)

        b = BitConverter.ToSingle(c, 0)
        MessageBox.Show(b)


Остается вопрос знатокам - можно ли код сделать красивее, без кучи пересылок...

[FireFenix]

Код: Выделить всё

        c(4) = c(0)
        c(0) = c(3)
        c(3) = c(4)
        c(4) = c(1)
        c(1) = c(2)
        c(2) = c(4)


можно просто

Код: Выделить всё

c.Reverse()


[Денис]

День гуглил безрезультатно, как вопрос написал - нашел решение.

Тип String в .Net это класс. И у него есть методы. Вот посмотри на них, а вдруг там всё есть?

[UnCen]

Тип String в .Net это класс. И у него есть методы. Вот посмотри на них, а вдруг там всё есть?

Тогда совсем некрасиво получится... сначала в стринг, потом меняем порядок, потом снова в single...

Как посоветовал FireFenix - c.Reverse()
Так получится проще и нагляднее (и быстрее, я думаю)

Код: Выделить всё

        c = BitConverter.GetBytes(a)
        с.reverse
        b = BitConverter.ToSingle(c, 0)
         

[Mikle]

А если Union задействовать?

[Viper]

А если Union задействовать?

А чем он помежет в деле смены порядка байт?

[Mikle]

Объединить в Union один сингл с четырьмя байтами, далее понятно...

[Viper]

Объединить в Union один сингл с четырьмя байтами, далее понятно...

А разворачивать то как?

[Mikle]

Union вместо BitConverter.

[iGrok]

Union вместо BitConverter.

Не. Это понятно, что можно ручками байты поменять через юнион.
Вопрос в другом: Это будет быстрее, чем BitConverter, или удобнее? )

[Mikle]

Думаю быстрее. Нужно проверить.