title image


Smiley Re: Arrays in eine Datei schreiben (VB 6)
Hallo, hier noch ein Beispiel mit einem 2-Dimensionalen Array.

Private Sub Command1_Click()

Dim Daten(5, 5) As String

Dim Nr As Integer

Dim N As Long

 

Daten(1, 0) = "Hans"

Daten(2, 0) = "Dieter"

Daten(3, 0) = "Frank"

Daten(4, 0) = "Klaus"

Daten(5, 0) = "Michael"

 

Daten(0, 1) = "25"

Daten(0, 2) = "18"

Daten(0, 3) = "42"

Daten(0, 4) = "63"

Daten(0, 5) = "12"

 

Nr = FreeFile

 

Open "D:\Test.txt" For Append As #Nr

For N = 1 To UBound(Daten)

Print #Nr, Daten(N, 0) & Space(10 - Len(Daten(N, 0))) & Daten(0, N)

Next

Close #Nr

 

End Sub

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: