title image


Smiley Re: Arrays in eine Datei schreiben (VB 6)
Das funktioniert genauso wie bei VBA auch. Ist das nun ein zweidimensionales Array, was du hast, oder ist es ein Array mit insgesamt zwei Feldern, eines für den Namen und eines für das Alter? Für den zweiten Fall:



Option Explicit



Private Sub Command1_Click()

Dim arr(1) As String 'Array deklarieren und dimensionieren

Dim zieldatei As String 'Variable für Zieldateinamen

Dim ff As Integer 'Variable für freie Kanalnummer für Dateizugriff



zieldatei = "d:\irgendwas.txt" 'Zieldatei mit komplettem Pfad benennen



arr(0) = "Irgendwer" 'Eintrag im Array erzeugen

arr(1) = "24" 'Eintrag im Array erzeugen



ff = FreeFile() 'Freie Dateizugriffsnummer vom System suchen lassen



Open zieldatei For Append As ff 'Datei öffnen zum Anhängen

Print #ff, arr(0) & ", " & arr(1) 'Array-Inhalte ans Dateiende anhängen

Close ff 'Datei schließen, Dateizugriff beenden



MsgBox "Fertig!" 'Abschlussmeldung



End Sub



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: