• Dear Cerberus X User!

    As we prepare to transition the forum ownership from Mike to Phil (TripleHead GmbH), we need your explicit consent to transfer your user data in accordance with our amended Terms and Rules in order to be compliant with data protection laws.

    Important: If you accept the amended Terms and Rules, you agree to the transfer of your user data to the future forum owner!

    Please read the new Terms and Rules below, check the box to agree, and click "Accept" to continue enjoying your Cerberus X Forum experience. The deadline for consent is April 5, 2024.

    Do not accept the amended Terms and Rules if you do not wish your personal data to be transferred to the future forum owner!

    Accepting ensures:

    - Continued access to your account with a short break for the actual transfer.

    - Retention of your data under the same terms.

    Without consent:

    - You don't have further access to your forum user account.

    - Your account and personal data will be deleted after April 5, 2024.

    - Public posts remain, but usernames indicating real identity will be anonymized. If you disagree with a fictitious name you have the option to contact us so we can find a name that is acceptable to you.

    We hope to keep you in our community and see you on the forum soon!

    All the best

    Your Cerberus X Team

Snippet Read Data (simple CSV)

Wingnut

Well-known member
3rd Party Module Dev
Tutorial Author
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.

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: 77
Back
Top Bottom