Бывают случаи, когда надо сохранить структурированную переменную в бинарный файл. Нижепреведенный код показывает один из вариантов реализации задачи:

Procedure WriteStringEx(FileID.l, String.s) 
 WriteLong(FileID, Len(String))
 WriteData(FileID, @String, Len(String) * SizeOf(Character)) 
EndProcedure 

Procedure.s ReadStringEx(FileID.l) 
 String.s = Space(ReadLong(FileID))
 ReadData(FileID, @String, Len(String) * SizeOf(Character)) 
 ProcedureReturn String
EndProcedure 

Structure Element
 Section1.s
 Section2.s
 Section3.s
EndStructure

Define source.Element

source\Section1 = "String 1"
source\Section2 = "String 2"
source\Section3 = "String 3"

file.s = "data.bin"

;- Write a structured variable to file

If CreateFile(0, file)
 size = SizeOf(Element) / 4
 
 WriteLong(0, size)
 
 For i = 0 To size - 1
 s$ = PeekS(PeekL(@source + i * 4))
 WriteStringEx(0, s$)
 Next 
 
 CloseFile(0) 
EndIf

;- Read a structured variable from file

Define destination.Element

If ReadFile(1, file)
 max = ReadLong(1) - 1 
 
 For i = 0 To max 
 s$ = ReadStringEx(1)
 *m = AllocateMemory(Len(s$) + 1)
 PokeS(*m, s$)
 PokeL(@destination + i * 4, *m)
 Next
 
 CloseFile(1) 
EndIf

Debug destination\Section1
Debug destination\Section2
Debug destination\Section3

The packer library provides an efficient set of functions to pack and unpack data (compress/decompress). The pack/unpack routines are based on the excellent JCalG1 algorithm and are integrated to PureBasic (no external DLL needed).

Но это, я думаю, и так всем известно. Проблема заключается в том, что в паке у файлов нет имен, как в архивах. Но эту проблему решить несложно. Достаточно при упаковке создать список файлов в паке. Потом его можно включить в код (посредством IncludeBinary) или читать с диска при распаковке.

Рассмотрим мой пример...

Пишем DLL на Purebasic и подключаем к проекту на MS Visual C++

Этот простейший код сохраняет в файл структуру папок выбранной директории. На выходе вы получите файл подобного вида

||---server 
 |....|---bin 
 |........|---adsync 
 |............|---adsync.exe 
 |............|---adsync.pb 
 |........|---common src 
 |............|---common.pb 
 |........|---fwget 
 |............|---fwget.exe 
 |............|---fwget.log 
 |............|---fwget.pb

В примере показано для случая урлов заключенных в апострофы. Для случая с кавычками используйте Chr(34)

Define subject.s = "<a href='http://site1.ru'>Site 1</a> Any text <a href='http://site2.ru/?a=f&b=5'>Site 2</a>"
Define pattern.s = "http://[^\']{2,}"

If CreateRegularExpression(0, pattern)
 Dim Result$(0)
 NbFound = ExtractRegularExpression(0, subject, Result$())
 For k = 0 To NbFound-1
 Debug Result$(k)
 Next
Else
 Debug RegularExpressionError()
EndIf

Пример использования регулярного выражения, извлекающего все адреса электронной почты с доменом любого уровня из произвольной строки, даже если они обрамлены любыми служебными знаками.

Define subject.s = "'Vasiliy Ivanovitch' y@mail.org.kol.ru (*ColdplayC*) 'l@mbr.uk.com' kol@kol.com serjio k <orba@kimori.org.ua>, serjio k <orba1@kimori.org.ua>"
Define pattern.s = "[\.\-_A-Za-z0-9]+?@[\.\-A-Za-z0-9]+?[\.A-Za-z0-9]{2,}"

If CreateRegularExpression(0, pattern)
 Dim Result$(0)
 NbFound = ExtractRegularExpression(0, subject, Result$())
 For k = 0 To NbFound-1
 Debug Result$(k)
 Next
Else
 Debug RegularExpressionError()
EndIf

Эта простая утилита позволяет посчитать MD5-хэш файла и скопировать его в буфер обмена

Автор оригинального кода (портировано с VB) - perkin
Исправления связанные с утечкой памяти - Пётр и A.Zhukoff

Самый простейший способ чтения библиотекой Database. И никаких дополнительных либ не надо.

При переносе блитцевского года возникла проблема - отстутствие функции Rnd в Пурике...