в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:20Z

1 версия

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

==Create StreamWriter from FileStream==

<source lang="vbnet">Imports System.IO
public class Test
public Shared Sub Main
Dim objSW As StreamWriter
Dim objFS As FileStream
objFS = New FileStream("test.txt", FileMode.Create)
objSW = New StreamWriter(objFS)
objSW.Write("asdf")
objSW.Close()
objFS.Close()

End Sub
End class</source>

==Save various data types to a text file==

<source lang="vbnet">Imports System.IO
public class Test
public Shared Sub Main
Dim objSW As StreamWriter
Dim objFS As FileStream
Dim dteBDate As Date = #2/8/1960 1:04:00 PM#
objFS = New FileStream("test.txt", FileMode.Create)
objSW = New StreamWriter(objFS)
With objSW
.WriteLine(9.009)
.WriteLine(1 / 3)
.Write("The current date is ")
.Write(Now())
.WriteLine(True)
.WriteLine("Your age in years is {0}, in months is {1}, " & _
"in days is {2}, and in hours is {3}.", _
DateDiff(DateInterval.Year, dteBDate, Now), _
DateDiff(DateInterval.Month, dteBDate, Now), _
DateDiff(DateInterval.Day, dteBDate, Now), _
DateDiff(DateInterval.Hour, dteBDate, Now))
.Close()
End With
objFS.Close()
End Sub
End class</source>

==Use StreamWriter and StreamReader to deal with text file==

<source lang="vbnet">Imports System.IO
public class Test
public Shared Sub Main
Dim file_name As String = "test.txt"
Dim stream_writer As New StreamWriter(file_name)
stream_writer.Write("The quick brown fox")
stream_writer.WriteLine(" jumps over the lazy dog.")
stream_writer.Close()
Dim stream_reader As New StreamReader(file_name)
Console.WriteLine(stream_reader.ReadToEnd())
stream_reader.Close()
End Sub
End class</source>
<pre class=codeResult>The quick brown fox jumps over the lazy dog.</pre>

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

VB.Net Tutorial/Stream File/StreamWriter - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия