Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

file öffnen und durchsuchen

file öffnen und durchsuchen
21.09.2006 10:08:23
RALF
Hallo zusammen,
ich möchte folgendes:
- öffne eine Datei (.txt), die Datensätze (Zeilen) fester Breite enthält
Open "Dateiname" For Input as #1
- durchsuche die Datei nach einem Kriterium, welches an einer bestimmten Stelle im Datensatz steht (z.B. Kriterium steht an der 5. bis 17. Stelle)
WIE TUE ICH DIES ?
Danke und Gruß
RALF

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: file öffnen und durchsuchen
21.09.2006 21:05:15
bst
Abend RALF,
HTH, Bernd
--
Option Explicit

Sub x()
    Dim intHandle As Integer, strOneLine As String, strPartLine As String
    
    intHandle = FreeFile
    Open "d:\test\xyz.txt" For Input As #intHandle
    While Not EOF(intHandle)
        Line Input #intHandle, strOneLine
        strPartLine = Mid(strOneLine, 5, 12)
        Debug.Print strPartLine
    Wend
    Close #intHandle
End Sub
Anzeige
AW: file öffnen und durchsuchen
22.09.2006 12:32:47
RALF
Moin,
danke für den code, aber das Zeilenweise suchen wollte ich eigentlich unterlassen.
Ich will die Datei öffnen und an die Stelle springen, an der das Kriterium steht....nicht jedenDatensatz angucken...
Vielleicht dafür noch ne Idee?
Gruß RALF
AW: file öffnen und durchsuchen
22.09.2006 13:33:23
bst
Hi RALF,
sowas vielleicht ?
cu, Bernd
--
Option Explicit

Sub x()
    Dim intHandle As Integer, strText As String, ipos As Integer
    
    intHandle = FreeFile
    Open "e:\test\xyz.txt" For Binary As #intHandle
    strText = Space(LOF(intHandle))
    Get intHandle, , strText
    Close #intHandle
    
    ipos = InStr(strText, "DeinKriterium")
    If ipos > 0 Then MsgBox Mid(strText, ipos + Len("DeinKriterium"), 12)
End Sub


Anzeige
Danke.....schön kurz, schnell, einfach (o.T.)
25.09.2006 17:14:49
RALF
Gruß RALF

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige