我需要阅读存储在一个文件夹中的多个文件。当我阅读每个文件时,我需要删除管道前后的所有空格。我使用正则表达式删除了大部分空白,但当字段为空时,管道之间留有一个空格。使用此代码,我可以读取硬编码的文件名(一个)。如何更改它以读取目录(文件夹)中的所有文件?
Dim fileEntries As String() = Directory.GetFiles("C:\Documents and Settings\Desktop\files\")
For Each fileName As String In fileEntries
Dim FileReader As StreamReader
FileReader = New StreamReader(fileName)
Dim FileWriter As StreamWriter
'***The following code doesn't work.
'FileWriter = New StreamWriter("C:\Documents and Settings\Desktop\NewFiles" & fileName & "done.txt")
While (FileReader.Peek <> -1)
Dim str As String = FileReader.ReadLine()
str = System.Text.RegularExpressions.Regex.Replace(str, "\s{2,}", "")
FileWriter.WriteLine(str)
End While
FileWriter.Close()
Next