.NET (Core and Framework)

Private Shared Function SetCfgData() As Boolean

   Try
     Dim fs As New FileStream(CGlobali.CfgDataFileComplName, FileMode.Open)
     Dim xr As XmlReader = System.Xml.XmlReader.Create(fs)

     'CGlobali.CfgData is a DataSet
     CGlobali.CfgData.Clear()
     CGlobali.CfgData.ReadXml(xr)

     xr.Close()
     fs.Close()

   Catch ex As System.IO.FileNotFoundException
     MessageBox.Show("File " & CGlobali.CfgDataFileComplName & " not found.")
     Return False
   Catch ex As XmlException
     MessageBox.Show("XmlException occured: " & ex.ToString)
     Return False
   End Try

   Return True

Private Shared Function UpdateCgfFile() As Boolean

  Try
    Dim StreamEncoding As Encoding
    StreamEncoding = Encoding.Unicode
    Dim cfgfile As New System.IO.StreamWriter(CGlobali.CfgDataFileComplName, True, StreamEncoding)

    CGlobali.CfgData.WriteXml(cfgfile)

    cfgfile.Close()

    Return True
  Catch ex As Exception
    Return False
  End Try
End Function

<?xml version="1.0" encoding="UTF-16"?>
<Sezioni>
  <PLC>
    <IP>10.0.0.85</IP>
    <Port>502</Port>
    <Description></Description>
    <PauComm>15000</PauComm>
    <ConTOut>5000</ConTOut>
    <RxTOut>5000</RxTOut>
  </PLC>
</Sezioni>

<?xml version="1.0" encoding="UTF-16"?>
<Sezioni>
  <PLC>
    <IP>10.0.0.85</IP>
    <Port>502</Port>
    <Description></Description>
    <PauComm>15000</PauComm>
    <ConTOut>5000</ConTOut>
    <RxTOut>5000</RxTOut>
  </PLC>
</Sezioni>
<Sezioni>
  <PLC>
    <IP>192.168.1.10</IP>
    <Port>502</Port>
    <Description />
    <PauComm>15000</PauComm>
    <ConTOut>5000</ConTOut>
    <RxTOut>5000</RxTOut>
  </PLC>
</Sezioni>