Sequential file example

Beginner

Date of registration: Aug 14th 2009

Tuesday, August 18th 2009, 6:52pm

Greetings,
I have learned that disk file operations on Jabaco are different than VB6. So I have studied some examples on the Community. I have tried a number of different code examples. The one below is intended to be a sequential write, then read, but doesn't work as intended. What is wrong with this code?

Public Sub cmdTest_Click()

Dim myFile As VBFileHandler
' write
myFile = Open("C:\About\Test\Test.txt",Output)
Call Write(myFile, "1")
Call Write(myFile, "2")
Call Write(myFile, "3")
Call Close ()
'read
myFile = Open("C:\About\Test\Test.txt", Input)
MsgBox readline(myFile) ' displays "3" ?
MsgBox readline(myFile) ' displays nothing ?
MsgBox readline(myFile) ' displays nothing ?
Call Close()

End Sub

One final question: Is it possible that a single Write or Read can process more than one data variable, for example? write ... "1", "2", "3"

Go to the top of the page

birosys

Trainee

Posts: 48

Date of registration: Feb 9th 2009

Location: Mladenovac, Serbia

Occupation: Programming

Hobbies: Programming

Tuesday, August 18th 2009, 10:44pm

Hi Blue Blazes

Here is answer

Jabaco Source

Dim fh As VBFileHandler 
   fh=Open ("c:\test",append )
   fh.appendString ("1" & Chr(13))
   fh.appendString ("2" & Chr(13))
   fh.appendString ("3")
   fh.close 
   fh=Open ("c:\test",Input)
   MsgBox fh.readLine 
   MsgBox fh.readLine 
   MsgBox fh.readLine 
   fh.close