Visual Basic NET ( 3)




- , 3 :

  • ,
  • , , .

7: .txt , :

.

. .

: :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' :

Dim (50) As String '

 

' :

Dim As New System.IO.StreamReader("D:\Dinamo\.txt")

Dim i As Integer = 1 '

' :

Do While .Peek() <> -1

(i) = .ReadLine

i = i + 1

Loop

.Close() '

 

' :

Dim ___ As Integer = i - 1

For i = 1 To ___

If (i) = "" Then (i) = ""

Next

' :

Dim As New System.IO.StreamWriter("D:\Dinamo\.txt")

For i = 1 To ___

.WriteLine((i))

Next

.Close() '

End Sub

: . VS Windows, ( ) . , , Notepad (). , . , (), StreamReader . VB :