前提・実現したいこと
処理を開始して、ファイル選択ダイアログを開き、ファイルの読み込み処理をする(引数1ファイル名、引数2ファイル内容)返り値n(読み込んだ行数、-1読み込みできない、-2 99999行を超えている)
復帰値が-1の場合、エラーメッセージを返す。
復帰値が-2の場合、エラーメッセージ2を返す。
そのどちらでもない場合、リストビューにそれぞれパスとデータを表示する。
ファイルを開くときは、ストリームリーダーを使う。
ストリームリーダーを使いダイアログからファイルを選択するやり方。
復帰値の返し方。
を教えてもらえないでしょうか。
現在はここまでしか作れていないのですが、解説してくださる方いますでしょうか?
よろしくお願いいたします。
発生している問題・エラーメッセージ
エラーメッセージ
該当のソースコード
VB
1''' <summary> 2 ''' 比較元読み込みボタン押下時処理 3 ''' </summary> 4 ''' <param name="sender"></param> 5 ''' <param name="e"></param> 6 Private Sub Cmp_ori_read_Click(sender As Object, e As EventArgs) Handles Cmp_ori_read.Click 7 'ファイルを開くダイアログボックスを表示する 8 'OpenFileDialog クラスの新規インスタンスを生成 9 Dim openFileDialog1 As New OpenFileDialog 10 With openFileDialog1 11 '起動ディレクトリを設定 12 .InitialDirectory = "c:\" 13 '[ファイルの種類] ボックスに表示される選択肢を設定する 14 .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" 15 '最初に表示するフィルター処理オプションを設定する 16 .FilterIndex = 1 17 'ダイアログ ボックスを閉じる前に、現在のディレクトリを復元する 18 .RestoreDirectory = True 19 20 'ダイアログ ボックスを表示 [開く]ボタンが押されたら 21 If openFileDialog1.ShowDialog() = DialogResult.OK Then 22 ''選択したファイルのパスを取得 23 MessageBox.Show(openFileDialog1.FileName & " を選択しました。") 24 End If 25 End With 26 End Sub 27 28 Function File_read(ByVal sfile1 As String, ByVal sfile2 As String) As String 29 If (FileName = False) Then 30 '入力内容が異常の場合E1000を表示 31 MsgBox("ファイルが読み込めません、ほかのファイルを選択してください") 32 33 ElseIf (filename > 99999) Then 34 'ファイルが99999行を超えている場合、E1002を表示 35 MsgBox("99999行を超えています、ほかのファイルを選択してください") 36 37 End If 38 End Function 39 40End Class```ここに言語を入力 41コード
試したこと
ここに問題に対して試したことを記載してください。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。