Monkeying with Files

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|463\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Monkeying with Files
Sun, 26 Jul 2015, 06:41
spinal	Has anyone used FileSize() in monkey? I can't get the damn thing to return anything -=-=- Check out my excellent homepage!
Sun, 26 Jul 2015, 06:41
Jayenkai	I haven't touched ANY of Monkey's File-access stuff, I'm afraid. -=-=- ''Load, Next List!''
Sun, 26 Jul 2015, 07:10
steve_ancell	I made a class that loads a file into an array; as text, line by line, and numerical data can be converted by using Int, Float or any other commands that happen to turn text into numbers. I suppose it could be modified to give the number of lines stored, or total number of characters if you add-up everything in each line. I'll go modify it in a sec and then post it here.
Sun, 26 Jul 2015, 07:20
spinal	No need, got a different idea, sounds the same as yours, working. Method countLevels() For Local t:Int = 1 To 1000 Local s:String = LoadString("levels/level"+t+".tmx") If s <> "" Then MaxLevel = t If s = "" Then t = 1000 ' jump to end of loop if no file number 'Print s Next Print "MaxLevel "+MaxLevel End Method --v Basically checks the length of the text grabbed from each file. If no length, then assume the file does not exist. -=-=- Check out my excellent homepage!
Sun, 26 Jul 2015, 07:40
steve_ancell	That seems like a good way of doing it, you're welcome to use mine though if you like. Have a looksie and see if it's useful in any way. Class C_FileLoader Field fileData:String[] Field currentLine:Int Method New(fileName:String) fileData = LoadString(fileName).Split("~n") currentLine = 0 End Method ReadLine:String() Local currentData:String if Eof() = False currentData = Self.fileData[Self.currentLine] currentLine = (currentLine + 1) Else currentData = "Data Exhausted!" EndIf Return currentData.Trim() End Method Eof:Int() if Self.currentLine > (fileData.Length() - 1) Return 1 Else Return 0 EndIf End Method LineCount:Int() Return Self.fileData.Length() End Method ByteCount:Int() Local bytes:Int = 0 Local line:Int For line = 0 To (Self.fileData.Length() - 1) bytes = (bytes + Self.fileData[line].Trim().Length()) Next Return bytes End Method Empty:Void() Local counter:Int For counter = 0 to (fileData.Length() - 1) fileData[counter] = "" Next fileData = fileData.Resize(0) End End --v
Sun, 26 Jul 2015, 07:42
steve_ancell	I really should be doing a SaveOut class too at some point.