Zugriff auf geöffnete Textdatei
26.04.2018 10:17:59
Jürgen
Ich muss ein funktionierendes Macro umschreiben.
Die Procedure war eigentlich nicht elegant in Spagetti Manier programmiert.
Ich muss eine XML (vormals html) Datei analysieren um an die gewünschten Infos zu kommen.
Im "Hauptprogramm" öffne ich eine XML als
Dateiname = Application.GetOpenFilename("Dateityp (*.vrx),(*.vrx)")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextDat = FSO.OpenTextFile(Dateiname, 1, False)
Do While TextDat.AtEndOfStream True
TextZeile = Trim(TextDat.ReadLine)
.....
.....
Ergebnis = FindECU(TextZeile, "CEPC") ' .....
.....
TextZeile = Trim(TextDat.ReadLine)
Loop
-------------------------------------------------------------------------
Function FindECU(DZeile As Variant, ECUFind As Variant) As String
DZeile = Trim(TextDat.ReadLine)'----------------------------------------------
Wie kann ich aus einer aufgerufenen
Function heraus auf die Datei aus dem "Hauptprogramm" zugreifen ?
---------------------
Danke schon mal Jürgen
Anzeige