Hej
Jag har i uppgift att skriva ett enkelt program i VB6 för registrering
av kontouppgifter. För varje kont ska det finnas information om
kontonummer, namn, adress, saldo.
Meningen är att jag ska lösa detta genom att skriva till och läsa från
sekventiella filer.

Fråga:
Var kan jag lära mig om hur jag skriver till och läser från sekventiella
filer?

mvh david s

Två sät. Antingen vbs Open Statment(Sök på "Open Statment" i hjälpen). Eller FSO(File System Object).
För att använda FSO måste du lägga till en referens till Microsoft Scripting.

Hej Ett exempel du kan klistra in
Två Knappar 5 TextBoxar OBS Text5 skall vara Multiline = True
i Text1 - Text4 skriver du kontonummer, namn, adress, saldo.

Option Explicit
Private Sub Command1_Click()
'Skriva till Sekventilfil
'Text1 Kontunummer Text2 Namn osv
Dim FileNum As Long
FileNum = FreeFile
Open App.Path & "\Register.txt" For Append As #FileNum
Print #FileNum, Text1.Text 'kontunummer
Print #FileNum, Text2.Text 'namn
Print #FileNum, Text3.Text 'adress
Print #FileNum, Text4.Text 'saldo
Close #FileNum
'Det har skapats en textfil med namnet Register
End Sub

Private Sub Command2_Click()
'Läsa från samma fil
'OBS Text5 skall vara Multiline = True
Dim FileNum As Long, tmpStr As String
FileNum = FreeFile
Open App.Path & "\Register.txt" For Input As #FileNum
tmpStr = Input$(LOF(FileNum), FileNum)
Close #FileNum
Text5.Text = tmpStr
End Sub

mvh
Sven

Hej! Och tack för snabbt svar.

Tanken är att jag ska använda textstream och sedan med hjälp av sedan med hjälp av stränghantering plocka ut alla saldon och summera dom.

Nu hör det till saken att jag är jäkligt ny på VB och programering. jag reserverar mig för snurrig användning av termer och hoppas på överseende, mild tillrättavisning och förklaringar!
Jag går en kurs som förnärvarande fokuserar på objekttyprerna FileSystemObject, File och Textstream.

Så när jag tittar på din kod letar jag efter deklarationssatser som hanterar Nytt filsystemobjekt, File och textstream.
jag ser ju att du öppnar, och sedan stänger för för Filenum. Använder du textstream här utan att jag fattar det eller gör man på annat vis då?

Anreas talade om att antingen köra open statement eller FSO. är din lösning en open statement lösning?
Hur skulle du göra en FSO-lösning?

mvh david s

Option Explicit
Private Sub Command1_Click()
'Skriva till Sekventilfil
'Text1 Kontunummer Text2 Namn osv
Dim FileNum As Long
      FileNum = FreeFile
Open App.Path & "\Register.txt" For Append As #FileNum
  Print #FileNum, Text1.Text 'kontunummer
  Print #FileNum, Text2.Text 'namn
  Print #FileNum, Text3.Text 'adress
  Print #FileNum, Text4.Text 'saldo
Close #FileNum
'Det har skapats en textfil med namnet Register
End Sub
Private Sub Command2_Click()
'Läsa från samma fil
'OBS Text5 skall vara Multiline = True
Dim FileNum As Long, tmpStr As String
      FileNum = FreeFile
Open App.Path & "\Register.txt" For Input As #FileNum
tmpStr = Input$(LOF(FileNum), FileNum)
Close #FileNum
Text5.Text = tmpStr
End Sub