Herbers Excel/VBA-Archiv

Bestimmten Inhalt "Version" auslesen?

• Bestimmten Inhalt "Version" auslesen? von Sergej vom 18.10.2020 14:12:36
• AW: Bestimmten Inhalt "Version" auslesen? - von volti am 18.10.2020 15:34:59
  • AW: Bestimmten Inhalt "Version" auslesen? - von Sergej am 18.10.2020 16:24:09

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
 

  

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?"