Read String Per Line - GameCreators Forum

Author

Message

punkyb

7

Years of Service

User Offline

Joined: 8th Sep 2016

Playing: PC and Android Games

Posted: 15th Nov 2016 10:16

Link

I'm trying to replicate the file command read string which it reads per line of an open file but in my case I have my data in a full multi-line string (with line feed).

I thought I could find this with Matrix1 utils but can't find any commands related to it.

Any ideas?

Back to top

Profile PM Website

Kevin Picone

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 15th Nov 2016 23:10 Edited at: 16th Nov 2016 23:50

Link

read the file data into the mem block and then parse it (peek / poke the bytes) from there..

Code Snippets / [DBP] - ReadMemBlockString & WriteMemBlockString Functions

PlayBASIC To HTML5/WEB - Convert PlayBASIC To Machine Code

Back to top

Profile PM Website

punkyb

7

Years of Service

User Offline

Joined: 8th Sep 2016

Playing: PC and Android Games

Posted: 16th Nov 2016 06:49 Edited at: 16th Nov 2016 06:50

Link

Thanks Kevin, it seems complicated for parsing new lines by looking at the example but I'll check it out.

Back to top

Profile PM Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Nov 2016 11:19

Link

Hi there.
Not sure if this can help...this piece of code reads all values in the same string and add to stack.

+ Code Snippet

Open to read 1, "data.txt"
for t=1 to 100
    Read String 1, my_data$
    Split String my_data$, chr$(34)         `all string between "" quotation marks
    For i = 1 to 10
      Split_chunk$ = Get Split Word$(i)
      If Split_chunk$ = "D"
          dato$ = Get Split Word$(i+2)
          Split string dato$, " "
          d1 = val(Get Split Word$(1))      `get a value  ...for exsample 10 20 30 55
          d2 = val(Get Split Word$(2))
          d3 = val(Get Split Word$(3))
          d4 = val(get split word$(4))
          d5 = val(get split word$(5))
          d6$ = get split word$(6)          `get a string ...for example an image name
      endif
    next
next
do
set cursor 0,0
print "d1 = ",d1
print "d2 = ",d2
print "d3 = ",d3
print "d4 = ",d4
print "d5 = ",d5
print "dy = ",d6$

sync
loop

remstart
Content of Data.txt -----------------
"D" "52 31 64 40 16 photo.jpg"
Remend

I'm not a grumpy grandpa

Back to top

Profile PM Email

punkyb

7

Years of Service

User Offline

Joined: 8th Sep 2016

Playing: PC and Android Games

Posted: 16th Nov 2016 17:19

Link

Thanks chafari, I'll check that out as well.

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Read String Per Line