vb.net - 2 つの問題 - vb.net を使用して複数のファイルを読み取り、複数のスペースを削除した後にパイプ間の単一のスペースを削除する

Question

1 つのフォルダーに格納されている複数のファイルを読み取る必要があります。各ファイルを読んでいるときに、パイプの前後の空白をすべて削除する必要があります。正規表現を使用してほとんどの空白を削除しましたが、フィールドが null の場合、パイプ間に 1 つのスペースが残ります。このコードを使用すると、ハードコードされたファイル名 (1 つ) を読み取ることができます。ディレクトリ(フォルダ)内のすべてのファイルを読み取るように変更するにはどうすればよいですか?

 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