Visual Basic NET ( 3)


         


_ = s.Chars(i) '
_ = ChrW(AscW(_) + 1)
s1 = s1 & _렠 '
Next
Debug. WriteLine (s1) '
End Sub
136.
' :
Structure
Dim As String
Dim _ As DateTime
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim (5000) As '
' :
Dim As New System.IO.StreamReader("E:\VB\_.txt")
Dim i As Integer = 1 '
' , :
Do While .Peek() <> -1
(i). = .ReadLine
(i)._ = .ReadLine
If (i). = " " _
Or (i). = " " Then i = i - 1
i = i + 1
Loop
.Close() '
' :
Dim ___ As Integer = i - 1
For i = 1 To ___
If (i). = " " _
Then (i). = " "
If _((i)) Then Debug.WriteLine((i).)
Next
' :
Dim As New System.IO.StreamWriter("E:\VB\_.txt")

    





Forekc.ru
, , , , , , , , , ,