- Joined
- Jan 2, 2020
- Messages
- 1,414
This is a simple example showing how you can read integers and strings from textfiles.
I like how the sourcecode becomes named .csx and the data .csv.
There was a need to have good ole READ...DATA...RESTORE commands and I thought it would be a good idea to have them meet up with modern standards. You can't put expressions right now into the data, it needs to be all constants. But that's not a problem for most uses.
I like how the sourcecode becomes named .csx and the data .csv.
There was a need to have good ole READ...DATA...RESTORE commands and I thought it would be a good idea to have them meet up with modern standards. You can't put expressions right now into the data, it needs to be all constants. But that's not a problem for most uses.
Cerberus:
testdata.csv
1,2,3,4,5,6,7,8
121,3453245,,,6564,-3224234
987978,reading data,0,4356346
readdata.csx
' Basic CSV example
' Reads integers and strings separated with commas
'
' WIP : comma as data
#TEXT_FILES="*.txt|*.xml|*.json|*.csv"
Import mojo.app
Function Main:Int()
Local lines:String[] =LoadString("testdata.csv").Split("~n")
For Local line:String = Eachin lines
Local items:String[] = line.Split(",")
For Local item:= Eachin items
If item.Length = 0 Then Print "EMPTY COMMA DETECTED!"
If item.Length <> 0
If (Int(item) = "NaN") Or (Not(Int(item)) And item<>"0")
Print "THIS IS NOT A NUMBER : " + item
Else If item.Length <> 0
Print "THIS IS A NUMBER : " + Int(item)
Endif
Endif
Next
Next
Return 0
End