Sub
auslesen()
Dim
DatNR
As
Long
Dim
Dateiname
As
String
Dim
inhalt
As
String
DatNR = FreeFile
Dateiname =
"mein Pfad zur Datei"
Open Dateiname
For
Input
As
DatNR
inhalt = Input(LOF(DatNR), DatNR)
Close DatNR
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