stream, binary file

[mediParticipant]

I need help on this, I want to write this c code in mx2:

Monkey

FILE *fptr; fptr = fopen("scores.dat", "rb+"); if(fptr == NULL) //if file does not exist, create it { fptr = fopen("scores.dat", "wb"); }

1 2 3 4 5 6

FILE *fptr; fptr = fopen("scores.dat", "rb+"); if(fptr == NULL) //if file does not exist, create it {     fptr = fopen("scores.dat", "wb"); }

I wrote this which I am extremely doubtful about and is not working:

Monkey

Namespace alltests #Import "<std>" Using std.. Function Main() Test("This is a test:") End Function Test(write_my_string:String) Print write_my_string Print "--" ' write to binary file Local file_stream:Stream = Stream.Open( "data", "rw" ) If not file_stream Print "Oh, no!" Return End If 'read from binary file file_stream.WriteString(write_my_string + " 78") Local read_my_string:String = file_stream.ReadString() Print read_my_string file_stream.Close() End Function

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

Namespace alltests   #Import "<std>"   Using std..   Function Main()   Test("This is a test:") End   Function Test(write_my_string:String) Print write_my_string Print "--" ' write to binary file Local file_stream:Stream = Stream.Open( "data", "rw" ) If not file_stream Print "Oh, no!" Return End If 'read from binary file file_stream.WriteString(write_my_string + " 78") Local read_my_string:String = file_stream.ReadString() Print read_my_string file_stream.Close() End Function

The program compiles but seems not working because “data” is not created and is not read.

After the text file version of it didn’t work either, I used LoadString, which worked. I like both binary and text version works to learn mx2.

[abakoboParticipant]

use FileStream to write to a file (FileStream extends Stream)

Monkey

[crayon-5cba152b663dd161818720 inline="true" ] Local stream:=FileStream.Open(path,"rw")

1 2 3

[crayon-5cba152b663dd161818720 inline="true" ] Local stream:=FileStream.Open(path,"rw")

[/crayon]

[impixiParticipant]

Monkey 2’s file streaming capabilities have some “quirks” depending on the target platform. (eg The “rw” mode is not working for me on MacOS). You’re also limited to the file types you can “#Import”.

You can, however, create, load and save files at runtime. The location of the created files will depend on the target platform and the chosen target directory.

Here’s an example that creates, saves and loads one text and one binary file to your desktop (tested on MacOS, might encounter file permission issues on other platforms?)

Monkey

[crayon-5cba152b69346871984872 inline="true" ] #Import "<std>" Using std.. Function Main() Local urlText := DesktopDir() + "test.csv" Local urlBinary := DesktopDir() + "test.dat" Local scores := New Scores() '****Check if our text-based csv file already exists. Local file := FileStream.Open(urlText, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Bob, 200~nAnna, 220~nMick, 18~nAi, 333") scores.SaveCSV(urlText) Else file.Close() Endif '**** '****Check if our binary data file already exists. file = FileStream.Open(urlBinary, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Don, 0~nPeta, 499~nStu, 88~nCarl, 600") scores.SaveBinary(urlBinary) Else file.Close() Endif '**** 'Load Both files into our scores manager and print them all. scores.LoadCSV(urlText) scores.LoadBinary(urlBinary, True) scores.PrintAll() End '-------------- Class Scores Private Field _scores:Stack<Score> Public Method New() _scores = New Stack<Score> End Method LoadCSV:Void(url:String) If Not url Then Return ParseCSV(LoadString(url)) End Method SaveCSV:Void(url:String) If Not url Then Return If Not _scores Then Return Local str:String For Local score := eachin _scores str += score.ToCSVString() End If Not SaveString(str, url) Print "Could not save csv file: " + url Endif End Method ParseCSV:Void(csvDB:String, append:Bool = False) If Not csvDB Or csvDB.Length <= 0 Print "Invalid CSV data." Return Endif Local csvRecords := csvDB.Split("~n") If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear() For Local i := 0 Until csvRecords.Length Local csvRecordFields := csvRecords[i].Split(",") If csvRecordFields.Length < 2 Then Continue 'Invalid record so skip it. _scores.Push(New Score(csvRecordFields[0].Trim(), Cast<UInt>(csvRecordFields[1]))) Next End Method LoadBinary:Void(url:String, append:Bool = False) If Not url Then Return Local file := FileStream.Open(url, "r") If Not file Print "Could not read binary file: " + url Return Endif If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear() Local numRecords := file.ReadInt() Local recordCounter := 0 While (Not file.Eof) And (recordCounter < numRecords) _scores.Push(New Score(Cast<String>(file.ReadCString()), file.ReadUInt())) recordCounter += 1 Wend file.Close() End Method SaveBinary:Void(url:String) If Not url Then Return If Not _scores Then Return Local file := FileStream.Open(url, "w") If Not file Print "Could not write binary file: " + url Return Endif file.WriteInt(_scores.Length) For Local score := Eachin _scores file.WriteCString(score.Name) file.WriteUInt(score.Value) Next file.Close() End Method PrintAll:Void() For Local score:= Eachin _scores Print score.ToString() Next End End ' ---------- Struct Score Public Field Name:String Field Value:UInt Method New(name:String, value:UInt) Name = name Value = value End Method ToString:String() Return Name + "~t~t" + Value End Method ToCSVString:String() Return Name + ", " + Value + "~n" End End

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 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177

