Bestimmte Werte aus der Datei auslesen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim raFund As Range, strWert1 As String, strWert2 As String Set raFund = Columns("A").Find(what:="[/Main]", LookIn:=xlValues, lookat:=xlWhole) If Not raFund Is Nothing Then strWert1 = raFund.Offset(1) strWert2 = raFund.Offset(2) strWert1 = Replace(strWert1, "[", "") strWert1 = Replace(strWert1, "]", "") MsgBox strWert1 & " " & Split(strWert2, ",")(0) Else MsgBox "Der Suchbegriff /Main wurde nicht gefunden." End If Set raFund = Nothing End Sub

Hallo Ralf,
gerne möchte ich dir antworten, da du mir hier sehr oft geholfen hast.
Ich habe gestern Abend recherchiert und ein paar Beispiele gefunden, leider habe ich nicht geschafft mit dem Code in die nächsten Zeilen ab [/Main] "zu springen". Das hätte ich schreiben sollen.

Sub ReadTXT()
Dim iFile As Integer
Dim sSearch As String, sTxt As String
Dim sFile As String
iFile = FreeFile
sFile = "M:\projekte\2020\Import\Master.txt"
sSearch = "[/Main]"
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
sTxt = Replace(sTxt, "[", "")
sTxt = Replace(sTxt, "]", "")
Debug.Print "Gefunden: " & sTxt
Exit Do
End If
Loop
Close iFile
End Sub

Beste Grße,
Sergej

Sub ReadTXT() Dim iFile As Integer Dim sSearch As String, sTxt As String Dim sFile As String iFile = FreeFile sFile = "M:\projekte\2020\Import\Master.txt" sSearch = "[/Main]" Open sFile For Input As iFile Do Until EOF(1) Input #iFile, sTxt If InStr(sTxt, sSearch) Then sTxt = Replace(sTxt, "[", "") sTxt = Replace(sTxt, "]", "") Debug.Print "Gefunden: " & sTxt Exit Do End If Loop Close iFile End Sub

ReadTXT() Dim iFile As Integer Dim sSearch As String, sTxt As String, sZeile As String Dim sFile As String iFile = FreeFile sFile = "M:\projekte\2020\Import\Master.txt" sSearch = "[/Main]" Open sFile For Input As iFile Do Until EOF(1) Input #iFile, sTxt If InStr(sTxt, sSearch) Then Input #iFile, sTxt sTxt = Replace(sTxt, "[", "") sTxt = Replace(sTxt, "]", "") MsgBox sTxt Input #iFile, sTxt MsgBox Split(sTxt, ",")(0) Exit Do End If Loop Close iFile End Sub

Beliebteste Forumthreads (12 Monate)

Bestimmte Werte aus der Datei auslesen?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Werte aus der Datei auslesen?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread