Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Daten speichern - Test
| Uploader: |  Neuling |
| Datum/Zeit: | 05.09.2013 11:06:06 |
#lang "fb"
Dim Shared EFirmaNr As Short: EFirmaNr = 0
Dim Shared EName As String: EName = Space (30)
Dim Shared EStrasse As String: EStrasse = Space (25)
Dim Shared EOrt As String: EOrt = Space (25)
Dim Shared EBankname As String: EBankname = Space (20)
Dim Shared EBLZ As String: EBLZ = Space (8)
Dim Shared EKontoNr As String: EKontoNr = Space (10)
Dim Shared FirmaNr As Short: FirmaNr = 0
Dim Shared XS As String: XS = Chr(0) & "S"
Dim Shared xe As String: xe = Chr(27)
TYPE FirmenDatei
As Short DFirmaNr: ' = 0
As String DName: ' String * 30
As String DStrasse: ' String * 25
As String DOrt: ' String * 25
As String DBankname: ' String * 20
As String DBLZ: ' String * 8
As String DKontoNr: ' String * 10
End Type
Dim Shared Fir AS FirmenDatei: ' Länge = 120
Open "SAVETEST.DIR" For RANDOM As #1 Len = 120 'Len (Fir)
Declare Sub DateiSchreiben ()
EFirmaNr = 1
EName = "Otto Mayer Verlag HH"
EStrasse = "Haus am Bach 22"
EOrt = "12345 Nirgendhausen"
EBankname = "Hansis Hausbank Berlin"
EBLZ = "87654321"
EKontoNr = "0085246357"
Print EFirmaNr
Print EName
Print EStrasse
Print EOrt
Print EBankname
Print EBLZ
Print EKontoNr
Sleep
DateiSchreiben
'Print Fir
Sleep
End
' ***** Daten in Datei schreiben *****
Public Sub DateiSchreiben
FirmaNr = EFirmaNr '<< ???????
Fir.DFirmaNr = EFirmaNr
Fir.DName = EName
Fir.DStrasse = EStrasse
Fir.DOrt = EOrt
Fir.DBankname = EBankname
Fir.DBLZ = EBLZ
Fir.DKontoNr = EKontoNr
Print: Print: Print "<";Fir.DFirmaNr;"|"; Fir.DName;"|"; Fir.DStrasse;"|"; Fir.DOrt;"|"; Fir.DBankname;"|"; Fir.DBLZ;"|"; Fir.DKontoNr;">"
Print: Print Fir
'Put #1, FirmaNr, Fir
End Sub