Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei bis an Markierung auslesen
Autor: Maic
Datum: 23.04.02 14:36
Hallo zusammen !!! Ich möchte den Inhalt einer Datei in ein Flexgrid einlesen. Als Markierung für das ENDE habe ich ***END***. D.h. das Programm soll die Datei in das Flexgrid Zeilenweise einlesen, bis "***END***" in der Datei (Line) kommt. Wenn es dann schließlich auf "***END***" stößt, soll das nächste Flexgrid eingelesen werden. D.h. es soll mit dem einlesen in das aktuelle Flexgrid aufhören. Hier der bisherige QC zum einlesen einer Datei Spaltenweise: ################################################################### 'Öffnen des Planes########### ' Inhalt eines FlexGrid-Controls einlesen ' sFilename: Dateiname inkl. vollständigen Pfad ' SaveFixesRowCols: True, wenn Texte der FixedRows ' und FixedCols-Zellen eingelesen werden soll ' =================================================== Private Sub FlexGrid_LoadFromFile(Grid As MSFlexGrid, _ ByVal sFilename As String, _ Optional ByVal SaveFixedRowCols As Boolean = True) Dim F As Integer Dim lRow As Long Dim lCol As Long Dim lRowStart As Long Dim lColStart As Long Dim sLine As String Dim sCols() As String ' Existiert die Datei überhaupt? If Dir(sFilename, vbNormal) <> "" Then ' Datei für das Lesen der Daten öffnen F = FreeFile Open sFilename For Input As #F With Grid ' Startzeile / Spalte lRowStart = IIf(SaveFixedRowCols, 0, .FixedRows) lColStart = IIf(SaveFixedRowCols, 0, .FixedCols) ' Textdatei zeilenweise einlesen lRow = lRowStart While Not EOF(F) Line Input #F, sLine If sLine <> "" Then ' Zeile in einzelne Spalten zerlegen sCols = Split(sLine, vbTab) If UBound(sCols) < .Cols Then _ ReDim Preserve sCols(.Cols) ' Spalteninhalt ins Grid übertragen For lCol = lColStart To .Cols - 1 .TextMatrix(lRow, lCol) = sCols(lCol) Next lCol lRow = lRow + 1 End If End If Wend End With ' Datei schliessen Close #F End If End Sub Ich hoffe ihr versteht was ich machen will, ansonsten einfach nachfrqgen ! Maic

Datei bis an Markierung auslesen

40

Maic

23.04.02 14:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen