Snippet Read Data (simple CSV)

Wingnut

Well-known member
3rd Party Module Dev
Tutorial Author
Joined
Jan 2, 2020
Messages
1,124
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.

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
 

Attachments

  • Data.zip
    2.7 KB · Views: 8
Top Bottom