XML / XSL

<br />
Public Class XMLUtility<br />
    Private Sub New()<br />
    End Sub<br />
    Public Shared Function ReplaceIllegalXMLChars(ByVal s As String) As String<br />
        s = s.Replace("&", "&amp;")<br />
        s = s.Replace(">", "&gt;")<br />
        s = s.Replace("<", "&lt;")<br />
        s = s.Replace(ControlChars.Quote, "&quot;")<br />
        s = s.Replace("'", "'")<br />
        Return s<br />
    End Function<br />
End Class<br />

<br />
Option Strict Off<br />
Imports System.IO<br />
Imports System.Xml<br />
Module Module1<br />
<br />
    Sub Main()<br />
        Try<br />
            Dim iStartPositions As Integer() = {0, 4, 5, 14}<br />
            Dim sFixedWidthText As String = GetFileContents("C:\FixedWidthText.txt")<br />
            Dim sw As New StringWriter<br />
            Dim writer As New XmlTextWriter(sw)<br />
            writer.WriteStartElement("Rows")<br />
            Dim sRows As String() = sFixedWidthText.Split(vbCrLf)<br />
            Dim iRow, iColumn As Integer<br />
            Dim sRowText As String<br />
            Dim al As ArrayList<br />
            For iRow = 0 To sRows.Length - 1<br />
                writer.WriteStartElement("Row")<br />
                sRowText = sRows(iRow)<br />
                al = GetDelimitedTextArray(sRowText, iStartPositions)<br />
                For iColumn = 0 To al.Count - 1<br />
                    writer.WriteStartElement("Column" & iColumn)<br />
                    writer.WriteString(al(iColumn))<br />
                    writer.WriteEndElement()<br />
                Next<br />
                writer.WriteEndElement()<br />
            Next<br />
            writer.WriteEndElement()<br />
            SaveTextToFile(sw.ToString, "C:\FixedWidthText.xml")<br />
            Console.WriteLine("File saved")<br />
            Console.ReadLine()<br />
        Catch ex As Exception<br />
            Console.WriteLine(ex.ToString)<br />
            Console.ReadLine()<br />
        End Try<br />
    End Sub<br />
    Public Function GetDelimitedTextArray(ByVal sRowText As String, ByVal iStartPositions As Integer()) As ArrayList<br />
        Dim al As New ArrayList<br />
        Dim i As Integer<br />
        Dim sColumnText As String<br />
        For i = 0 To iStartPositions.Length - 1<br />
            If i = iStartPositions.Length - 1 Then<br />
                sColumnText = sRowText.Substring(iStartPositions(i))<br />
            Else<br />
                sColumnText = sRowText.Substring(iStartPositions(i), iStartPositions(i + 1) - iStartPositions(i))<br />
            End If<br />
            al.Add(sColumnText)<br />
        Next<br />
        Return al<br />
    End Function<br />
    Public Function GetFileContents(ByVal FullPath As String) As String<br />
        Dim sContents As String<br />
        Dim oReader As New StreamReader(FullPath)<br />
        sContents = oReader.ReadToEnd()<br />
        oReader.Close()<br />
        Return sContents<br />
    End Function<br />
    Public Sub SaveTextToFile(ByVal sData As String, ByVal FullPath As String)<br />
        Dim oWriter As StreamWriter<br />
        oWriter = New StreamWriter(FullPath)<br />
        oWriter.Write(sData)<br />
        oWriter.Close()<br />
    End Sub<br />
<br />
End Module<br />
<br />
<br />

test="$selBoxHeight <=7"