file access

du kan måske prøve at udskrive en vbCrLf efter hver record.

vbCrLf?
hvad er det :)

det er en Visual Basic konstant der indeholder tegnene for VognRetur (carriage return) og NyLinie (linefeed).

Så hvis du skriver vbCrLf til en fil indsættes der et linieskift

put #1,, vbCrLf

(det er det samme som:

put#1,, Chr$(13) & Chr$(10)

\'lav 3 ListBox List1 , List2 , List3
\'lav 2 knapper sLoad , sSave

Private Sub sLoad_Click()
Dim a, b, c As String
    List1.Clear
    List2.Clear
    List3.Clear

Open \"test.txt\" For Input As #1
    Do Until EOF(1)
    Input #1, a, b, c
    List1.AddItem a
    List2.AddItem b
    List3.AddItem c
    Loop
Close #1
End Sub


Private Sub sSave_Click()
Open \"test.txt\" For Output As 1
    Dim i%
    For i = 0 To List1.ListCount - 1
    txt = Chr$(34) & List1.List(i) & Chr$(34) & \",\" & Chr$(34) & List2.List(i) & Chr$(34) & \",\" & Chr$(34) & List3.List(i) & Chr$(34)
    Print #1, txt
    Next
Close #1
End Sub

Åben filen som Random file:
Opret et Modul (*.BAS)og en form med en TextBox

Declare en type i toppen af Modulet:
Type Rec
    Nr1 AS STRING*2
    Navn AS STRING*7
    Nr2 AS STRING*4
End Type

Private Sub ReadRandomFile()
Dim MinVar as Rec
Dim NumOfRec as Long
Dim I as Long

Open \"Filnavn\" For Random As #1 Len = Len(MinVar)
NumOfRec=Int(LOF(1) / Len(MinVar))
Text1.Text=\"\"
For I = 1 TO NumOfRec
    Get #1,I,MinVar
    Text1.Text = Text1.Text + MinVar.Nr1 + \" \" + _
                MinVar.Navn + \" \" + _
                MinVar.Nr2 + vbCrLf 
Next I
Close #1
End Sub   
   

molbo: er det ikke nogenlunde det jeg foreslog? altså at tilføje en vbCrLf i enden af records?

Nej - Det er kun for at vise indholdet, selve file access foregå via en type, med fixed længde.
Det smarte ved Random access er at der kan adresseres direkte til en bestemt record (I)