Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1. und 4. Zeile der TXT-Datei lesen?

Forumthread: 1. und 4. Zeile der TXT-Datei lesen?

1. und 4. Zeile der TXT-Datei lesen?
26.07.2020 21:13:35
Sergej
Hallo Leute,
wie kann ich bitte per VBA überprüfen, ob in erster Zeile der Datei D:\Daten\Support\Einstellungen.txt der Eintrag "drucken=ja" und in vierte Zeile "update=nein" steht?
Besten Dank im Voraus.
Gruß,
Sergej
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
sorry, hab nicht gesehen das es aus .txt ist owt
26.07.2020 21:31:17
ralf_b
AW: 1. und 4. Zeile der TXT-Datei lesen?
26.07.2020 23:27:08
volti
Hallo Sergej,
teste mal nachfolgendes Makro:




	
	
	
	




Sub Text_TesteFile()
 Dim iFF As Integer, sFilename As String, sArr() As String
 
 sFilename = "D:\Daten\Support\Einstellungen.txt"
 iFF = FreeFile
 If Dir(sFilename) <> "" Then                             'Ist Datei vorhanden?
   Open sFilename For Input As iFF                        'Datei öffnen
   sArr = Split(Input(LOF(iFF), iFF), vbCrLf)             'Daten in Array einlesen
   Close iFF
   If InStr(sArr(0), "drucken=ja") > 0 And InStr(sArr(3), "update=nein") > 0 Then
      MsgBox "Fund"
   End If
 End If

End Sub
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: 1. und 4. Zeile der TXT-Datei lesen?
27.07.2020 09:07:56
Sergej
Guten Morgen Karl-Heinz,
das funktioniert sehr gut. Vielen herzlichen Dank.
In einem anderem Fall, würde ich gerne zeilenweise (keine fixe Zeilen) nach Texten suchen. Wie mache ich das bitte?
Beste Grüße,
Sergej
AW: 1. und 4. Zeile der TXT-Datei lesen?
27.07.2020 11:33:06
volti
Hi Sergej,
hier eine (ungetestete) Version:
Sub Text_TesteFile()
 Dim iFF As Integer, i As Integer
 Dim sFilename As String, sArr() As String
 
 sFilename = "D:&bsol;Daten&bsol;Support&bsol;Einstellungen.txt"
 iFF = FreeFile
 If Dir(sFilename) <> "" Then                             'Ist Datei vorhanden?
   Open sFilename For Input As iFF                        'Datei öffnen
   sArr = Split(Input(LOF(iFF), iFF), vbCrLf)             'Daten in Array einlesen
   Close iFF
   For i = 0 To UBound(sArr)
     If InStr(sArr(i), "drucken=ja") > 0 Then
        If MsgBox("Fund. Schleife verlassen?", vbYesNo Or vbQuestion) = vbYes Then Exit For
     End If
   Next i
 End If

End Sub
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: 1. und 4. Zeile der TXT-Datei lesen?
28.07.2020 11:10:56
Sergej
Hallo Karl-Heinz,
das funktioniert sehr gut. Vielen herzlichen Dank.
Beste Grüße,
Sergej
;

Beliebteste Forumthreads (12 Monate)

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