Open to Read lines - GameCreators Forum

Author

Message

Master SeePlusPlus

13

Years of Service

User Offline

Joined: 30th Dec 2012

Location:

Posted: 15th Jul 2014 00:49

Link

Hey.

So, basically I am writing the 3 camera positions and 3 camera angles (XYZ) into a few files at certain points, with each on different lines. How would I go about using the open to read command but truncating different lines for use?

Thanks

Back to top

Profile PM

MateiSoft Romania

12

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 15th Jul 2014 00:59

Link

Well, you can use read string and know the order of lines in the file saved. Like if you have angle coordinates in the fith line you can use read string 1, ang$ five times and use the setting from the fith read string command!

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Master SeePlusPlus

13

Years of Service

User Offline

Joined: 30th Dec 2012

Location:

Posted: 15th Jul 2014 01:01

Link

Oh does it only read one line at a time?

Back to top

Profile PM

Master SeePlusPlus

13

Years of Service

User Offline

Joined: 30th Dec 2012

Location:

Posted: 15th Jul 2014 01:08

Link

Here is what I currently have (in the loop with a sync) and it does not work.

if KeyState(41)
            if file exist("log\log"+str$(intt)+".txt") then delete file "log\log"+str$(intt)+".txt"
            open to write 1,"log\log"+str$(intt)+".txt"
            if file open(1)=1
            `write string 1,"camera position x:"
            write string 1,str$(camera position x())
            `write string 1,"camera position y:"
            write string 1,str$(camera position y())
            `write string 1,"camera position z:"
            write string 1,str$(camera position z())
            `write string 1,"camera angle x:"
            write string 1,str$(camera angle x())
            `write string 1,"camera angle y:"
            write string 1,str$(camera angle y())
            `write string 1,"camera angle z:"
            write string 1,str$(camera angle z())
            intt=intt+1
            endif
            close file 1
       ENDIF
       if KeyState(199)
        go=1    
        keystate199=0
       ENDIF
       if go=1 and keystate199<intt
          open to read 1, "log\log"+str$(keystate199)+".txt"
          read float 1, abc1
          read float 1, abc2
          read float 1, abc3
          read float 1, abc4
          read float 1, abc5
          read float 1, abc6
          close file 1
          position camera abc1,abc2,abc3
          keystate199=keystate199+1
       ENDIF

+ Code Snippet

if KeyState(41)
            if file exist("log\log"+str$(intt)+".txt") then delete file "log\log"+str$(intt)+".txt"
            open to write 1,"log\log"+str$(intt)+".txt"
            if file open(1)=1
            `write string 1,"camera position x:"
            write string 1,str$(camera position x())
            `write string 1,"camera position y:"
            write string 1,str$(camera position y())
            `write string 1,"camera position z:"
            write string 1,str$(camera position z())
            `write string 1,"camera angle x:"
            write string 1,str$(camera angle x())
            `write string 1,"camera angle y:"
            write string 1,str$(camera angle y())
            `write string 1,"camera angle z:"
            write string 1,str$(camera angle z())
            intt=intt+1
            endif
            close file 1
       ENDIF
       if KeyState(199)
        go=1    
        keystate199=0
       ENDIF
       if go=1 and keystate199<intt
          open to read 1, "log\log"+str$(keystate199)+".txt"
          read float 1, abc1
          read float 1, abc2
          read float 1, abc3
          read float 1, abc4
          read float 1, abc5
          read float 1, abc6
          close file 1
          position camera abc1,abc2,abc3
          keystate199=keystate199+1
       ENDIF

abc1-3 are camera positions and 4-6 are angles. I am worrying about position first.

Back to top

Profile PM

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 15th Jul 2014 01:14

Link

Alternatively you can use something like STYX or Matrix1Utils to read INI or XML etc. files and write to them too... [You can thus specify what you want to load instead of reading line by line]

Back to top

Profile PM

MateiSoft Romania

12

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 15th Jul 2014 01:14

Link

Try putting the sign "#" after abc or just make it as read string and convert the string variables to floats.

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

12

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 15th Jul 2014 01:15

Link

