Jabaco Source

Public Sub Command1_Click()
   Dim fileName As String = System.getenv("tmp") & "\myFile.txt" 
   Dim f As VBFileHandler = Open(fileName, Output, Write, Shared)
   Dim i As Integer 
   Dim cnt As Integer = 0
   Dim res As Boolean 
   
   For i = 1 To 100
      res = f.writeString(cnt & ": neque porro quisquam est, qui dolorem ipsum quia dolor sit amet, " & _
                          "consectetur, adipisci velit, sed quia non numquam eius")
      cnt = cnt + 1
      
      If Not res Then
         Debug.Print "premature exit at line " & cnt
      End If
   Next i
   
   f.close 
   
   Debug.Print cnt & "Lines written to " & fileName
   
End Sub

Jabaco Source

Public Function writeString(s As String) As Boolean     
    If myOutput = Nothing Then Exit Function    
    If myMode <> Append Then myOutput.getChannel.truncate 0    
    myOutput.write s    
    writeString = True 
End Function

Source code

Private myWriter As java#io#PrintWriter

myWriter = New java#io#PrintWriter(New java#io#BufferedWriter(New java#io#FileWriter(f)))

myWriter.println cnt & ": neque porro quisquam est, ..."

myWriter.close

Jabaco Source

Option Explicit

Public Sub Command1_Click()
   Dim lnr As LineNumberReader 
   Dim s As String
   
   On Error Goto ErrHandler

   lnr = openReader("w:\some not existing path\foo.xyz")
   
   s = lnr.readLine()
   
   MsgBox s
   
   Exit Sub
   
ErrHandler:
   MsgBox "click handler failed"
End Sub



Public Function openReader(fileName As String) As java#io#LineNumberReader 
   Dim f As LineNumberReader = Null

   On Error Goto ErrHandler
   
  	f = New LineNumberReader(New java#io#InputStreamReader( _
            New java#io#FileInputStream(fileName), _
            java#nio#charset#Charset.forName("ISO8859-1") ))

   Exit Function
   
ErrHandler:
   MsgBox "Could not open file '" & fileName & "'" _
     & vbCrLf & "(" & Err.getMessage() & "'"
End Function