Visual Basic

Dim objStreamReader As New System.IO.StreamReader("jobs.xml")
Dim jobarray() As Job
Dim i As Integer
Dim x As New XmlSerializer(jobarray.GetType)
jobarray = CType(x.Deserialize(objStreamReader), jobarray)

Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
 
Module Module1
 
    Public Jobs() As Job
    Private NUMJOBS As Integer = 10
 
    Sub Main()
        ReDim Jobs(NUMJOBS)
        FillJobs()
        XMLSerialize()
        ReDim Jobs(NUMJOBS)
        XMLDeserialize()
    End Sub
 
    Public Sub FillJobs()
        For x As Integer = 0 To NUMJOBS
            Jobs(x) = New Job
            Jobs(x).strCmdLine = "CommandLine" & x.ToString
            Jobs(x).strDescription = "Description" & x.ToString
            Jobs(x).strName = "Name" & x.ToString
        Next
    End Sub
 
    Public Sub XMLSerialize()
        Dim objStreamWriter As New StreamWriter("jobs.xml")
        Dim x As New XmlSerializer(Jobs.GetType())
        x.Serialize(objStreamWriter, Jobs)
        objStreamWriter.Close()
    End Sub
 
    Public Sub XMLDeserialize()
        Dim objStreamReader As New StreamReader("jobs.xml")
        Dim x As New XmlSerializer(Jobs.GetType())
        Jobs = CType(x.Deserialize(objStreamReader), Job())
    End Sub
End Module
 
Public Class Job
    ' main settings
    Public strName As String
    Public strDescription As String
    Public strCmdLine As String
End Class

This is HTML

This is Visual Basic code

The parameter is equal to 1

The parameter is not equal to 1