Jabaco Source

Option Explicit
Dim MyFile As String
Private Sub Form_Load()
   MyFile = Environ("Temp") & "\MyTempfile.txt"
End Sub
Private Sub Command1_Click()
    
    Dim FChnl As Integer
    Dim c As Byte
    
    'if the file exists we delete the file
    If Dir$(MyFile) <> "" Then Kill MyFile
    
    FChnl = FreeFile ' also often used: FChnl = 1
    
    Open MyFile For Binary As FChnl
    
    c = 65
    Do
       Put FChnl, , c
       c = c + 1
    Loop Until c = 65 + 26
    
    Close FChnl
    
End Sub
Private Sub Command2_Click()
    
    Dim FChnl As Integer
    Dim Text() As Byte
        
    FChnl = FreeFile ' also often used: FChnl = 1
    
    Open MyFile For Binary As FChnl
    
    ReDim Text(0 To LOF(FChnl) - 1)
    
    Get FChnl, , Text
    
    Close FChnl
    
    Text1.Text = StrConv(Text, vbUnicode)
    
End Sub

Jabaco Source

Option Explicit
Dim MyFile As java#io#File   
Public Sub Form_Load()
   MyFile = New File(System.getenv("Temp") & "\MyTempfile.txt")
End Sub
Public Sub Command1_Click()
   
   'Writing data
   Dim FChnl As java#io#FileOutputStream 
   Dim FPut As java#io#DataOutputStream
   Dim c As Byte
   
   FChnl = New FileOutputStream(MyFile)   
   FPut = New DataOutputStream(FChnl)
   
   'if the file exists we delete the file
   If MyFile.exists Then MyFile.delete
   
   c = 65   
   Do 
      FPut.writeByte(c) 
      c = c + 1
   Loop While c < 65 + 26
   
   FChnl.close
   
   
End Sub

Public Sub Command2_Click()
   
   'Reading data
   Dim FChnl As java#io#FileInputStream 
   Dim FGet As java#io#DataInputStream
   Dim Text() As Byte
   
   FChnl = New FileInputStream(MyFile)
   
   FGet = New DataInputStream(FChnl)
   
   Redim Text(0 To Myfile.length - 1)
   
   FGet.readFully(Text)
   
   Text1.Text = StrConv(Text, vbUnicode)
   
   FChnl.close
   
End Sub

Jabaco Source

Type ini_Struc
   sZeile As String * 2 
   sName As String * 7 
   sValue As String * 3
   CRLF As String * 2
End Type
Public Sub Command1_Click()
   
   Dim i As ini_Struc
   
   MsgBox Len(i.sZeile)
   i.sZeile = "eins zwei drei"
   i.sName = "blablablablablablablabla"
   i.sValue = "huihuiohuihuihui"
   i.CRLF = "cmoncmoncmoncmon"   
   MsgBox Len(i.sZeile)
   MsgBox i.sZeile
End Sub

Jabaco Source

Type ini_Struc
   sZeile(2-1) As Char
   sName(7-1) As Char
   sValue(3-1) As Char
   CRLF(2-1) As Char
End Type

Jabaco Source

Public Sub Command1_Click()
   Dim i As Integer
   Dim j As ini_Struc
   
   For i = 0 To Ubound(j.sName)
      j.sName(i) = 65 + i
   Next
   MsgBox CharArrayToString(j.sName)
   
End Sub
Function CharArrayToString(arr() As Char) As String
   Dim s As String
   For i = 0 To Ubound(arr)
      s = s & Chr(arr(i))
   Next
   CharArrayToString = s
End Function