Как сохранить двоичный файл в строку?

@micha12 · Регистрация: 20.01.2009

Студворк — интернет-сервис помощи студентам

Всем привет,

У меня такая задача. Есть некоторые двоичный файл, то есть НЕ текстовый, а содержащий абракадабру. Мне надо записать все содержание файла в строковую переменную таким образом, чтобы потом эту строку можно было вновь записать в файл, и никаких потерь или модификаций чтобы при этом не было.

Вообще мне нужно следующее: у меня есть массив типа Variant, который содержит массивы и просто переменные. Мне нужно из этого дела сделать строковую переменную, чтобы записать ее в ячейку Excel. Затем, когда эта информация мне понадобится, мне нужно на основе 'текста' из ячейки воссоздать мой сложный массив. Вот я и придумал такое сложноватое решение: сначала записываю переменную Variant в файл, а потом из файла читаю как строку. И обратно так же.

Если кто-нибудь знает более простой выход, помогите, я буду благодарен.

Спасибо.

26.07.2009, 13:40

Ну в файл записать так-же проско как и считать.

Visual Basic
1
2
3
4
5
Dim FileHandler&
FileHandler = FreeFile
Open FileName For Binary As FileHandler
Put #FileHandler, ,VariantVariable
Close FileHandler

Так оно там окажется.
Обратно в строку:

Visual Basic
1
2
3
4
5
6
Dim FileHandler&
Dim Str$
FileHandler = FreeFile
Str = Space(FileLen(FileName)) '// Создание буфера
Get #FileHandler, ,Str
Close FileHandler

Вощето использование файлов для компоновки данных классическая процедура, так что это не сложноватое решение.
Есть еще функция LSet преобразующая UDT (User Defined Type) с элементами фиксированной длины в строку.
Вот тут то Type работает в полный рост.
Например:
Имеем

Visual Basic
1
2
3
4
5
6
7
8
9
Type TPoint
  X As Long
  Y As Long
  Desc As String * 10
End Type
 
Private Type tPointBuffer
    Buffer As String * 18
End Type

И есть

Visual Basic
1
Dim PointUDT As TPoint

Теперь можем сделать

Visual Basic
1
2
Dim Str As tPointBuffer
LSet Str = PointUDT

И получили в Str.Buffer стринговое представление UDT.
Обратная операция также справедлива.
Т.е.
LSet PointUDT = Str - распарсит Str.Buffer и раскидает значения по полям UDT.

26.07.2009, 19:01

Это где такой LSET есть?
В VB6 ?!?!

26.07.2009, 20:32

Ага

Попробуй.

28.07.2009, 14:28

Попробовал. К 'скрытым' штучкам это не относится (проверял по F2). Тогда к чему?! И много ещё в VB таких фенечек?

28.07.2009, 14:42

Да, это не скрытые. Это Statement
LSet удобен как для преобразования UDT в строки и обратно так и для преобразования чисел в Binary формат, что часто используется при парсинге форматов файлов (графика например)
Есть еще RSet ... но он просто как 'еще одна фича' и использовать его можно слабо.
А вот статемент Mid!, и менно не функция Mid, а статемент это действительно крутая фича, не сразу видная

28.07.2009, 18:02

Энтот мне известен. Можно и без '!' в конце.
Может, ещё чё есть?!

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

@micha12 0 / 0 / 0 Регистрация: 20.01.2009 Сообщений: 118

	Как сохранить двоичный файл в строку? 26.07.2009, 03:19. Показов 1764. Ответов 6 Метки нет (Все метки) Всем привет, У меня такая задача. Есть некоторые двоичный файл, то есть НЕ текстовый, а содержащий абракадабру. Мне надо записать все содержание файла в строковую переменную таким образом, чтобы потом эту строку можно было вновь записать в файл, и никаких потерь или модификаций чтобы при этом не было. Вообще мне нужно следующее: у меня есть массив типа Variant, который содержит массивы и просто переменные. Мне нужно из этого дела сделать строковую переменную, чтобы записать ее в ячейку Excel. Затем, когда эта информация мне понадобится, мне нужно на основе 'текста' из ячейки воссоздать мой сложный массив. Вот я и придумал такое сложноватое решение: сначала записываю переменную Variant в файл, а потом из файла читаю как строку. И обратно так же. Если кто-нибудь знает более простой выход, помогите, я буду благодарен. Спасибо. 0

Comanche
	26.07.2009, 19:01
	Это где такой LSET есть? В VB6 ?!?!

Comanche
	28.07.2009, 14:28
	Попробовал. К 'скрытым' штучкам это не относится (проверял по F2). Тогда к чему?! И много ещё в VB таких фенечек?

Newbie
	28.07.2009, 14:42
	Да, это не скрытые. Это Statement LSet удобен как для преобразования UDT в строки и обратно так и для преобразования чисел в Binary формат, что часто используется при парсинге форматов файлов (графика например) Есть еще RSet ... но он просто как 'еще одна фича' и использовать его можно слабо. А вот статемент Mid!, и менно не функция Mid, а статемент это действительно крутая фича, не сразу видная

Comanche
	28.07.2009, 18:02
	Энтот мне известен. Можно и без '!' в конце. Может, ещё чё есть?!