Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hilfe, Dieter ! ! ! ? !
Autor: Chris
Datum: 05.09.01 15:07
Hi, Dieter ' Du hast mir doch damals den VBCode gegeben für folgende Funktion (*dank): Aus allen Dateien die sich im Verzeichniss "C:Eigene Dateien\" befinden die erste Zeile zu der ersten Spalte hinzufügen, die zweite Zeile zu der zweiten Spalte hinzufügen und die dritte Zeile zu der dritte Spalte hinzufügen, die fierte Zeile zu der fierten Spalte hinzufügen und die fünfte zeile zu der fünften Spalte eines MSHFlexGrid's hinzufügen. Und dann ergibt das eine Liste(MSHFlexGrid) mit den ganzen Datei-innhalten (nur die ersten 5-Zeilen) die sich im Verzeichniss "C:Eigene Dateien\" enthalten. Und das währe mal der Code dafür: ' Me.MSHFlexGrid1.Clear Dim DirName As String Dim T As Integer Dim lRow As Long Dim lCol As Long Dim sText As String With Me.MSHFlexGrid1 .Rows = .FixedRows lRow = .Rows DirName = Dir("c:Eigene Dateien*.*", vbNormal) While DirName <> "" If DirName <> "." And DirName <> ".." Then lRow = lRow + 1 .Rows = lRow .Row = lRow - 1 T = FreeFile Open "c:Eigene Dateien\" & DirName For Input As #T lCol = 0 While Not EOF(T) And lCol < 5 Line Input #T, sText .Col = lCol: .Text = sText lCol = lCol + 1 Wend Close #T End If DirName = Dir Wend End With ' So, jetzt möchte ich das aber mit dem Thema "Jede 2. Zeile durchsuchen" verbinden. Jetzt sollen nur diese Dateien aufgelistet werden die in der zweiten Zeile das Wort "Hallo" enthalten - nach dem gleichen systhem wie oben (erste Zeile zu erste Spalte.....) ' Danke fürs Lesen ! ! ! ' MfG Chris

Jede 2. zeiledurchsuchen - bitte, bitte helfen!	89	Chris	03.09.01 20:36
Re: Jede 2. zeiledurchsuchen - bitte, bitte helfen!	419	unbekannt	03.09.01 21:01
Uupps... (oT)	539	Dieter	03.09.01 21:09
Wieso?	387	unbekannt	03.09.01 21:13
Re: Jede 2. zeiledurchsuchen - bitte, bitte helfen!	462	Dieter	03.09.01 21:08
Re: Jede 2. zeiledurchsuchen - bitte, bitte helfen!	63	Chris	04.09.01 09:16
Re: Jede 2. zeiledurchsuchen - bitte, bitte helfen!	64	Chris	04.09.01 11:17
Hilfe, Dieter ! ! ! ? !	82	Chris	05.09.01 15:07
Bitte helfen ! ! !	54	Chris	07.09.01 11:03
Re: Bitte helfen ! ! !	649	Dieter	07.09.01 11:16
Re: Bitte helfen ! ! !	53	Chris	07.09.01 12:33
Re: Bitte helfen ! ! !	364	Dieter	07.09.01 12:42
Funktioniert ! - Danke Dieter ! zum Glück gibt es das Forum!...	59	Chris	07.09.01 14:47
Großbuchstaben in Kleinbuchstaben umwandeln	59	Chris	07.09.01 15:38

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