vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Bestimmte Stelle aus Textdatei auslesen. 
Autor: VBRunner
Datum: 26.06.07 01:36
Hi,

hier nochmal den Code - getestet!
Der Sub Test liefert über Debug.print nur die Pfade von Textdateien(*.txt) aus dem jeweiligen Hauptordner.
Probiers aus. 
 
Private Sub Test()
Dim Datei1, Pfad1, Name1
Dim myTextFile As String, n&
File1.Pattern = "*.txt"
Pfad1 = "c:\" ' Pfad deines Hauptordners setzen.
Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen.
Do While Name1 <> "" ' Schleife beginnen.
' aktuelles und übergeordnetes Verzeichnis ignorieren.
If Name1 <> "." And Name1 <> ".." Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein Verzeichnis ist.
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
With File1
.Path = (Pfad1 & Name1) 'ermittelten Ordner als Pfad für File1 setzen
.Refresh
For n = 0 To .ListCount
myTextFile = (.Path & "\" & File1.List(n))
Debug.Print myTextFile
'+++ HIER ZUM LESEN DER DATEI VERZWEIGEN
Next n
End With
End If
End If
Name1 = Dir ' Nächsten Eintrag abrufen.
Loop
End Sub


cu,

VBRunner
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bestimmte Stelle aus Textdatei auslesen.943yaqwerdx17.06.07 22:41
Re: Bestimmte Stelle aus Textdatei auslesen.651VBRunner19.06.07 04:41
Re: Bestimmte Stelle aus Textdatei auslesen.620yaqwerdx19.06.07 05:45
Re: Bestimmte Stelle aus Textdatei auslesen.728DerBaer19.06.07 06:56
Re: Bestimmte Stelle aus Textdatei auslesen.579yaqwerdx21.06.07 18:43
Re: Bestimmte Stelle aus Textdatei auslesen.717VBRunner21.06.07 23:03
Re: Bestimmte Stelle aus Textdatei auslesen.673yaqwerdx25.06.07 12:33
Re: Bestimmte Stelle aus Textdatei auslesen.595DerBaer25.06.07 14:16
Re: Bestimmte Stelle aus Textdatei auslesen.584VBRunner25.06.07 21:44
Re: Bestimmte Stelle aus Textdatei auslesen.564yaqwerdx26.06.07 00:08
Re: Bestimmte Stelle aus Textdatei auslesen.595VBRunner26.06.07 01:36
Re: Bestimmte Stelle aus Textdatei auslesen.563VBRunner26.06.07 01:53
Re: Bestimmte Stelle aus Textdatei auslesen.561yaqwerdx26.06.07 12:57

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel