VB6 DOCTYPE in einen XML-File löschen

Computer: Software & Programmierung Visual Basic
1

Hallo,

wie kann ich mittels VB die DOCTYPE in einen XML-File löschen? Ich habs mit „getElementsByTagName“ versucht, geht aber leider nicht.

Dim doct As IXMLDOMNodeList
Dim xmlFile As MSXML2.DOMDocument30
Set xmlFile = New DOMDocument30
xmlFile.Load („C:\test.xml“)
Set doct = xmlFile.getElementsByTagName("???")

XML-File:

<?xml version="1.0" encoding="ISO-8859-1"?>HOMEFULL

Grüße

2

wie kann ich mittels VB die DOCTYPE in einen XML-File löschen?
Ich habs mit „getElementsByTagName“ versucht, geht aber leider
nicht.

Hi Albert,

ungetestet als Ansatz. Seltsamerweise finde ich in Excel2000-Vba kein „Rename“ deshalb das „Move“.

Option Explicit
'
Sub tt()
Dim Satz As String
Close
Open "C:\test.xml" For Input As #1
Open "C:\test2.xml" For Output As #2
While Not EOF(1)
 Line Input #1, Satz
 If InStr(Satz, ") 1 Then Print #2, Satz
Wend
Close
Kill "C:\test.xml"
Move "C:\test2.xml", "C:\test.xml"
End Sub

Gruß
Reinhard

3

Hallo Reinhard,

es hat funktioniert. Danke!

Grüße Albert

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]