Writing to a text file

[arrian]

I'm writing fields from a database into a text file. This is working just fine. The file is used to import into a different program. The problem I'm having is that the program will not accept 2 colums(dates, in text format mmddyy) if they are enclosed in quotes(ex "091105"). Is there a way to write to the file that will NOT put quotes in that area? I can't put it in as a number, because I need the leading 0. Any ideas?

 

[ThatRickGuy]

How are you currently writing to the text file?

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[arrian]

Here is the sub I'm currently using to write the data to the file:

Sub ExportToFile()
        Dim FileNumber As Integer
        Dim strFileName As String
        Dim strPath As String
        Dim strSQL As String
        Dim typNull As Type
        Dim strTransmit As String
        Dim dsTransmit As DataSet
        Dim rowRows As DataRow
        Dim i As Integer
        FileNumber = FreeFile()


        strFileName = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\TES\transmit.csv"
        If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\TES") = False Then
            Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\TES")
        End If
        strSQL = "Select * from TransmitTemp"
        dsTransmit = Connect(strSQL)
        FileOpen(FileNumber, strFileName, OpenMode.Output)
        For Each rowRows In dsTransmit.Tables(0).Rows
            strTransmit = ""
            For i = 0 To rowRows.ItemArray.Length() - 1
                If rowRows(i).ToString = "" Then
                    Write(FileNumber, "")
                Else
                    Write(FileNumber, rowRows(i))
                End If
            Next
            WriteLine(FileNumber)
        Next

        FileClose(FileNumber)
        SendEmail()
    End Sub