Or as MrValentine said.

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

pcRaider

19

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 15th Jul 2014 01:59 Edited at: 15th Jul 2014 02:12

Link

+ Code Snippet


`write file
filename$ = "test.txt"
if file exist(filename$)=1 then delete file filename$
OPEN TO WRITE 1, filename$
    WRITE STRING 1, " hello DarkBASIC! "
    write string 1,str$(3.14)
    write float 1,3.14
CLOSE FILE 1

print "hit any key"
wait key

` read file
if file exist(filename$)=1
OPEN TO READ 1, filename$
    READ STRING 1, a$
    read string 1,c$
    read float 1,b#
    print a$
    d#=val(c$)
    print d#
    print "value = "+str$(b#)
CLOSE FILE 1
endif

print "hit any key to END"
wait key
end

windowsXp

Back to top

Profile PM

Master SeePlusPlus

13

Years of Service

User Offline

Joined: 30th Dec 2012

Location:

Posted: 15th Jul 2014 02:26 Edited at: 15th Jul 2014 02:37

Link

ok so here is my current code, but for some reason the camera goes to a certain location right away then (i have camera position displaying) the camera position changes to strange numbers like 7.00023-02 constantly until all log files are read. whats wrong lol

if KeyState(41)
            if file exist("log\log"+str$(intt)+".txt") then delete file "log\log"+str$(intt)+".txt"
            open to write 1,"log\log"+str$(intt)+".txt"
            if file open(1)=1
            `write string 1,"camera position x:"
            write string 1,str$(camera position x())
            `write string 1,"camera position y:"
            write string 1,str$(camera position y())
            `write string 1,"camera position z:"
            write string 1,str$(camera position z())
            `write string 1,"camera angle x:"
            write string 1,str$(camera angle x())
            `write string 1,"camera angle y:"
            write string 1,str$(camera angle y())
            `write string 1,"camera angle z:"
            write string 1,str$(camera angle z())
            intt=intt+1
            endif
            close file 1
       ENDIF
       if KeyState(199)
        go=1    
        keystate199=0
       ENDIF
       if go=1 and keystate199<intt
          open to read 1, "log\log"+str$(keystate199)+".txt"
          read float 1, abc1#
          read float 1, abc2#
          read float 1, abc3#
          read float 1, abc4#
          read float 1, abc5#
          read float 1, abc6#
          close file 1
          position camera abc1#,abc2#,abc3#
          keystate199=keystate199+1
       ENDIF

+ Code Snippet

if KeyState(41)
            if file exist("log\log"+str$(intt)+".txt") then delete file "log\log"+str$(intt)+".txt"
            open to write 1,"log\log"+str$(intt)+".txt"
            if file open(1)=1
            `write string 1,"camera position x:"
            write string 1,str$(camera position x())
            `write string 1,"camera position y:"
            write string 1,str$(camera position y())
            `write string 1,"camera position z:"
            write string 1,str$(camera position z())
            `write string 1,"camera angle x:"
            write string 1,str$(camera angle x())
            `write string 1,"camera angle y:"
            write string 1,str$(camera angle y())
            `write string 1,"camera angle z:"
            write string 1,str$(camera angle z())
            intt=intt+1
            endif
            close file 1
       ENDIF
       if KeyState(199)
        go=1    
        keystate199=0
       ENDIF
       if go=1 and keystate199<intt
          open to read 1, "log\log"+str$(keystate199)+".txt"
          read float 1, abc1#
          read float 1, abc2#
          read float 1, abc3#
          read float 1, abc4#
          read float 1, abc5#
          read float 1, abc6#
          close file 1
          position camera abc1#,abc2#,abc3#
          keystate199=keystate199+1
       ENDIF

EDIT: wrote strings, read float.. gonna fix

Back to top

Profile PM

Master SeePlusPlus

13

Years of Service

User Offline

Joined: 30th Dec 2012

Location:

Posted: 15th Jul 2014 02:39

Link

IT WORKS! I Love each and every one of you

Back to top

Profile PM

MateiSoft Romania

12

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 15th Jul 2014 11:32

Link

Glad to help

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Open to Read lines