Google+ Followers

giovedì 9 aprile 2015

Codice Visual Studio per l'allineamento di colonne di un file

Imports System.IO
Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        Dim s As String
        Dim data As String() = New String(3) {}
        Dim day As String = ""
        Dim month As String = ""
        Dim year As String = ""
        Dim miastringa As String = ""
        Dim o As New OpenFileDialog
        o.ShowDialog()

        Dim nomeFile = o.FileName

        For Each s In File.ReadAllLines(nomeFile)

            Dim dividi As String() = s.Split(New Char() {","c})

            For i = 0 To UBound(dividi)

                data = dividi(0).Split(New Char() {"-"c})
            Next

            For i = 0 To data.Length - 1
                If (data(i) = "Date") Then
                    Name = "year" + " " + "month" + " " + "day"
                    Me.RichTextBox1.AppendText(Name)
                End If
                If data(i) <> "Date" Then
                    year = data(0)
                    month = data(1)
                    day = data(2)
                End If

            Next

            RichTextBox1.AppendText(year & " " & month & " " & day & " " & dividi(1) & " " & dividi(4) & vbCrLf & vbNewLine)
            ' Me.RichTextBox1.AppendText(year & " " & month & " " & day & " " & dividi(1) & " " & dividi(4) & vbCrLf)
        Next
        Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.FileName = "" 'Imposta il path (completo) di default
        saveFileDialog1.Filter = ("File csv|*.csv") 'imposta i formati in cui è possibile salvare il file ("nome|*.formato")
        saveFileDialog1.ShowDialog() 'Visualizza la finestra
        My.Computer.FileSystem.WriteAllText(saveFileDialog1.FileName, RichTextBox1.Text, False)


    End Sub

Nessun commento:

Posta un commento