• 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

Read datas in a txt file for html5

DjPoke

New member
Joined
Sep 29, 2017
Messages
7
Hi,

I would like to read datas in a text file within a cerberus html5 program.
How should i proceed ?

EDIT:
Ok, i've found "DataBuffer".
What's wrong with this source code ? I get an error telling me that Length is null :
Code:
    Local file:DataBuffer

    Local s:Int = 0
    
    For s = 1 To 1
        Local st:String = String(s)
        
        If file.Load("cerberus://data/sit" + st + ".txt")
            Local l:Int = file.Length()
    
            Local a:Int = 0
            Local i:Int = 0
            Local d:Int = 0
    
            For d = 0 To l - 1
                If file.PeekString(d, 1, "utf8") = "\r"
                    sit1[i] = file.PeekString(a, d - a, "utf8")
                    i = i + 1
                    a = d + 2
                    d = a
                    If a >= l Then Exit   
                Endif
            Next
            
            Select s
                Case 1
                    Max_Situations_1 = i
                Case 2
                    Max_Situations_2 = i
                Case 3
                    Max_Situations_3 = i
                Case 4
                    Max_Situations_4 = i
                Case 5
                    Max_Situations_5 = i
            End Select
            
            file.Discard()
        Endif
    Next
 
Last edited:
This might be the problem...
Instead of
Code:
                If file.PeekString(d, 1, "utf8") = "\r"
use
Code:
                If file.PeekString(d, 1, "utf8") = "~r"

You can read about string escape sequences here:


Personally I would read in a text file with LoadString and then split it via yourText.Split("~n") into an array of lines of text.
 
Thank you... also for your work with cerberus-x. Its a usefull tool ! I was an owner of monkey-x. And you keep it alive !
 
Back
Top Bottom