Microsoft Excel

Herbers Excel/VBA-Archiv

Bestimmten Inhalt "Version" auslesen?

Betrifft: Bestimmten Inhalt "Version" auslesen? von: Sergej
Geschrieben am: 18.10.2020 14:12:36

Hallo Leute,

wie kann ich bitte per VBA aus der Datei D:\Daten\Settings\Version.cfg nach diesen Text "#FINALE_VERSION#" suchen und dann die Version (im Beispiel 2.3) auslesen?

Beispiel:
....
#FINALE_VERSION#2.3# # #
....

Besten Dank im Voraus für die Unterstützung.

Viele Grüße,
Sergej

Betrifft: AW: Bestimmten Inhalt "Version" auslesen?
von: volti
Geschrieben am: 18.10.2020 15:34:59

Hallo Sergej,

hier eine Idee dazu. Unterstellt wird, dass die Version nur einmal vorkommt.

Code:
[Cc]
 
Sub Test() Dim sFilename As String, sArr() As String Dim iff As Integer sFilename = "D:\Daten\Settings\Version.cfg" iff = FreeFile If Dir(sFilename) <> "" Then 'Ist Datei vorhanden? Open sFilename For Input As iff 'Datei öffnen sArr = Split(Input(LOF(iff), iff), "#FINALE_VERSION#") 'Daten in Array aufsplitten If UBound(sArr) > 0 Then Debug.Print Split(sArr(1) & "#", "#")(0) 'Version ausgeben End If Close iff 'Datei schließen End If End Sub
 
____________________
viele Grüße aus Freigericht
Karl-Heinz


Betrifft: AW: Bestimmten Inhalt "Version" auslesen?
von: Sergej
Geschrieben am: 18.10.2020 16:24:09

Hallo Karl-Heinz,

vielen herzlichen Dank! Es funktioniert perfekt.


Beste Grüße,
Sergej

Beiträge aus dem Excel-Forum zum Thema "Bestimmten Inhalt "Version" auslesen?"