Question

这是我的代码：

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

我希望这段代码能做什么：

点击按钮后读取第一个文本文件，然后当我清除文本框（使用已经编码的其他按钮）时，我想在第二个文本文件中读取按钮点击进入与以前相同的文本框。

Answer 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()

或者，如果它不是列表，那么您将逐个浏览文件：

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

如果读取文件以便读取下一个文件，该怎么办？

1 个答案: