Sub memo1()
Dim m As String
Console.WriteLine("書いて")
m = Console.ReadLine
Dim sw As New System.IO.StreamWriter("メモ帳", _
True, Text.Encoding.GetEncoding("shift_jis"))
'TextBox1.Textの内容を書き込む
sw.Write(m & vbCrLf)
'閉じる
sw.Close()
End Sub
Sub memo2()
Dim sr As New System.IO.StreamReader("C:\Users\naoki\Desktop\test01.txt", _
System.Text.Encoding.GetEncoding("shift_jis"))
'内容をすべて読み込む
'Dim s As String = sr.ReadToEnd()
Dim f As Integer = 0
Dim Items(10) As String
Dim k As Integer = 3
'1行ずつ読み込む
While sr.Peek() > -1
Items(f) = sr.ReadLine()
f = f + 1
End While
'閉じる
sr.Close()
Console.WriteLine(Items(k))
'結果を出力する
'Console.WriteLine(s)
End Sub