title image


Smiley Inwiefern hast du Probleme, die Daten einer Textdatei in dein MSFlexGrid...
auszulesen?



Angenommen, dein MSFlexGrid hat 5 Spalten, dann heißen die Indizes der Spalten 0 bis 4. Gehen wir nun von einer unbekannten Anzahl an Zeilen aus. Der Inhalt der Textdatei sieht folgendermaßen aus und ist durch ein Pipe-Zeichen voneinander getrennt:



eins|zwei|drei|vier|fünf

sechs|sieben|acht|neun|zehn

elf|zwölf|dreizehn|vierzehn|fünfzehn





Der Code sieht dann z. B. so aus:



Option Explicit



Private Sub Command1_Click()



Dim i As Integer

Dim j As Integer

Dim ff As Integer

Dim zeile As String

Dim arr() As String

Dim datei As String



datei = "d:\fg.txt"



ff = FreeFile()



With MSFlexGrid1

.Cols = 5

.FixedCols = 0

.FixedRows = 1

For j = 0 To 4

.TextMatrix(0, j) = "Überschrift " & j

Next j

End With



Open datei For Input As ff

Do While Not EOF(ff)

Line Input #ff, zeile

i = i + 1

arr() = Split(zeile, "|")

With MSFlexGrid1

.Rows = i + 1

For j = 0 To 4

.TextMatrix(i, j) = arr(j)

Next j

End With

Loop

Close ff



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: