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 :