Lave vb-script til at kontrollere en XML fil for fejl

Du skal erstatte & med &

Og du kan selvfølgelig godt lave et script.

Vi snakker VBScript ikke ?

dvs. &amp godt kan optræde i xml uden problemer?

jo vi taler vbscript, der skal afvikles i DTS.

&

semikolon til sidst

Ja

Har du et script jeg kan bruge?

Jeg er ikke VBScript kyndig, men noget a la:

Set f1 = fso.OpenTextFile("c:\in.xml", 1)
Set f2 = fso.OpenTextFile("c:\out.xml", 2, True)
s1 = f1.ReadAll
s2 = Replace(s1,"&","&")
f2.Write(s2)
f2.Close
f1.Close

Jeg takker mange gange for hjælpen! Scriptet kom til at se ud som følger:

    Dim fso, f1, f2, s1, s2
    Set fso = CreateObject("Scripting.FileSystemObject")


    Set f1 = fso.OpenTextFile("c:\test.xml", 1)
    Set f2 = fso.OpenTextFile("c:\testTmp.xml", 2, True)
    s1 = f1.ReadAll
    s2 = Replace(s1,"&","&")
    f2.Write(s2)
    f2.Close
    f1.Close

    ' Clean Up
    Set oFSO = Nothing

Smid et svar så er det point!

svar