Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 42448

String Output Forum

$
0
0
Obviously VbTab is not the right way because of the various lengths of the data.

I want the output to be to formatted with a headers next to each other and the date below.


Code:

Private Sub eportButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eportButton.Click
        Dim theFile As FileStream = File.Create("C:\Leaderboard.txt")
        Dim writer As New StreamWriter(theFile)
        writer.Write("Number" + vbTab )
        For i As Integer = 0 To PvpleaderboardDataSet.Players.Columns.Count - 1
            writer.Write(PvpleaderboardDataSet.Players.Columns(i).ColumnName + vbTab + vbTab + vbTab )
        Next
        writer.WriteLine()

        For Each row As DataRow In PvpleaderboardDataSet.Players.Rows
            Dim num As Integer = 1
            writer.Write(num.ToString + vbTab )
            For i As Integer = 0 To PvpleaderboardDataSet.Players.Columns.Count - 1
                writer.Write(row(i).ToString + vbTab + vbTab + vbTab )
            Next
            num = num + 1
            writer.WriteLine()
        Next
        writer.Close()
        theFile.Close()
    End Sub


Viewing all articles
Browse latest Browse all 42448

Trending Articles