FTS_SQLIO_Analysis/FTS_SQLIO_Analysis/Form1.vb

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox2.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Public Shared oMyTest As New Generic.Dictionary(Of Integer, MyTestAttribs)

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        oMyTest.Clear()
        DataGridView1.Rows.Clear()

        If Not My.Computer.FileSystem.FileExists(TextBox1.Text) Then
            'MessageBox.Show("The File " & TextBox1.Text & " does not exist!")
            Exit Sub
        End If

        'Dim oMyTest As New Generic.Dictionary(Of Integer, MyTestAttribs)

        Dim Myfile As New System.IO.StreamReader(TextBox1.Text)
        'MessageBox.Show(Myfile.ReadToEnd)


        Dim iCountExecutions As Integer = 0
        Try

        
        While Not Myfile.EndOfStream
            Dim line As String = Myfile.ReadLine
            If line.Contains(">sqlio") Then 'Set test specific parameters
                iCountExecutions += 1
                oMyTest(iCountExecutions) = New MyTestAttribs
                oMyTest(iCountExecutions).Testnumber = iCountExecutions

                Dim iStart As Integer = line.IndexOf(">sqlio") + 1
                oMyTest(iCountExecutions).TestCommand = line.Substring(iStart, line.Length - iStart)
                'MessageBox.Show(oMyTest(iCountExecutions).TestCommand)

                'create splitted String
                Dim sSplit As String() = oMyTest(iCountExecutions).TestCommand.Split(" "c)

                'Determine accessType
                If oMyTest(iCountExecutions).TestCommand.ToLower.Contains("-kr") Then
                    oMyTest(iCountExecutions).AccessType = "Read"
                End If
                If oMyTest(iCountExecutions).TestCommand.ToLower.Contains("-kw") Then
                    oMyTest(iCountExecutions).AccessType = "Write"
                End If

                oMyTest(iCountExecutions).Threads = MyCmdparser(sSplit, "-t")
                oMyTest(iCountExecutions).Outstandingrequest = MyCmdparser(sSplit, "-o")
                oMyTest(iCountExecutions).IOFileAccessType = MyCmdparser(sSplit, "-f")
            End If 'End of parsing the command String

            'Determining io rate -->IOs/sec:
            If line.Contains("IOs/sec: ") Then
                oMyTest(iCountExecutions).IOssec = MyCmdparser(line, "IOs/sec: ")
                oMyTest(iCountExecutions).IOssec = oMyTest(iCountExecutions).IOssec.Replace("."c, ","c)
            End If
            If line.Contains("MBs/sec: ") Then
                oMyTest(iCountExecutions).MBssec = MyCmdparser(line, "MBs/sec: ")
                oMyTest(iCountExecutions).MBssec = oMyTest(iCountExecutions).MBssec.Replace("."c, ","c)
            End If
            If line.Contains("Min_Latency(ms): ") Then
                oMyTest(iCountExecutions).Min_Latency = MyCmdparser(line, "Min_Latency(ms): ")
                oMyTest(iCountExecutions).Min_Latency = oMyTest(iCountExecutions).Min_Latency.Replace("."c, ","c)
            End If
            If line.Contains("Avg_Latency(ms): ") Then
                oMyTest(iCountExecutions).Avg_Latency = MyCmdparser(line, "Avg_Latency(ms): ")
                oMyTest(iCountExecutions).Avg_Latency = oMyTest(iCountExecutions).Avg_Latency.Replace("."c, ","c)
            End If
            If line.Contains("Max_Latency(ms): ") Then
                oMyTest(iCountExecutions).Max_Latency = MyCmdparser(line, "Max_Latency(ms): ")
                oMyTest(iCountExecutions).Max_Latency = oMyTest(iCountExecutions).Max_Latency.Replace("."c, ","c)
            End If
        End While

        Catch ex As Exception

        End Try
        'MessageBox.Show(iCountExecutions)

        Myfile.Close()

        Label3.Text = TextBox1.Text + " is loaded"
        If Label3.Text.Length > 60 Then
            Label3.Text = "..." + Label3.Text.Substring(Label3.Text.Length - 60)
        End If

        If oMyTest.Count > 1 Then
            DataGridView1.Rows.Add(oMyTest.Count - 1)
        ElseIf Not oMyTest.Count = 0 Then
            DataGridView1.Rows.Add(oMyTest.Count)
        End If



        Dim i As Integer = 0
        Do While i < oMyTest.Count
            DataGridView1.Rows(i).Cells(0).Value = oMyTest(i + 1).Testnumber
            DataGridView1.Rows(i).Cells(1).Value = oMyTest(i + 1).AccessType
            DataGridView1.Rows(i).Cells(2).Value = oMyTest(i + 1).Threads
            DataGridView1.Rows(i).Cells(3).Value = oMyTest(i + 1).Outstandingrequest
            DataGridView1.Rows(i).Cells(4).Value = oMyTest(i + 1).IOFileAccessType
            DataGridView1.Rows(i).Cells(5).Value = oMyTest(i + 1).IOssec
            DataGridView1.Rows(i).Cells(6).Value = oMyTest(i + 1).MBssec
            DataGridView1.Rows(i).Cells(7).Value = oMyTest(i + 1).Min_Latency
            DataGridView1.Rows(i).Cells(8).Value = oMyTest(i + 1).Avg_Latency
            DataGridView1.Rows(i).Cells(9).Value = oMyTest(i + 1).Max_Latency
            i += 1
        Loop

        If Not CheckBox2.Checked Then Button4.Enabled = True
    End Sub


    Public Function MyCalcMaxExec(ByVal FILE_NAME As String) As Integer
        MyCalcMaxExec = 200

        Dim Myfile As New System.IO.StreamReader(FILE_NAME)
        'MessageBox.Show(Myfile.ReadToEnd)


        Dim iSum As Integer = 0
        Try
            While Not Myfile.EndOfStream
                Dim line As String = Myfile.ReadLine
                If line.Contains("-s") Then
                    iSum += CInt(MyCmdparser(line, "-s").Trim)
                End If
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        Myfile.Close()

        If iSum > 0 Then MyCalcMaxExec = iSum
    End Function


    Public Function MyCmdparser(ByRef m_command As String(), ByVal sSearch As String) As String
        MyCmdparser = String.Empty
        Dim iStart As Integer = 0

        For Each s As String In m_command
            If s.Contains(sSearch) Then
                iStart = s.IndexOf(sSearch) + sSearch.Length
                MyCmdparser = s.Substring(iStart, s.Length - iStart)
            End If
        Next
        MyCmdparser = MyCmdparser.Trim
    End Function

    Public Function MyCmdparser(ByRef m_command As String, ByVal sSearch As String) As String
        Dim s As String = m_command
        MyCmdparser = String.Empty
        Dim iStart As Integer = 0
        If s.Contains(sSearch) Then
            iStart = s.IndexOf(sSearch) + sSearch.Length
            MyCmdparser = s.Substring(iStart, s.Length - iStart)
            iStart = MyCmdparser.IndexOf(" ")
            If iStart > 0 Then MyCmdparser = MyCmdparser.Substring(0, iStart)
        End If
        MyCmdparser = MyCmdparser.Trim
    End Function


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Not My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
            If TextBox2.Text.Length <= 1 Then
                MessageBox.Show("Please select target folder!")
                Exit Sub
            End If
            My.Computer.FileSystem.CreateDirectory(TextBox2.Text)
        End If


        If TextBox3.Text.Length <= 1 Then
            MessageBox.Show("Please enter Targetfile name!")
            Exit Sub
        End If

        Dim FILE_NAME As String = TextBox2.Text + "\" + TextBox3.Text

        If Not System.IO.File.Exists(FILE_NAME) = True Then

            Dim file As System.IO.FileStream = System.IO.File.Create(FILE_NAME)
            file.Close()
        End If

        Dim objWriter As New System.IO.StreamWriter(FILE_NAME)



        For Each sPair As Generic.KeyValuePair(Of Integer, MyTestAttribs) In oMyTest
            objWriter.Write(sPair.Value.Testnumber + vbTab + sPair.Value.IOFileAccessType + vbTab + sPair.Value.Threads + vbTab + sPair.Value.Outstandingrequest + vbTab + sPair.Value.IOFileAccessType + vbTab + sPair.Value.IOssec + vbTab + sPair.Value.MBssec + vbTab + sPair.Value.Min_Latency + vbTab + sPair.Value.Avg_Latency + vbTab + sPair.Value.Max_Latency + vbTab + sPair.Value.TestCommand + vbNewLine)
        Next

        objWriter.Close()
        MsgBox("File sucessful converted!")


    End Sub


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim iMaxExecTime As Integer = 0
        Try

            For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
                If s.Contains("sqlio") Then
                    If s.Contains("-s") Then
                        iMaxExecTime += CInt(MyCmdparser(s, "-s").Trim)
                    End If
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        Label5.Text = ""
        Label5.BackColor = Color.Empty
        Dim result = MessageBox.Show("This will start the IO-test on your System." + vbNewLine + "The system will be not accessable during the test!" & vbNewLine & vbNewLine & " The test will take up to " & iMaxExecTime.ToString & " seconds!", "caption", MessageBoxButtons.OKCancel
                                     )
        If result = DialogResult.Cancel Then
            Exit Sub
        ElseIf result = DialogResult.OK Then
            'Do nothing :)
            If TextBox1.Text.Length <= 1 Then
                MessageBox.Show("No SQLIO Targetpfile was entered!")
                Exit Sub
            End If
            If My.Computer.FileSystem.FileExists(TextBox1.Text) Then
                result = MessageBox.Show("The SQLIO Targetfile already exist!" & vbNewLine & "Do you want to delete the file?", "caption", MessageBoxButtons.YesNoCancel
                                             )
                If result = DialogResult.Cancel Then
                    Exit Sub
                End If
                If result = DialogResult.Yes Then
                    deletefile(TextBox1.Text)
                End If
            End If

            If Not My.Computer.FileSystem.FileExists("sqlio_tpass.bat") Then

                Dim FILE_NAME As String = "sqlio_tpass.bat"

                If Not System.IO.File.Exists(FILE_NAME) = True Then
                    Dim file As System.IO.FileStream = System.IO.File.Create(FILE_NAME)
                    file.Close()
                End If

                Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
                'For Each sPair As Generic.KeyValuePair(Of Integer, MyTestAttribs) In oMyTest
                'objWriter.Write(xSettings.<config>.<Tparms>.Value)
                'Next

                For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
                    objWriter.Write(s & vbNewLine)
                Next
                objWriter.Close()
            End If

            If ComboBox1.SelectedItem.ToString.Length > 1 Then
                deletefile("param.txt")
                createfile("param.txt")
                Dim iTestfileSite As String = "45934"
                If TextBox4.Text.Length > 0 Then iTestfileSite = TextBox4.Text
                AppendorInserttoFile("param.txt", ComboBox1.SelectedItem.ToString & "testfile.dat 2 0x0 " & iTestfileSite, False)
            End If

            'myStartProcess(".\", "sqlio_tpass.bat", " >>""" & TextBox1.Text & """")
            MyRunAllexe()
            deletefile("sqlio_tpass.bat")
            deletefile("param.txt")

            Label5.Text = "SQLIO TEST Executed!"
            Label5.BackColor = Color.Green
            Button3_Click(sender, e)

            If CheckBox2.Checked Then
                Button4_Click(sender, e)
            End If

        End If

    End Sub


    Public Function myStartProcess(ByVal sBasePath As String, ByVal sName As String, ByVal sArguments As String) As Integer
        myStartProcess = 0
        Dim oProcess As System.Diagnostics.Process
        Try
            oProcess = New System.Diagnostics.Process()
            oProcess.StartInfo.FileName = sBasePath & sName 'ProcessPath
            oProcess.StartInfo.Arguments = sArguments
            oProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
            oProcess.Start()

            'Wait until the process passes back an exit code 
            'oProcess.WaitForExit()
            Dim i As Double = 0
            Dim b As Boolean = False
            Dim x As Boolean = True

            'MyCalcMaxExec interval
            '100 *x * time --> ms to wait

            'MyCalcMaxExec("sqlio_tpass.bat")

            Do While x = True

                If i = 100 Then b = False

                If i = 0 Then b = True
                If b Then
                    i += 1
                Else
                    'i -= 1
                End If
                ProgressBar1.Value = i
                'Threading.Thread.Sleep(300)
                Threading.Thread.Sleep(CInt(MyCalcMaxExec("sqlio_tpass.bat")) * 10)

                If oProcess.HasExited Then
                    ProgressBar1.Value = 0

                    x = False
                End If
            Loop


            myStartProcess = oProcess.ExitCode

            'Free resources associated with this process
            oProcess.Close()
        Catch ex As Exception
            myStartProcess = 9
        End Try


    End Function

    Public Sub MyRunAllexe()
        ProgressBar2.Value = 0
        If ComboBox1.SelectedItem.ToString.Length > 1 Then
            deletefile("param.txt")
            createfile("param.txt")
            Dim iTestfileSite As String = "45934"
            If TextBox4.Text.Length > 0 Then iTestfileSite = TextBox4.Text
            AppendorInserttoFile("param.txt", ComboBox1.SelectedItem.ToString & "testfile.dat 2 0x0 " & iTestfileSite, False)
        End If

        Dim iTestToRun As Integer = 0
        Dim FILE_NAME As String = "sqlio_tpass.bat"
        For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
            If s.Contains("sqlio") Then
                iTestToRun += 1
            End If
        Next



        Dim dAdjustmentfactor As Double = 100 / iTestToRun
        Dim iCount As Integer = 0
        For Each s As String In xSettings.<config>.<Tparms>.Value.Split("XXXXX")
            If s.Contains("sqlio") Then
                AppendorInserttoFile(FILE_NAME, s, False)
                iCount += 1
                Label8.Text = iCount.ToString & " / " & iTestToRun.ToString
                myStartProcess(".\", "sqlio_tpass.bat", " >>""" & TextBox1.Text & """")
                If ProgressBar2.Value + (dAdjustmentfactor) <= 100 Then
                    ProgressBar2.Value = (dAdjustmentfactor) * iCount
                Else
                    ProgressBar2.Value = 100
                End If
            End If
        Next
        Label8.Text = ""

    End Sub


    Public Shared xSettings As XDocument
    Public Shared sSettingsfile As String = "settings.xml"
    Public Image1 As Image

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        For Each s As String In System.IO.Directory.GetLogicalDrives()
            ComboBox1.Items.Add(s)
            ComboBox1.SelectedItem = s
        Next


        If Not My.Computer.FileSystem.FileExists(sSettingsfile) Then
            Dim XmlDoc As New System.Xml.XmlDocument

            'Write down the XML declaration
            Dim XmlDeclaration As System.Xml.XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)

            'Create the root element
            Dim RootNode As System.Xml.XmlElement = XmlDoc.CreateElement("config")
            XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
            XmlDoc.AppendChild(RootNode)

            Dim SQLIO_LOG_FilePath As System.Xml.XmlElement = XmlDoc.CreateElement("SQLIO_LOG_FilePath")
            Dim SQLIO_LOG_FilePathTextElement As System.Xml.XmlText = XmlDoc.CreateTextNode("SQLIO_Meassures.log")
            RootNode.AppendChild(SQLIO_LOG_FilePath)
            SQLIO_LOG_FilePath.AppendChild(SQLIO_LOG_FilePathTextElement)

            Dim TARGET_Path As System.Xml.XmlElement = XmlDoc.CreateElement("TARGET_Path")
            Dim TARGET_PathTextElement As System.Xml.XmlText = XmlDoc.CreateTextNode(".\")
            RootNode.AppendChild(TARGET_Path)
            TARGET_Path.AppendChild(TARGET_PathTextElement)

            Dim TARGET_FILENAME As System.Xml.XmlElement = XmlDoc.CreateElement("TARGET_FILENAME")
            Dim TARGET_FILENAMETextElement As System.Xml.XmlText = XmlDoc.CreateTextNode("Converted_SQLIO_Meassures.csv")
            RootNode.AppendChild(TARGET_FILENAME)
            TARGET_FILENAME.AppendChild(TARGET_FILENAMETextElement)

            Dim TParms As System.Xml.XmlElement = XmlDoc.CreateElement("Tparms")
            Dim TParmsTextElement As System.Xml.XmlText = XmlDoc.CreateTextNode("sqlio -kW -t2 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o1 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o2 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o4 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o8 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o16 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o32 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o64 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o128 -frandom -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t2 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t4 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t8 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t16 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t32 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kW -t64 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t2 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t4 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t8 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t16 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t32 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o1 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o2 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o4 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o8 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o16 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o32 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o64 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txtXXXXX" & vbNewLine &
"sqlio -kR -t64 -s30 -dE -o128 -fsequential -b64 -BH -LS Testfile.dat -Fparam.txt")
            RootNode.AppendChild(TParms)
            TParms.AppendChild(TParmsTextElement)



            Try
                XmlDoc.Save(sSettingsfile)
            Catch ex As Exception

            End Try


        End If


        If My.Computer.FileSystem.FileExists(sSettingsfile) Then

            Try
                xSettings = XDocument.Load(sSettingsfile)

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            Me.TextBox1.Text = xSettings.<config>.<SQLIO_LOG_FilePath>.Value
            Me.TextBox2.Text = xSettings.<config>.<TARGET_Path>.Value
            Me.TextBox3.Text = xSettings.<config>.<TARGET_FILENAME>.Value
        End If

    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        'If MessageBox.Show("Do you want to save changes to your text?", "My Application", MessageBoxButtons.YesNo) = DialogResult.Yes Then
        '    ' Cancel the Closing event from closing the form.
        '    e.Cancel = True
        'End If ' Call method to save file...
        Try
            xSettings.<config>.<SQLIO_LOG_FilePath>.Value = Me.TextBox1.Text
            xSettings.<config>.<TARGET_Path>.Value = Me.TextBox2.Text
            xSettings.<config>.<TARGET_FILENAME>.Value = Me.TextBox3.Text
            xSettings.Save(sSettingsfile)
        Catch ex As Exception

        Finally
            'e.Cancel = True
        End Try

    End Sub 'Form1_Closing

    Private Sub deletefile(ByVal FILE_NAME As String)
        If System.IO.File.Exists(FILE_NAME) = True Then
            Try
                System.IO.File.Delete(FILE_NAME)
            Catch ex As Exception

            End Try

        End If
    End Sub

    Private Sub createfile(ByVal FILE_NAME As String)
        If Not System.IO.File.Exists(FILE_NAME) = True Then
            Dim file As System.IO.FileStream = System.IO.File.Create(FILE_NAME)
            file.Close()
        End If
    End Sub

    Public Sub AppendorInserttoFile(ByVal FILE_NAME As String, ByVal Value As String, Optional ByVal bAppend As Boolean = True)
        If Not System.IO.File.Exists(FILE_NAME) = True Then
            createfile(FILE_NAME)
        End If
        Dim objWriter As New System.IO.StreamWriter(FILE_NAME, bAppend)
        objWriter.WriteLine(Value)
        objWriter.Close()
    End Sub


    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        'If CheckBox2.Checked Then
        '    Button4.Enabled = False
        'End If

    End Sub


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Button3_Click(sender, e)
    End Sub


    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim Myfile As New System.IO.StreamReader(".\sqlio.exe")
        'MessageBox.Show(Myfile.ReadToEnd)


        Dim iCountExecutions As Integer = 0
        Try


            While Not Myfile.EndOfStream
                Dim line As String = Myfile.ReadLine
                AppendorInserttoFile("sqlio.txt", line, True)
            End While
        Catch
        End Try
        Myfile.Close()

        'Dim l As New System.IO.Stream() '= Reflection.Assembly.GetEntryAssembly.GetManifestResourceStream(String.Format("{0}.{1}", "ApplicationProjectName", "sqlio.exe"))
        Dim l As System.IO.Stream = New System.IO.FileStream(".\sqlio.exe", IO.FileMode.Open)

        Dim path As System.IO.Stream = l 'New System.IO.FileStream(".\sqlio.exe", IO.FileMode.Open)
        Dim bytes(path.Length) As Byte
        path.Position = 0
        path.Read(bytes, 0, path.Length)
        Dim data As String = System.Text.Encoding.ASCII.GetString(bytes)

        AppendorInserttoFile("test.csc", data, False)
        MessageBox.Show(data)
        Debug.WriteLine(data)

        SaveStreamToFile(l, "test222.exe")

    End Sub



    Private Sub SaveStreamToFile(ByVal p_stream As System.IO.Stream, ByVal p_fileName As String)
        Dim l_streamWriter As System.IO.FileStream = System.IO.File.Create(p_fileName)

        Try
            Dim l_bytes(65536) As Byte
            Dim l_offset As Integer = 0
            Dim l_readBytes As Integer

            Do
                l_readBytes = p_stream.Read(l_bytes, 0, 65536)
                l_streamWriter.Write(l_bytes, 0, l_readBytes)

                l_offset += l_readBytes

            Loop While (l_readBytes > 0)
            Debug.WriteLine("Num Of bytes Read: " + l_offset.ToString)

        Catch ex As Exception
            'log error
        Finally
            p_stream.Close()
            l_streamWriter.Close()
        End Try
    End Sub


End Class


Public Class MyTestAttribs
    Public TestCommand As String
    Public Testnumber As String 'Read/Write
    Public AccessType As String 'Read/Write
    Public Threads As String
    Public Outstandingrequest As String
    Public IOFileAccessType As String
    Public IOssec As String
    Public MBssec As String
    Public Min_Latency As String
    Public Avg_Latency As String
    Public Max_Latency As String
End Class