Moin! Dann so. Da wird nochmal geprüft, ob es ein *Extra gibt. Wenn ja, wird der Teile verworfen. Trim entfernt eigentlich nur die Leerzeichen. Das aufteilen erfolgt mit split. Vg
Sub auslesen()
Dim DatNR As Long
Dim Dateiname As String
Dim inhalt As String
DatNR = FreeFile
Dateiname = "mein Pfad zur Datei" 'hier den Pfad zur Datei eintragen bspw. C:\test.txt
Open Dateiname For Input As DatNR
inhalt = Input(LOF(DatNR), DatNR)
Close DatNR
'jetzt zurechtstutzen
inhalt = Trim(Split(inhalt, "Node")(1))
If InStr(1, inhalt, "*Extra", vbTextCompare) > 1 Then
inhalt = Trim(Split(inhalt, "*Extra")(0))
End If
inhalt = Replace(inhalt, ",", "")
inhalt = Replace(inhalt, ". ", " ")
MsgBox inhalt
End Sub
|