Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zeiger auf Zeile in Textdatei
zurück: Zelleninhalt auffassen und zählen weiter: Inhalt von Combobox löschen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Textsucher
Gast


Verfasst am:
28. Mai 2010, 14:50
Rufname:

Zeiger auf Zeile in Textdatei - Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

Hallo,

ich suche Text in einer txt Datei.

Code:
 
   Open sPfad For Input As #1
        Do While Not EOF(1) And g = 0
        Line Input #1, Eingelesen
        ...
        Loop
    Close #1


jetzt sind das über 100000 Zeilen und ich weiß, dass mein Text erst nach der 50000-sten Zeile kommt.

Kann ich irgendwie schon dahin Springen und erst ab dieser Zeile in der Textdatei weitersuchen.

Danke.
r.mueller
Gast


Verfasst am:
28. Mai 2010, 15:17
Rufname:


AW: Zeiger auf Zeile in Textdatei - AW: Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

Hallo

Woran erkennst du deinen gesuchten Text genau???

Gruß
r.mueller
Textsucher
Gast


Verfasst am:
28. Mai 2010, 16:38
Rufname:

AW: Zeiger auf Zeile in Textdatei - AW: Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

Also ich habe eine ISIN z.B. DE0007100000
Diese suche ich in der Textdatei.
Die Textdatei hat aber vorher noch ISIN's mit anderen Länderkennungen z.B. AT oder CH.
Die werden alle erst noch "angeschaut".
Ich habe Zähler, die mir sagen, ab welcher Zeile die DE ISIN's auftreten. Ich will also nicht wie bisher jede Zeile einzeln durchsuchen, sondern zu der Zeile=Zähler springen und von dort anfangen zu suchen.
Suchen und finden und danach gleich abbrechen ist alles schon erstellt. Nur für das Springen zur Zeile habe ich keine Idee.
Phelan XLPH
Fortgeschritten


Verfasst am:
28. Mai 2010, 17:50
Rufname: Phelan

AW: Zeiger auf Zeile in Textdatei - AW: Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

Hallo,

was besseres ist mir nicht eingefallen:

Code:
Sub ph()
   Dim sPfad  As String, i As Long
   Dim Eingelesen As String, FF As Integer
   Dim arr As Variant
   sPfad = "d:\test\a100.txt" 'Anpassen
   FF = FreeFile
   Open sPfad For Input As #FF
        Eingelesen = Input(LOF(FF), #FF)
   Close #FF
       
   arr = Split(Eingelesen, vbCrLf)
   
   For i = 50000 To UBound(arr)
    MsgBox arr(i)
    Exit For
   Next
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Textsucher
Gast


Verfasst am:
28. Mai 2010, 18:58
Rufname:

AW: Zeiger auf Zeile in Textdatei - AW: Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

Hi Glücksritter,

witzig, mit dem arre habe ich auch schon so ähnlich gemacht. Ich hatte nur gehofft, es gäbe eine andere Lösung.
Danke dir trotzdem für deine gute Idee, denn jeder Vorschlag ist gerne gesehen.
Wink

Schöne WE an alle
Phelan XLPH
Fortgeschritten


Verfasst am:
28. Mai 2010, 20:37
Rufname: Phelan

AW: Zeiger auf Zeile in Textdatei - AW: Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

oder so:

Code:
Sub ph2()
    Dim fs, a, retstring, i As Long
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile("d:\test\a100.txt", 1, False)
    Do While a.AtEndOfStream <> True
        If a.Line > 50000 Then _
        retstring = a.ReadLine: Exit Do
        a.SkipLine
    Loop
    a.Close
    MsgBox retstring
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
_anton_
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Mai 2010, 21:22
Rufname:


AW: Zeiger auf Zeile in Textdatei - AW: Zeiger auf Zeile in Textdatei

Nach oben
       Version: Office 2003

Hallo ,

noch eine Variante:
Code:
Sub b()
  Dim fso As Object, DieDatei As Object, i As Long
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set DieDatei = fso.OpenTextFile("E:\test.txt", 1, False) 'anpassen
  For i = 1 To 50000
    DieDatei.SkipLine
  Next
  Do While DieDatei.AtEndOfStream <> True
    Debug.Print DieDatei.ReadLine
  Loop
  DieDatei.Close
  Set fso = Nothing
End Sub


mfg Anton
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Text aus Zeile ohne Finden-Funktion 2 Gast 675 30. März 2006, 12:35
Gast Text aus Zeile ohne Finden-Funktion
Keine neuen Beiträge Excel Formeln: Zeile kopieren per funktion 2 Gast_Mike 1181 13. März 2006, 11:57
Klaus-Dieter Zeile kopieren per funktion
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1615 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Keine neuen Beiträge Excel Formeln: Bestimmte Zeile summieren 2 Enkel Abrahams 678 09. Dez 2005, 11:37
Enkel Abrahams Bestimmte Zeile summieren
Keine neuen Beiträge Excel Formeln: in Zeile aus Spalten schreiben??? 6 robert_de 2318 25. Nov 2005, 12:10
robert_de in Zeile aus Spalten schreiben???
Keine neuen Beiträge Excel Formeln: Zeile einfügen per Schaltfläche 1 Bernie42 673 29. Okt 2005, 10:49
< Peter > Zeile einfügen per Schaltfläche
Keine neuen Beiträge Excel Formeln: Zahlen in einer Zeile auswerten nach den Größtwerten 11 Nicole-Fun 908 26. Okt 2005, 09:44
ransi Zahlen in einer Zeile auswerten nach den Größtwerten
Keine neuen Beiträge Excel Formeln: Wenn Wert = 0,00 dann Zeile davor und die eigene Grün 9 Speedy@Web 1993 22. Okt 2005, 20:19
Maxel3113 Wenn Wert = 0,00 dann Zeile davor und die eigene Grün
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1? 4 homer_134 3721 20. Sep 2005, 23:48
homer_134 SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1?
Keine neuen Beiträge Excel Formeln: Autofilter funktioniert nur bis Zeile 143?? 2 landau666 889 07. Sep 2005, 21:10
landau666 Autofilter funktioniert nur bis Zeile 143??
Keine neuen Beiträge Excel Formeln: bedingte Formatierung ganze Zeile enfärben 2 skyblue 2516 06. Sep 2005, 12:41
skyblue bedingte Formatierung ganze Zeile enfärben
Keine neuen Beiträge Excel Formeln: Vergleich Zeile mit einem Bereich (in einer WENN Funktion)? 2 GelbesAuge 2395 22. Aug 2005, 21:24
Gast Vergleich Zeile mit einem Bereich (in einer WENN Funktion)?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS