в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:53:41Z

1 версия

Новая страница

==Create CSV file==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim csvFile As String = My.Application.Info.DirectoryPath & "\Test.csv"
Dim outFile As IO.StreamWriter = My.ruputer.FileSystem.OpenTextFileWriter(csvFile, False)

outFile.WriteLine("Column 1, Column 2, Column 3")
outFile.WriteLine("1.23, 4.56, 7.89")
outFile.WriteLine("3.21, 6.54, 9.87")
outFile.Close()
Console.WriteLine(My.ruputer.FileSystem.ReadAllText(csvFile))

End Sub
End Class</source>
<pre class=codeResult>Column 1, Column 2, Column 3
1.23, 4.56, 7.89
3.21, 6.54, 9.87</pre>

==Read in and process a CSV file==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim wholeFile As String
Dim lineData() As String
Dim fieldData() As String
Dim filePath As String = My.ruputer.FileSystem.CurrentDirectory & "\Test.csv"
wholeFile = My.ruputer.FileSystem.ReadAllText(filePath)
lineData = Split(wholeFile, vbNewLine)
For Each lineOfText As String In lineData
fieldData = lineOfText.Split(",")
For Each wordOfText As String In fieldData
Console.WriteLine(wordOfText)
Next wordOfText
Console.WriteLine("")
Next lineOfText

End Sub
End Class</source>
<pre class=codeResult>Alpha
Beta
Gamma1.1
2.3
4.5</pre>

==Use system default editor to open a CSV file==

<source lang="vbnet">Imports System.Diagnostics
Public Class Tester
Public Shared Sub Main
Dim csvFile As String = My.Application.Info.DirectoryPath & "\Test.csv"
Dim outFile As IO.StreamWriter = My.ruputer.FileSystem.OpenTextFileWriter(csvFile, False)

outFile.WriteLine("Column 1, Column 2, Column 3")
outFile.WriteLine("1.23, 4.56, 7.89")
outFile.WriteLine("3.21, 6.54, 9.87")
outFile.Close()
Process.Start(csvFile)

End Sub
End Class</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Development/CSV - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия