Конференция VBStreets

**Yurich** » 25.03.2006 (Сб) 0:07

Может этому есть элементарное решение, извиняюсь!
Задачка вроде проста. Последовательно побайтно читаю файл, и на одном из отрезков файла мне надо вытащить строку из 4-х байт "3D82AB43".
Dim i As Long, b As Byte, GUID As String
For i = 0 To 3
Get #1, , b
GUID = GUID + Hex$(b)
Next i
Дело в том, что разряды в файле прописаны в правильной последовательности "младший-->старший". В итоге получаю "43AB823D". Не охота применять Seek и читать орезок задом-наперед. Нужен простой код, чтобы полученную строку независимо от её длины перевернуть в правильный вид.

**Amed** » 25.03.2006 (Сб) 0:25

MsgBox StrReverse("!hciruY olleH")

**AlexBlack** » 25.03.2006 (Сб) 20:34

ну вот.... вместо "Hello" получилось "olleH" (олень)

**Yurich** » 26.03.2006 (Вс) 0:26

AlexBlack писал(а):ну вот.... вместо "Hello" получилось "olleH" (олень)

Нет, всё нормально работает! Я не знал о существовании этой стандартной функции в VB. Спасибо Amed-у. Только пришлось сделать переворот HEX-пар
GUID = GUID + StrReverse(Hex$(b))
чтобы в итоге получилось нормально.

**Amed** » 26.03.2006 (Вс) 0:31

Все хорошо, только не надо про нех-пары!

**GSerg** » 26.03.2006 (Вс) 5:11

Yurich
Дай фрагмент. GUID хексом в файле и GUID строкой конечный.

Конференция VBStreets

Как сделать строку "наоборот"

Как сделать строку "наоборот"

Кто сейчас на конференции