Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1772to1776
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
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige