XML / XSL

<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"

<?xml version="1.0" encoding="UTF-8"?>
<ROOT xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="C:\...\record.xsd">
	<record>sdafs</record>
	<record>fsdfsdfa</record>
</ROOT>

<?xml version="1.0" encoding="UTF-8"?>
<!--W3C Schema generated by XMLSPY v2004 rel. 2 U (http://www.xmlspy.com)-->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified">
	<xs:element name="ROOT">
		<xs:complexType>
			<xs:sequence>
				<xs:element name="record">
					<xs:complexType/>
				</xs:element>
			</xs:sequence>
		</xs:complexType>
	</xs:element>
</xs:schema>