UDT Array to Data File by Random Access Test

[bplus]

Again inspired by conversation on Discord, this is something I did in 90's with old QB but never got around to testing with QB64 until now:

Code: QB64: [Select]

1. _Title "UDT to Random Access File Test" ' b+ 2021-12-24
2. Type Image
3.     As String * 255 Text, FileName
4.     As Long SzX, SzY, PosX, PosY
5. End Type
6.  
7. Const SW = 1000, SH = 700
8. ReDim As Image TheItem(1 To 100), TheRecord
9.  
10. 'testing the FakeText$ function because RA is very strict on fixed strings!
11. TheItem(1).Text = FakeText$(255)
12. TheItem(1).FileName = FakeText$(255)
13. Print TheItem(1).Text
14. Print Len(TheItem(1).Text)
15. Print TheItem(1).FileName
16. Print Len(TheItem(1).FileName)
17. Print "zzz"
18. Sleep
19.  
20. 'make fake data to file
21. For i = 1 To 100
22.     TheItem(i).Text = FakeText$(255)
23.     TheItem(i).SzX = 100 + Rnd * 20
24.     TheItem(i).SzY = 70 + Rnd * 14
25.     TheItem(i).PosX = Rnd * (SW - TheItem(i).SzX)
26.     TheItem(i).PosY = Rnd * (SH - TheItem(i).SzY)
27.     TheItem(i).FileName = FakeText$(255)
28. Next
29.  
30. Open "Data Dump.RA" For Random As #1 Len = Len(TheRecord)
31. For i = 1 To 100
32.     'odious and tedious is this
33.     TheRecord.Text = TheItem(i).Text
34.     TheRecord.SzX = TheItem(i).SzX
35.     TheRecord.SzY = TheItem(i).SzY
36.     TheRecord.PosX = TheItem(i).PosX
37.     TheRecord.PosY = TheItem(i).PosY
38.     TheRecord.FileName = TheItem(i).FileName
39.     Put #1, , TheRecord
40. Next
41. Close #1
42. Print "Data File Ready"
43.  
44. ' OK we got data filed! Now can we get it back
45. Open "Data Dump.RA" For Random As #1 Len = Len(TheRecord)
46. For i = 1 To 100
47.     Cls
48.     Get #1, i, TheRecord
49.     Print "Record Number:"; i
50.     Print "Text: "; TheRecord.Text
51.     Print "SzX:"; TheRecord.SzX
52.     Print "SzY:"; TheRecord.SzY
53.     Print "PosX:"; TheRecord.PosX
54.     Print "PosY:"; TheRecord.PosY
55.     Print "FileName:"; TheRecord.FileName
56.     Print " zzz..."
57.     Sleep
58. Next
59. Close #1
60.  
61. Function FakeText$ (lengthh)
62.     BlankString$ = Space$(lengthh)
63.     fini = Int(Rnd * 255) + 1
64.     For i = 1 To fini
65.         Mid$(BlankString$, i, 1) = Chr$(Rnd * (96 - 32) + 32)
66.     Next
67.     FakeText$ = BlankString$
68. End Function
69.  

[bplus]

Here is the FixMe$ Function for inserting variable length strings into fixed length ones:

Code: QB64: [Select]

1. _Title "FixMe$ function test" 'b+ 2021-12-24
2.  
3. 'so you want to make variable length strings into a fixed length
4.  
5. test$ = FixMe$("123456789", 20)
6. Print "Before:"
7. Print "123456789"; "<"
8. Print "123456789012345678901234567890"
9. Print test$; "<"
10. Print Len(test$)
11.  
12. 'test oversized varible length
13. Print "Before:"
14. Print "1234567890123456789012345"
15. test$ = FixMe$("1234567890123456789012345", 20)
16. Print "123456789012345678901234567890"
17. Print test$; "<"
18. Print Len(test$)
19.  
20. Function FixMe$ (Me$, lengthh)
21.     BlankString$ = Space$(lengthh)
22.     Mid$(BlankString$, 1, lengthh) = Me$
23.     FixMe$ = BlankString$
24. End Function
25.  
26.