Compilation error: simple fixed string binary file PUT

[OldMoses]

Am I doing something wrong? My understanding is that QB64 can do a massed array PUT

Code: QB64: [Select]

1. 'OPTION BASE 1
2. SCREEN _NEWIMAGE(1024, 512, 32)
3.  
4. DIM An(1 TO 10) AS STRING * 10
5.  
6. FOR x% = 1 TO 10
7.     READ An(x%)
8. NEXT x%
9.  
10. f& = FREEFILE
11. OPEN "animals.dat" FOR BINARY AS f&
12. PUT f&, , An()
13. CLOSE f&
14. CLS
15. PRINT "done"
16. END
17.  
18. DATA dog,cat,bison,elephant,weasel,bear,skunk,ocelot,platypus,pig
19.  

Compile log results in:

Code: QB64: [Select]

1. In file included from qbx.cpp:2185:
2. ..\\temp\\main.txt: In function 'void QBMAIN(void*)':
3. ..\\temp\\main.txt:41:111: error: lvalue required as unary '&' operand
4.  sub_put(*__LONG_F,NULL,byte_element((uint64)(&(qbs_new_fixed(&((uint8*)(__ARRAY_STRING10_AN[0]))[(0)*10],10,1))),(10*(__ARRAY_STRING10_AN[2]&1)*__ARRAY_STRING10_AN[5])-(10*(0)),byte_element_3),0);
5.                                                                                                                ^
6. compilation terminated due to -Wfatal-errors.
7.  

[Petr]

Hi @OldMoses

It still make error. I've dealt with it too, so I'm going it through MEM:

Code: QB64: [Select]

1. 'OPTION BASE 1
2. Screen _NewImage(1024, 512, 32)
3.  
4. Dim An(1 To 10) As String * 10
5.  
6. For x% = 1 To 10
7.     Read An(x%)
8. Next x%
9.  
10. f = FreeFile
11. Open "animals.dat" For Binary As #f
12.  
13. 'method A
14. 'For R = LBound(An) To UBound(An)
15. 'Put #f, , An(R)
16. 'Next
17.  
18. 'method B
19. Dim m As _MEM
20. m = _Mem(An())
21. r$ = Space$(m.SIZE)
22. _MemGet m, m.OFFSET, r$
23. Put #f, , r$
24. _MemFree m
25.  
26.  
27. Close f
28. Cls
29. Print "done"
30. End
31.  
32. Data dog,cat,bison,elephant,weasel,bear,skunk,ocelot,platypus,pig
33.  
34.  
35.  

[OldMoses]

Thanks for looking at this, your _MEM solution works fine for me too.

I've worked with files somewhat, but I'm still pretty green at it, and was testing the efficacy of using PUT without the loop structure. The wiki seems to indicate that QB64 can do this, and my first inclination is to wonder what it is that I"M doing wrong.

To this point, I've always used UBOUND derived loops for array PUTs, and was investigating if I could save some keyboarding. Apparently, sometimes the longer road is the better route.