[crayon-5cba152b69346871984872 inline="true" ] #Import "<std>"   Using std..   Function Main()   Local urlText := DesktopDir() + "test.csv" Local urlBinary := DesktopDir() + "test.dat" Local scores := New Scores() '****Check if our text-based csv file already exists. Local file := FileStream.Open(urlText, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Bob, 200~nAnna, 220~nMick, 18~nAi, 333") scores.SaveCSV(urlText) Else file.Close() Endif '****   '****Check if our binary data file already exists. file = FileStream.Open(urlBinary, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Don, 0~nPeta, 499~nStu, 88~nCarl, 600") scores.SaveBinary(urlBinary) Else file.Close() Endif '**** 'Load Both files into our scores manager and print them all. scores.LoadCSV(urlText) scores.LoadBinary(urlBinary, True) scores.PrintAll() End   '--------------   Class Scores   Private   Field _scores:Stack<Score>   Public Method New() _scores = New Stack<Score> End Method LoadCSV:Void(url:String) If Not url Then Return   ParseCSV(LoadString(url)) End   Method SaveCSV:Void(url:String) If Not url Then Return If Not _scores Then Return Local str:String For Local score := eachin _scores str += score.ToCSVString() End   If Not SaveString(str, url) Print "Could not save csv file: " + url Endif End   Method ParseCSV:Void(csvDB:String, append:Bool = False)   If Not csvDB Or csvDB.Length <= 0 Print "Invalid CSV data." Return Endif Local csvRecords := csvDB.Split("~n") If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear()   For Local i := 0 Until csvRecords.Length Local csvRecordFields := csvRecords[i].Split(",") If csvRecordFields.Length < 2 Then Continue 'Invalid record so skip it. _scores.Push(New Score(csvRecordFields[0].Trim(), Cast<UInt>(csvRecordFields[1]))) Next End Method LoadBinary:Void(url:String, append:Bool = False) If Not url Then Return Local file := FileStream.Open(url, "r") If Not file Print "Could not read binary file: " + url Return Endif If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear() Local numRecords := file.ReadInt() Local recordCounter := 0 While (Not file.Eof) And (recordCounter < numRecords) _scores.Push(New Score(Cast<String>(file.ReadCString()), file.ReadUInt())) recordCounter += 1 Wend file.Close() End Method SaveBinary:Void(url:String) If Not url Then Return If Not _scores Then Return Local file := FileStream.Open(url, "w") If Not file Print "Could not write binary file: " + url Return Endif   file.WriteInt(_scores.Length) For Local score := Eachin _scores file.WriteCString(score.Name) file.WriteUInt(score.Value) Next   file.Close()   End   Method PrintAll:Void() For Local score:= Eachin _scores Print score.ToString() Next End   End   ' ----------   Struct Score Public Field Name:String Field Value:UInt Method New(name:String, value:UInt) Name = name Value = value End Method ToString:String() Return Name + "~t~t" + Value End Method ToCSVString:String() Return Name + ", " + Value + "~n" End End

[/crayon]

[mediParticipant]

To impixi, it works perfect in my Windows 8 machine. Thanks a bunch! I will study your code to correct mine.

[mediParticipant]

I said perfectly? May be not, but not your fault. It gives me strange behavior for different read and write locations. HOWEVER, I am using the binary version of mx2, which is very old. I will compile the latest version tomorrow to test my codes again.

for write:

Monkey

#Import "<std>" #import "assets/" Using std.. Function Main() Local url:= AssetsDir() + "file.dat" Local file:=FileStream.Open(url, "w") If Not file Print "Something wrong" return End If Local write_this:String = "String 1, String 2" file.WriteString(write_this) file.Close() End

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

#Import "<std>" #import "assets/"   Using std..   Function Main()       Local url:= AssetsDir() + "file.dat"            Local file:=FileStream.Open(url, "w")          If Not file         Print "Something wrong"         return     End If          Local write_this:String = "String 1, String 2"              file.WriteString(write_this)          file.Close()      End

for read:

Monkey

#Import "<std>" #import "assets/" Using std.. Function Main() Local url:= AssetsDir() + "file.dat" Local file:=FileStream.Open(url, "r") If Not file Print "Something wrong" return End If Local read_it:String read_it = file.ReadString() file.Close() End

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

#Import "<std>" #import "assets/"   Using std..   Function Main()   Local url:= AssetsDir() + "file.dat"          Local file:=FileStream.Open(url, "r")          If Not file         Print "Something wrong"         return     End If          Local read_it:String          read_it = file.ReadString()          file.Close()      End

Nevertheless, it seems I am progressing.

[mediParticipant]

Yes impixi, for the text file version, I get memoey access error when I use anything other than DesktopDir(). Unlike the above simplified binary examples, using AssetsDir() fails. There is a CurrectDir() as well, same problem. Don’t know what is going on. Do I doubt myself or Monekey2

No project can begin without io system. Buying and using veterans’ libraries or frameworks, no way. Fundamentals must work and clearly documented first. Double thanks to you impixi

Monkey

import "<std>" #Import "assets/" Using std.. Function Main() local url:= DesktopDir() + "textfile.txt" local text_file:= FileStream.Open(url ,"r") If Not text_file Print "no file, creating: " SaveString("test", url, true) End If text_file.Close() Print "Done" End

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

import "<std>" #Import "assets/"   Using std..   Function Main()     local url:= DesktopDir() + "textfile.txt" local text_file:= FileStream.Open(url ,"r") If Not text_file Print "no file, creating: " SaveString("test", url, true) End If text_file.Close() Print "Done" End

[abakoboParticipant]

using absolute path returned by

Monkey

[crayon-5cba152b7a38c595605931 inline="true" ] filename = RequestFile("Save the file","",True)

1 2 3

[crayon-5cba152b7a38c595605931 inline="true" ]       filename = RequestFile("Save the file","",True)

[/crayon]

I could save where I want on W7 except my sys root dir (C:\ –> no error but no files)

on OSX I can only save on user dir if on sys drive (memory acces violation if not user dir), everywhere on other drives

the filter is not working on OSX so

Monkey

[crayon-5cba152b7a393972900005 inline="true" ] filename = RequestFile("Save the file","png",True)

1 2 3

[crayon-5cba152b7a393972900005 inline="true" ] filename = RequestFile("Save the file","png",True)

[/crayon]

will crash too

never used assetsdir(), desktopdir(),…

all this should be reported on github when we have a clearer idea of where it actually crashes/not-working.

[mediParticipant]

Thanks abakobo, I keep in mind.

[impixiParticipant]

I think we need to expose a few additional folders so we can do our file handling in a more “appropriate” manner, ie according to modern expectations.

Here’s a good link for iOS / MacOS X:

https://developer.apple.com/library/content/documentation/FileManagement/Conceptual/FileSystemProgrammingGuide/FileSystemOverview/FileSystemOverview.html

I don’t have time right now, but later I’ll have a crack at exposing the Documents and Library folders via a wrapper or maybe a modification to std.filesystem (if nobody else does it first).

I haven’t looked into the other target platforms yet, but the principles are the same IIRC. In any case I need the functionality for Mac OS X and Windows 10, so minimally that’s what I need to get working at some point…

IIRC Brucey had a “bah.volumes” BlitzMax module that exposed appropriate folders/directories on the various platforms – I wonder if any of that c/c++ native code would be useful for us…

[impixiParticipant]

Actually, it would be nice if I could do this on MacOS X to access/read/write to the user’s Documents directory:

Monkey

[crayon-5cba152b81202070535366 inline="true" ]#Import "<std>" Using std.. Function Main() Local url:="~~/Documents" Print url ChangeDir(url) Local docs := LoadDir(".") For Local doc := Eachin docs Print doc Next End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

[crayon-5cba152b81202070535366 inline="true" ]#Import "<std>"   Using std..   Function Main()   Local url:="~~/Documents" Print url ChangeDir(url) Local docs := LoadDir(".") For Local doc := Eachin docs Print doc Next End

[/crayon]

But, alas, it’s not that simple.

[impixiParticipant]

Well, that was simpler than I thought. Works on MacOSX, untested on Windows. It pays to poke around monkey2’s source code (I merely copied and modified the DesktopDir function).

Monkey

[crayon-5cba152b83fa6626122581 inline="true" ]#Import "<std>" #Import "<libc>" Using std.. Using libc.. Function Main() Print DocumentsDir() End Function DocumentsDir:String() #If __TARGET__="windows" Return (String.FromCString( getenv( "HOMEDRIVE" ) )+String.FromCString( getenv( "HOMEPATH" ) )).Replace( "\","/" )+"/Documents/" #Else If __DESKTOP_TARGET__ Return String.FromCString( getenv( "HOME" ) )+"/Documents/" #Endif Return "" End

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

[crayon-5cba152b83fa6626122581 inline="true" ]#Import "<std>" #Import "<libc>"   Using std.. Using libc..   Function Main()   Print DocumentsDir()   End   Function DocumentsDir:String() #If __TARGET__="windows" Return (String.FromCString( getenv( "HOMEDRIVE" ) )+String.FromCString( getenv( "HOMEPATH" ) )).Replace( "\","/" )+"/Documents/" #Else If __DESKTOP_TARGET__ Return String.FromCString( getenv( "HOME" ) )+"/Documents/" #Endif Return "" End

[/crayon]

EDIT: And it works in place of the DesktopDir() function in my earlier file creation/reading/writing test code. Just remember to import libc..

[Mark SiblyKeymaster]

Hi,

AssetsDir() is working OK here (see below) although you can’t depend on it being present on all targets (eg: there is no AssetsDir on android).

I’m happy to add more of these BlahDir()s though if people let me know what they want.

Monkey

#Import "<std>" Using std.. Function Main() Print "AssetsDir="+AssetsDir() SaveString( "Hello World!",AssetsDir()+"test.txt" ) Print LoadString( AssetsDir()+"test.txt" ) End

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

#Import "<std>"   Using std..   Function Main()   Print "AssetsDir="+AssetsDir() SaveString( "Hello World!",AssetsDir()+"test.txt" ) Print LoadString( AssetsDir()+"test.txt" ) End

[mediParticipant]

Thanks for all your help. This was for my Premier League software. Since PL will end soon, I got to finish it very soon. As my learning Monkey2 is slow, I will go back to Java or BlitzMax. I will convert my codes to Monkey2 in summer (for the next season of PL).

[Author]

Posts