Visual Basic

  Dim stylesDataSet As DataSet<br />
        Dim stylesDataTable As DataTable<br />
        Dim stylesDataRow As DataRow<br />
<br />
        Dim tempDataSet As DataSet<br />
        Dim tempDataTable As DataTable<br />
        Dim tempDataRow As DataRow<br />
<br />
<br />
        Dim stylesCounter As Int16<br />
        Dim token As String<br />
        Dim replaced As String<br />
        Dim SQLEval As String<br />
        Dim oFile As System.IO.File<br />
        Dim oRead As System.IO.StreamReader<br />
        Dim oWrite As System.IO.StreamWriter<br />
        Dim EntireFile As String<br />
<br />
        Dim SQL As String<br />
        'SQL = "EXEC tokenReplaceListExec <<CustomerID>>,<<ClientID>>,0,'" & paths("StyleFolder") & "','," & fileName & "'"<br />
        SQL = "EXEC tokenReplaceList <<CustomerID>>,<<ClientID>>,0,'" & paths("StyleFolder") & "'"<br />
        SQL = queryTokeniser(SQL)<br />
<br />
        stylesDataSet = ExecuteDataTable(SQL)<br />
        stylesDataTable = stylesDataSet.Tables(0)<br />
        stylesCounter = 0<br />
<br />
        oRead = oFile.OpenText(fileName)<br />
        EntireFile = oRead.ReadToEnd()<br />
        oRead.Close()<br />
<br />
<br />
<br />
<br />
<br />
        EntireFile = Replace(EntireFile, vbCrLf, "")<br />
<br />
        If Debug_Status = 1 Then<br />
            oWrite = oFile.CreateText(fileName & ".test")<br />
            oWrite.Write(EntireFile)<br />
            oWrite.Close()<br />
        End If<br />
<br />
<br />
        fileFindAndReplace(fileName, vbCrLf, "")<br />
        TOCReplace(fileName)<br />
<br />
        Do While stylesCounter < stylesDataTable.Rows.Count<br />
            stylesDataRow = stylesDataTable.Rows(stylesCounter)<br />
            token = stylesDataRow("token")<br />
            If Not stylesDataRow("Eval") Is System.DBNull.Value Then<br />
                SQL = stylesDataRow("Eval")<br />
                SQL = queryTokeniser(SQL)<br />
                tempDataSet = ExecuteDataTable(SQL)<br />
                tempDataTable = getLastTable(tempDataSet)<br />
                tempDataRow = tempDataTable.Rows(0)<br />
                replaced = tempDataRow.Item(0)<br />
            Else<br />
                If Not stylesDataRow("replacement") Is System.DBNull.Value Then<br />
                    replaced = stylesDataRow("replacement")<br />
                Else<br />
                    replaced = ""<br />
                End If<br />
            End If<br />
<br />
<br />
            EntireFile = Replace(EntireFile, token, replaced)<br />
            stylesCounter = stylesCounter + 1<br />
        Loop<br />
<br />
<br />
<br />
<br />
<br />
        oWrite = oFile.CreateText(fileName)<br />
        oWrite.Write(EntireFile)<br />
<br />
        oWrite.Close()<br />