10
StreamReader, StreamWriter My.Computer.FileSystem
(),
4.10.7. ,
4.10.7.1.
VB , , , .
, , , . , , , . , , CD-ROM. .
, , VB, . NET Framework .
, . , , , .
, . MS Windows *.txt.
, , :
;
;
.
Windows . Windows , , , , , /. - . . , , , , .. , . . , , .
|
|
. : ; ; -; ; - ( ). .
, , . , . , , FILE. , , , , , , .
, / .NET Framework , .
. .
Stream (, ) , . . .
FileStream, Stream, . FileStream . Stream (, ) .
, VB :
System.IO
Framework.NET;
My.Computer.System.
.
VB .
( ) - , - . , , ( ). , . TryCatchEnd Try VB .
, VB , - , . , VB , ; , VB , , - .
|
|
VB, , . , . , , , . , TryCatchEnd Try Exception. , , , .
Try , , Catch , , . , , Finally, TryCatchEnd Try. TryCatchEnd Try :
Try , Catch , , Finally , End Try |
Try, Catch End Try , Finally , , .
4.10.2-1 4.10.2-2 , .
StreamReader, StreamWriter My.Computer.FileSystem
VS , . NET Framework ( ) System.IO.
(Stream) VS Stream, , . , . (Read), (Write) (Seek), System.IO.Stream. , /. , , , .
, System.IO.Stream . , System.IO . , , StreamReader StreamWriter, My.Computer.FileSystem.
' Sub readfile1(ByVal filename As String, ByRef p As String) ' Dim Rf As StreamReader Rf = New StreamReader(filename) Try p = Rf.ReadToEnd() ' p Rf.close() ' Catch ex As Exception MsgBox(" ") End Try End Sub |
. 4.10.2-1. readfile1()
StreamReader StreamWriter, : Imports System.IO.
|
|
' , ' Sub readfile2(ByVal filename As String, _ ByRef n As Integer, ByRef p As String) ' Dim Rf As New StreamReader(filename) Dim line As String p = "" ' n = 0 ' Try Do While Not Rf.EndOfStream() ' line = Rf.ReadLine() ' line n = n + 1: p = p & line & vbNewLine Loop Rf.Close() ' Catch ex As Exception MsgBox(" ") End Try End Sub |
. 4.10.2-2. readfile2()
StreamReader .NET Framework . . 4.10.2-1
. 4.10.2-2 . filename ( ) p (, , ).
, . 4.10.2-1 . 4.10.2-2, Rf StreamReader . : .4.10.3-1 ReadToEnd() p, ( ) ; . 4.10.2-2 ReadLine() Rf line. ReadLine() , (endOfStream).
Close() Rf , .
StreamWriter , .
. 4.10.2-3 . 4.10.2-4 , . filename p , .
' Sub writefile1(ByVal filename As String, ByVal p As String) ' If File.Exists(filename)Then MsgBox(" "&filename " ") Exit Sub End If ' . wf '1 Dim wf As StreamWriter = File.CreateText(filename) '2 Dim wf As New StreamWriter(filename) wf.WriteLine(p) ' wf.Flush() ' wf.Close() ' End Sub |
. 4.10.2-3. writefile1()
' ' , Sub writefile2(ByVal filename As String, ByVal p As String) ' If File.Exists(filename) = False Then MsgBox(" " & filename & " ") End If '1) wf 'Dim wf As StreamWriter = File.AppendText(filename) '2) True 2- , ' Dim wf As New StreamWriter(filename, True) wf.WriteLine(p) ' wf.Flush() ' wf.Close() ' End Sub |
. 4.10.2-4. writefile2()
|
|
wf StreamWriter , . True, p . False , ( ) , p.
4.10.2-1
My.Application | , , , , . |
My.Computer | , , () . My.Computer My.Computer.FileSystem, . |
My.Forms | VS. |
My.User | My.Computer. |
My.WebServices | -, My.Computer, -. |
My , .NET Framework , , , , . My , , , .NET Framework.
My , . 4.10.3-1.
, My .NET Framework, IntelliSense.
, , , :
MsgBox(My.User.Name) |
, . 4.10.2-5.
. 4.10.2-5. MsgBox(My.User.Name)
My.Computer . , ( ), :
MsgBox(My.Computer. Clock. LocalTime) |
, My.Computer.FileSystem ReadAllText(). , . 4.10.3-6.
ReadAllText() ( , Str), ,
LineInput().
' ' TextBox Sub vvodFile(ByVal filename As String, _ ByRef Str As String, ByRef T As TextBox) ' ' Str Try Str = My.Computer.FileSystem.ReadAllText(filename) T.Text = Str Catch ex As Exception MsgBox(" ") End Try End Sub |
. 4.10.2-6. vvodFile()
ReadAllText() ( Str), ,
LineInput().
My.Computer.FileSystem . , My.Computer.FileSystem , . LineInput() StreamReader , My, . . . , , .
|
|
, My.Computer.FileSystem
WriteAllText(). , . 4.10.2-7.
WriteAllText() . True, , ; False, ( ).
' Sub vivodFile(ByVal filename As String, ByRef Str3 As String) ' - Str3 ; (False) ' , . Try My.Computer.FileSystem.WriteAllText(filename, Str3, False) Catch ex As Exception MsgBox(" () ") End Try End Sub |
. 4.10.2-7. vivodFile()