参照元情報テキスト ファイルからデータを読み取るは（Visual Basic ガイド ツアー）
「テキスト ファイルからデータを読み取る」にジャンプする
作成方法の詳細は上記を参照願います。
チュートリアル7:テキスト ファイルからデータを読み取るの完成ファイルテキスト ファイルからデータを読み取るの解説とおりに作業を実施すると、プロジェクトファイル群が完成しますが、若干の修正を加えて作成しました。
完成ファイルは以下からダウンロードできます。
ダウンロード後は解凍してから使用してください。
[ 7:テキスト ファイルからデータを読み取る]をダウンロードする。解凍すると「FileTest1」フォルダーがあります。
注（１）「FileTest1」フォルダーの「FileTest1.sln」ファイルをダブルクリックすると「Microsoft Visual Basic 2010 Express」が起動します。
注（２）メニューの「ウインド」＿「ウインドレイアウトのリセット」で標準に戻ります。
注（３）「ソリューションエクスプローラ」ウインドウ内の「Form1.vb」をダブルクリックすると「デザイン」が表示されます。
注（４）メニューの「表示」＿「コード」を選択するとコードが表示されます。
注（５）「FileTest1.sln」の動作確認は「デバッグ」＿「デバッグ開始」で実行します。デバッグ機能を用いて動作確認を行います。
FileTest1の実行（１）「Microsoft Visual Basic 2010 Express」のデバッグ機能を使用します。
（２）「デバッグ」＿「デバッグ開始」を選択します。
（３）操作画面が表示されます。
（４）Test実行ボタンを押します。
（５）オープン・ファイル・ダイアログが表示されます。
（６）テキストファイルを選択してOKボタンをおします。
（７）選択ファイルの2行分のテキスト内容がメッセージボックスにされます。OKボタンを押します。
（８）保存ファイル・ダイアログが表示されます。
（９）保存場所とファイル名を指定して、保存ボタンを押します。
（１０）クローズボックスでプログラムを終了します。
（１１）保存ファイルにコピーが作成されます。
新規プロジェクトの作成（１）新規プロジェクト
新規プロジェクトを作成すると「デザイナー」にはForm1が自動生成されます。
（２） Formコード
Public Class Form1
End Class
が自動生成されます。
（３） パーツレイアウト
Form1にButton、OpenFileDialog、SaveFileDialogをツールボックスから設定します。
OpenFileDialog、SaveFileDialogの「Filterを(*.txt)|*.txt」に設定します。
Public Class Form1の全コード
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'OpenFileDialogを開く
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
'変数srをSystem.IO.StreamReader型で生成
Dim sr As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(OpenFileDialog1.FileName)
'変数FirstLineをString型で生成
Dim FirstLine As String = sr.ReadLine() & vbCrLf & sr.ReadLine()
'変数FirstLineを表示|
MsgBox(FirstLine)
'変数readerをString型で生成
Dim reader As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
'SaveFileDialogを開く
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
'readerの内容をファイル出力
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, reader, append:=False)
End If
End If
End Sub
End Class
コードの解説（１）Private Sub Button1_ClickはButton1.Clickイベントで実行されます。
（２）OpenFileDialog1.ShowDialog()はOpenFileDialogを開きます。
（３）Dim sr As System.IO.StreamReader =は変I数srをSystem.IO.StreamReader型で生成します。初期値はMy.Computer.FileSystem.OpenTextFileReader(OpenFileDialog1.FileName)として設定します。
（４）StreamReader クラスは特定のエンコーディングのバイト ストリームを読み込む TextReader を実装します。
（５）OpenTextFileReaderメソッドはStreamReader を開きます。
（６）Dim FirstLine As String = sr.ReadLine() & vbCrLf & sr.ReadLine()は変数FirstLineをString型で生成し、初期値を2行分の文字に設定します。
（７）2行分の文字をメッセージボックスに表示します。
（８）Dim reader As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)は変数readerをString型で生成します。初期値はMy.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)とします。
（９）SaveFileDialog1.ShowDialog()はSaveFileDialogを開きます。
（１０） My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, reader, append:=False)はコピーファイルを作成します。
感想：本サンプルは1行づつの読み込みと一括読み込みと一括出力の機能を使用しています。一括読み込みと一括出力の機能については、非常にシンプルで使いやすいと思います。
ファイルデータの入出力は一括読み込みと一括出力の機能の使用が望ましいと思います。ファイルデータを一括で読み込んでしまえば、後は内部的にデータ処理が可能です。
９章：チュートリアル8:タブ区切りのテキスト ファイルを読み取るの作成に行く。