Hej, jag undrar hur man skapar en väldig enkel xml fil i VB6??
Det jag önskar att ha med i filen är två element. thats all!

/Tony

Jag har en fil med xml-huvudet lagrad som jag börjar processen med. Den innehåller denna information
<?xml version="1.0" encoding="iso-8859-1" ?>
Sen skriver jag bara ut xmlraderna som de skall vara. Nedanstående exempel hämtar data från en msflexgrid och skapar en xml-fil av det.
mvh Claes

filnamn$ = App.Path & "\SE" & Format$(Now, "yyyymmddhhmmss") & ".xml"
FileCopy App.Path & "\xmlhuvud.txt", filnamn$
Open filnamn$ For Append As #1
Print #1, "<DATA ver=""1.0"" lab=""" & Text2.Text & """ Dasend=""" & Format$(Now, "YYYYMMDD") & """ Tisend = """ & Format$(Time, "HH:MM:SS") & """> "
Print #1, "<ANADEF id=""577"" Beskr=""" & Text3.Text & """ Enh=""" & Text4.Text & """/>"
With MSFlexGrid1
For i% = 1 To .Rows - 1
If .TextMatrix(i%, 0) = "" Then Exit For
testdat$ = "20" & Left$(.TextMatrix(i%, 2), 2) & "-" & Mid$(.TextMatrix(i%, 2), 3, 2) & "-" & Mid$(.TextMatrix(i%, 2), 5, 2)
If Not IsDate(testdat$) Then
MsgBox "Felaktigt inmatat datum. Skall vara i formen YYMMDD."
.Row = i%
.Col = 2
.SetFocus
Close #1
Kill filnamn$
Exit Sub
End If
If aktbes$ <> .TextMatrix(i%, 1) Or .TextMatrix(i%, 2) <> .TextMatrix(i% - 1, 2) Then 'skapa en ny start besnod
j% = 0
Print #1, "<BES idfor=""" & .TextMatrix(i%, 0) & """ idbes=""" & .TextMatrix(i%, 1) & """ Anadat=""" & Format$(Text5.Text, "YYYYMMDD") & """ Provdat=""" & Format$(testdat$, "YYYYMMDD") & """ Provgr=""GP"" >"
aktbes$ = .TextMatrix(i%, 1)
End If
j% = j% + 1
Print #1, "<PROV Nr=""" & Format$(j%, "0000") & """ Status=""0"">"
Print #1, "<ANA Id=""577"" Value=""" & .TextMatrix(i%, 4) & """/>"
Print #1, "<KO Value=""" & .TextMatrix(i%, 3) & """/>"
Print #1, "</PROV>"
If aktbes$ <> .TextMatrix(i% + 1, 1) Or .TextMatrix(i% + 1, 2) <> .TextMatrix(i%, 2) Then 'skapa en ny slut besnod
Print #1, "</BES>"
aktbes$ = .TextMatrix(i%, 1)
End If
Next
Print #1, "</LABDATA>"
End With
Close #1