VB.net实现CSV文件与文本文件互相追加功能的输出异常问题求助

从你的描述和代码来看，CSV内容追加到文本文件后显示异常，大概率是编码不匹配或者缺少换行分隔导致的，另外你的循环逻辑也存在可以优化的地方，下面一步步来解决：

1. 核心问题拆解 #

• 编码冲突：File.ReadAllText默认使用系统默认编码（比如Windows下的ANSI），而CSV文件通常采用UTF-8（带BOM或不带）编码，直接读取会导致乱码。
• 内容粘连：直接追加文件内容时，没有在源内容末尾添加换行符，会导致新追加的CSV内容和文本文件原有内容连在一起，格式混乱。
• 冗余代码：文件选择逻辑里的Dim temp As String = ListBox1.Text完全没有作用，可以直接删掉。

2. 修改后的核心追加代码 #

替换你原来的追加循环，加入编码指定和换行处理：

' 遍历每个源文件（ListBox1中存放的待追加文件）
For Each sourcePath As String In ListBox1.Items
    ' 指定UTF-8编码读取CSV文件，若你的CSV用其他编码可替换（比如Encoding.Default）
    Dim fileContent As String = File.ReadAllText(sourcePath, Encoding.UTF8)
    
    ' 确保内容末尾有换行，避免和目标文件原有内容粘连
    If Not fileContent.EndsWith(Environment.NewLine) Then
        fileContent &= Environment.NewLine
    End If
    
    ' 遍历每个目标文件（ListBox2中存放的接收文件）
    For Each targetPath As String In ListBox2.Items
        ' 用相同编码追加，保持格式一致
        File.AppendAllText(targetPath, fileContent, Encoding.UTF8)
    Next
Next

3. 优化后的文件选择逻辑 #

简化冗余代码，让逻辑更清晰：

' ListBox1（源文件）选择逻辑
If open.ShowDialog() = DialogResult.OK Then
    For Each file As String In open.FileNames
        ListBox1.Items.Add(file)
    Next
Else
    lblMessage.ForeColor = Color.Red
    lblMessage.Visible = True
    lblMessage.Text = "*PLEASE CHOOSE FILE TYPE*"
End If

' ListBox2（目标文件）选择逻辑
If open.ShowDialog() = DialogResult.OK Then
    For Each file As String In open.FileNames
        ListBox2.Items.Add(file)
    Next
Else
    lblMessage.ForeColor = Color.Red
    lblMessage.Visible = True
    lblMessage.Text = "*PLEASE CHOOSE FILE TYPE*"
End If

4. 额外排查建议 #

如果修改后还是有异常，可以试试这些方向：

• 替换编码：如果CSV是中文内容，可尝试用Encoding.GetEncoding("GB2312")或Encoding.Default匹配文件实际编码。
• 检查CSV本身：确认CSV文件没有格式错误（比如未闭合的引号、特殊控制字符等），这类问题也会导致追加后显示异常。

你可以先试试上面的修改，应该能解决大部分显示问题，如果还有具体的异常表现（比如乱码、内容错位等），可以补充说明，我再帮你进一步排查！

内容的提问来源于stack exchange，提问作者tgm-bantigue