Bestimmte Inhalte aus XML auslesen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub HoleDaten() Dim iFF As Integer, sFilename As String Dim sArr2() As String, sArr() As String Dim iOutZeile As Long, iZeile As Long sFilename = "D:\Daten\Parametrik\Defintionen.xml" iFF = FreeFile If Dir(sFilename) <> "" Then ' Ist Datei vorhanden? Open sFilename For Input As iFF ' Datei öffnen sArr = Split(Input(LOF(iFF), iFF), vbCrLf) ' Daten in Array einlesen Close iFF iOutZeile = 1 For iZeile = 0 To UBound(sArr) ' Alle Zeilen durchgehen sArr2 = Split(sArr(iZeile), "_Bibliothek=") ' Suchbegriff suchen If UBound(sArr2) > 0 Then ActiveSheet.Cells(iOutZeile, "A").Value = Replace(sArr2(1), Chr$(34), "") iOutZeile = iOutZeile + 1 End If Next iZeile End If End Sub

Hallo Sergej,
schaue mal, ob es jetzt besser passt.
Man muss halt immer alles relevante sehen und nicht nur Ausschnitte... :-)

Code:


[Cc]

Sub HoleDaten()
  Dim iFF As Integer, sFilename As String
  Dim sArr2() As String, sArr() As String
  Dim iOutZeile As Long, iZeile As Long
 
'D:&bsol;Daten&bsol;Parametrik&bsol;Defintionen.xml"
 sFilename = "C:&bsol;CustomUIEditor&bsol;Samples&bsol;Defintionen.xml"
  iFF = FreeFile
  If Dir(sFilename) <> "" Then                          ' Ist Datei vorhanden?
     Open sFilename For Input As iFF                    ' Datei öffnen
     sArr = Split(Input(LOF(iFF), iFF), vbCrLf)         ' Daten in Array einlesen
     Close iFF
     iOutZeile = 1
     For iZeile = 0 To UBound(sArr)                     ' Alle Zeilen durchgehen
       sArr2 = Split(sArr(iZeile), "_Bibliothek=")      ' Suchbegriff suchen
       If UBound(sArr2) > 0 Then
          sArr2 = Split(sArr2(1) & Chr$(34), Chr$(34))
          ActiveSheet.Cells(iOutZeile, "A").Value = sArr2(1)
         iOutZeile = iOutZeile + 1
       End If
     Next iZeile
  End If

End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Code: [Cc] Sub HoleDaten() Dim iFF As Integer, sFilename As String Dim sArr2() As String, sArr() As String Dim iOutZeile As Long, iZeile As Long sFilename = "D:\Daten\Parametrik\Defintionen.xml" iFF = FreeFile If Dir(sFilename) <> "" Then ' Ist Datei vorhanden? Open sFilename For Input As iFF ' Datei öffnen sArr = Split(Input(LOF(iFF), iFF), vbCrLf) ' Daten in Array einlesen Close iFF iOutZeile = 1 For iZeile = 0 To UBound(sArr) ' Alle Zeilen durchgehen sArr2 = Split(sArr(iZeile), "_Bibliothek=") ' Suchbegriff suchen If UBound(sArr2) > 0 Then sArr2 = Split(sArr2(1) & Chr$(34), Chr$(34)) ActiveSheet.Cells(iOutZeile, "A").Value = sArr2(1) iOutZeile = iOutZeile + 1 End If Next iZeile End If End Sub

Code: [Cc] Sub HoleDaten() Dim iFF As Integer, sFilename As String Dim sArr() As String Dim iOutZeile As Long, iZeile As Long sFilename = "D:\Daten\Parametrik\Defintionen.xml" iFF = FreeFile If Dir(sFilename) <> "" Then ' Ist Datei vorhanden? Open sFilename For Input As iFF ' Datei öffnen sArr = Split(Input(LOF(iFF), iFF), "_Bibliothek=") ' Daten in Array einlesen Close iFF iOutZeile = 1 For iZeile = 1 To UBound(sArr) ' Alle Zeilen durchgehen ActiveSheet.Cells(iOutZeile, "A").Value = _ Split(sArr(iZeile) & Chr$(34), Chr$(34))(1) iOutZeile = iOutZeile + 1 Next iZeile End If End Sub

Beliebteste Forumthreads (12 Monate)

Bestimmte Inhalte aus XML auslesen?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Inhalte aus XML auslesen?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread