0

これが私のコードです：

Private Sub btnDisplayOrderDetails_Click(ByVal sender As Object, _
                                         ByVal e As EventArgs) _
                                         Handles btnDisplayOrder Details.Click

  Dim myStreamReader As StreamReader
  Try
    myStreamReader = File.OpenText("Textfile1.txt")
    Me.txtOrderDetails.Text = myStreamReader.ReadToEnd()
  Catch exc As Exception
  Finally
    If Not myStreamReader Is Nothing Then
      myStreamReader.Close()
    End If
  End Try

 If txtOrderDetails.Text = "" Then
   Dim mystreamreader1 As StreamReader
   Try
     mystreamreader1 = File.OpenText("textfile2.txt")
     Me.txtOrderDetails.Text = myStreamReader.ReadToEnd()
   Catch ex As Exception
   Finally
     If Not myStreamReader Is Nothing Then
       mystreamreader1.Close()
     End If
   End Try
 End If

End Sub

このコードで実行したいことは次のとおりです。

ボタンクリック時に最初のテキストファイルを読み取り、テキストボックスをクリアしたら（すでにコード化されている別のボタンを使用して）、ボタンクリック時に同じテキストボックスに2番目のテキストファイルを読み込みます従来通り。

4

1 に答える 1

0

ファイルで何をしようとしているのかは明確ではありません。それらをすべて 1 つのテキスト ボックスに結合するか、各ファイルが特定のテキスト ボックスに属しているかを確認します。

すべてのファイルを 1 つのテキスト ボックスに配置するループ メソッド:

Dim filePath As String = "C:\Users\Practice\Practice\bin\Debug"
Dim sb As New StringBuilder
For Each f As String In Directory.GetFiles(filePath, "*.txt")
  sb.AppendLine(File.ReadAllText(f))
Next
txtOrderDetails.Text = sb.ToString()

リストでない場合は、ファイルを 1 つずつ確認します。

Dim test1 As String = Path.Combine(filePath, "Textbox1.txt")
If File.Exists(test1) Then
  TextBox1.Text = File.ReadAllText(test1)
End If
Dim test2 As String = Path.Combine(filePath, "Textbox2.txt")
If File.Exists(test2) Then
  TextBox2.Text = File.ReadAllText(test2)
End If
于 2012-09-03T13:05:48.877 に答える