purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

 
Enumeration
        #File
EndEnumeration
 
Structure bindata
        param1.b
        param2.b
        param3.b
        param4.b
        param5.b
        param6.b
        param7.b
        param8.b
        param9.b
        param10.b
EndStructure
 
file.s = OpenFileRequester("", "", "SDAConfig (bin)|*.bin", 0)
 
If file.s <> ""
        If ReadFile(#File, file.s)
                size.i = Lof(#File)
                *memory = AllocateMemory(size)
                If *memory
                        ReadData(#File, *memory, size)
                        CloseFile(#File)
 
                        ; Вот в этом месте месте затык
 
                        FreeMemory(*memory)
                        Else
                                Debug "Memory allocation fail"
                                End
                        EndIf
                Else
                        Debug "Can't open file"
                End
        EndIf
EndIf
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14

 
*a = AllocateMemory(10)
*b = AllocateMemory(20)
*c = AllocateMemory(30)
*all = AllocateMemory(64) ; a+b+c+crc32(a+b+c)
 
;
; тут производим какие-то операции с *a, *b, *c
;
 
*all = *a + *b + *c ; УТРИРОВАНО написано, дабы было понятно что нужно
 
; Вычисляем из *all CRC32, добавляем его в конец *all и все это пишем в файл через WriteData
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

 
memsize = MemorySize(*FileMem) ; хотя тут не совсем верно, лучше по сайзу файла а не памяти
ot = *FileMem + 64  ; переставляем на 64 символа вперед индекс, у меня там был ненужный хедер
do = *FileMem + memsize ; вычисляем последнюю ячейку докуда дописано
 
Dim VGMARR(memsize) ; создаем массив в куда писать. хотя опять таки не совсем верно. массив будет больше, чем итоговая инфа.
 
For i = ot To do ; цикл от и до
 
  Number = PeekA(i) ; получаем значение "маяка"
  
  Select Number ; разбираем "маяки" и делаем соответствующие действия
 
    Case $67  ;  0x67 0x66 tt ss ss ss ss (data) - маска для разбора
      WavDataSize = PeekI(i + 3) ; вычисляем размер блока
      WavAddres = i + 7 ; получаем адрес откуда начинается сама инфа - вав сэмпл
      i + 6 + WavDataSize ; передвигаем индекс на конец вав блока
 
    Case $E0 ; 0xE0     dddddddd - маска для разбора
      samplecoordinates = PeekI(i + 1)
      samplecoordinates = WavAddres + samplecoordinates
      i + 4 ; прыжок дальше
 
и так далее по всем "маякам" расписано что делать и насколько символов передвигать наш маркер для последующего чтения
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

#File = 0
 
Structure BinData
  Value1.l
  Value2.l
  Byte1.b
  fixedString1.s{30}
EndStructure
 
Index.l = 5
Dim mainArray.BinData(Index)
 
mainArray(0)\fixedString1 = "This example string, Index = 0"
 
mainArray(1)\Value1 = 234
mainArray(1)\Value2 = 45
mainArray(1)\Byte1 = 5
mainArray(1)\fixedString1 = "This example string #1"
 
mainArray(2)\Value1 = 553
mainArray(2)\Value2 = 113
mainArray(2)\Byte1 = 66
mainArray(2)\fixedString1 = "This example string #2"
 
mainArray(5)\fixedString1 = "This example last string"
 
; Write Array datas To file
If CreateFile(#File, "d:\test.bin")
  WriteInteger(#File,Index)
  For a = 0 To Index
    WriteData(#File, @mainArray(a), SizeOf(BinData))
  Next a
  CloseFile(#File)
  FreeArray(mainArray.BinData())
  Else
  Debug "Ошибка создания файла"
EndIf
 
 
;  Write array datas to file
If ReadFile(#File, "d:\test.bin")
  ReadIndex.l = ReadInteger(#File)
  Dim ReadArray.BinData(ReadIndex)
  For a = 0 To ReadIndex
    ReadData(#File, @ReadArray(a), SizeOf(BinData))
  Next a
  CloseFile(#File)
Else
  Debug "Ошибка чтения файла"
EndIf
 
;  See array data
If ReadIndex
  Debug Str(ReadIndex + 1) + " records read."
  Debug "Record 0's 'fixedString1' field = " + ReadArray(0)\fixedString1
  Debug "Record 2's 'fixedString1' field = " + ReadArray(1)\fixedString1
  Debug "Record 2's 'Value2' field = " + ReadArray(1)\Value2
  Debug "Record 5's 'fixedString1' field = " + ReadArray(5)\fixedString1
EndIf

1
2
3
4
5

00000000
00123400
00567800
009ABC00
00000000