Xml

Halloj!

Om jag vill bearbeta XML i VB, kan jag använda XMLDOM som man gör med ASP, eller finns det något smartare sätt?

Ingår XMLDOM i MSXML3 eller MSXML4, och om jag installerar dessa på min server - kommer jag kunna använda DOMen via VB?

------------------
SPiN, bjorne.w@telia.com

-- Den som går i andras fotspår kommer aldrig först --

Svar på alla dina frågor är jajemen.
Gör det själv i mitt projekt som snart är 1½ år gammalt.

Mvh,

------------------
All your base are belong to me.

Toppen jue!

Jag tycker att det är konstigt att ingen fråga har ställts om XML här i VB-forumet än... Jag sökte o sökte, men inte fan hittade jag nånting ;)

Ett projekt på 1½ år? Får man fråga vad projektet handlar om då? Du kanske är webmaster förresten, och inte bara utvecklar en applikation och går vidare sen?

Jaja, jag ska sluta fråga! Tack för det snabba svaret :)

------------------
SPiN, bjorne.w@telia.com

-- Den som går i andras fotspår kommer aldrig först --

Well, det är löpande utveckling av en e-handelsapplikation. Komponenter, MSXML3, lite asp (så lite som möjligt) och överst ett lager xml-xsl. Skojsigt som attans faktiskt.

Webmaster? Usch, nej. ;)
Jag är systemutvecklare med e-handel som fokus, men jag jobbar endast med interna projekt, vilket har inneburit ett och samma webbprojekt sedan förra våren.

Mvh,

------------------
All your base are belong to me.

Intressant! Det är sånt som är kul ju!

Det var det jag tänkte; @nders som webmaster? Nej, nej... :)

Vilket företag arbetar du åt?

Red} Ah, såg det nu... Scribona, va? :)

Red_2} Eller, förresten, nej? Varför har du en länk till scribona.no i din profil eg.? :)

------------------
SPiN, bjorne.w@telia.com

-- Den som går i andras fotspår kommer aldrig först --

[Redigerat av SPiN den 16 okt 2001]

[Redigerat av SPiN den 16 okt 2001]

Eller, förresten, jo.

Jag jobbar åt Scribona, fast mitt fokus ligger helt på den norska marknaden. www.scribona.no är min lilla baby, och den rör man inte ostraffat. ;)

Den användes tidigare i Sverige också, men inte nu längre.

(Jag sitter alltså i Sverige och jobbar åt Mette-Marit.)

Mvh,

------------------
All your base are belong to me.

Där ser man :)

Nu är det ju så att jag inte lyckas med det här med XMLen... Vet inte vad jag gör för fel? :q

Det är möjligt att det är nånting när jag dimmar mina olika objekt, sätter de flesta till DOMDocument jue :)

Public Sub Log(ByVal strLogFile As String, ByVal strError As String)
    On Error Resume Next
    
    Dim objXML As MSXML.DOMDocument
    Dim objRoot As MSXML.DOMDocument
    Dim objNew As MSXML.DOMDocument
    Dim objEvent As MSXML.DOMDocument
    Dim bIsLoaded As Boolean
    
    Set objXML = New MSXML.DOMDocument
    objXML.async = False
    bIsLoaded = objXML.Load(strLogFile)
    
    If bIsLoaded Then
        Set objRoot = objXML.documentElement
    Else
        Set objRoot = objXML.createElement("IntranetLog")
        objXML.appendChild (objRoot)
    End If
    
    Set objNew = objXML.createElement("Event")
    
    Set objEvent = objXML.createElement("File")
    objEvent.Text = objRequest.ServerVariables("SCRIPT_NAME")
    objNew.appendChild (objEvent)
    
    Set objEvent = objXML.createElement("Date")
    objEvent.Text = Now()
    objNew.appendChild (objEvent)
    
    Set objEvent = objXML.createElement("Error")
    objEvent.Text = strError
    objNew.appendChild (objEvent)
    
    objRoot.appendChild (objNew)
    
    If Not bIsLoaded Then
        Dim objPI As MSXML.IXMLDOMProcessingInstruction
        Set objPI = objXML.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
        
        objXML.insertBefore objPI, objXML.childNodes(0)
        
        Set objPI = Nothing
    End If
    
    objXML.Save (strLogFile)
    
    Set objEvent = Nothing
    Set objNew = Nothing
    Set objRoot = Nothing
    Set objXML = Nothing
    
    If Err Then
        With objResponse
            .Clear
            .Write "<b>Error while writing logfile " & strLogFile & "</b><br>"
            .Write Err.Description
            .End
        End With
    End If
End Sub

Något uppenbart fel där? :q

------------------
SPiN, bjorne.w@telia.com

-- Den som går i andras fotspår kommer aldrig först --

Det är möjligt att det är nånting när jag dimmar mina olika objekt, sätter de flesta till DOMDocument jue

Det är möjligt.
Ditt dokument skall vara DOMDocument, men dina element skall vara MSXML2.IXMLDOMElement.

Mvh,

------------------
All your base are belong to me.

Och du, ta bort on error resume next, så du kan få felmeddelanden. Som jag kan få se. ;)

Mvh,

------------------
All your base are belong to me.

Aah! Där har vi nog problemet... IXMLDOMElement alltså :)

Men jag fångar väl mina errors med If Err Then, eller hur? För jag får ju ut felmeddelanden :)

Det löd nånting med property not set, eller likande. Kommer inte ihåg i huvudet, men det lät som att det hade att göra med typen av variabeln ;)

Tack!

------------------
SPiN, bjorne.w@telia.com

-- Den som går i andras fotspår kommer aldrig först --

Fortfarande samma fel, trots att jag har ändrat deklarationen...

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Object doesn't support this property or method

Finns det inget sätt att ta reda på vilken rad felet uppstår på? :q

------------------
SPiN, bjorne.w@telia.com

-- Den som går i andras fotspår kommer aldrig först --