Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1620to1624
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
Inhaltsverzeichnis

Zugriff auf geöffnete Textdatei

Zugriff auf geöffnete Textdatei
26.04.2018 10:17:59
Jürgen
Hallo
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf geöffnete Textdatei
26.04.2018 10:30:22
mmat
Hallo Jürgen,
um in der Funktion auf die Datei zuzugreifen musst du TextDat selbst als Parameter übergeben. Derzeit übergibst du ja nur 'ne Zeile (als Zeichenfolge)
btw. Das wäre m. E. ein schlechter Stil ...
vg, MM
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige