Question

有没有办法只需点击一下按钮即可从多个文本文件中打印文本？我目前使用的代码如下所示。

＆＃13;

Dim FilePath = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Employee Record\" & TextBox1.Text))

            Dim FileNameRTO As String = Path.Combine(FilePath.FullName, TextBox2.Text + ".RTO")
            Dim ObjectReaderRTO As New System.IO.StreamReader(FileNameRTO)
            
            RichTextBox1.Text = ObjectReaderRTO.ReadToEnd
            ObjectReaderRTO.Close()

＆＃13;

当前代码在桌面目录“Employee Record”中搜索其标题在TextBox1.Text中指定的子目录。

然后代码在子目录内搜索文本文件（文件扩展名为RTO），其文本名称在TextBox2.Text中指定。

假设子目录中有多个RTO文本文件，如何只需点击一下即可将所有文本打印到一个报告中？这可能吗？我正在使用Visual Basic 2010.提前谢谢。

Answer 1

您已为该文件夹创建了一个DirectoryInfo对象。您可以使用GetFiles方法获取扩展名为.RTO的所有文件，并将它们附加到RichTextBox，如下所示：

Dim FilePath As DirectoryInfo = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Employee Record\" & TextBox1.Text))

RichTextBox1.Clear 'omit this line if you want to keep the current contents 
For Each FileRTO As FileInfo In FilePath.GetFiles("*.RTO", SearchOption.TopDirectoryOnly)
    RichTextBox1.AppendText(File.ReadAllText(FileRTO.FullName))
Next

如何一键打印多个文本文件的内容

1 个答案: