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