StringBuilder Append 替换数据问题

Question

从一个非常大的 Excel 文件中，我们循环并将 3 列的值存储到变量中（uName(Row)、mgrName(Row)、title(Row)）。从这个excel，我们也可以得到行数。

当我尝试使用 StringBuilder 创建一个单独的 .xls 文件以供稍后在应用程序中使用时，问题就出现了。我的代码如下所示：

    Dim XLstring As System.Text.StringBuilder = New System.Text.StringBuilder
    Dim newfile As System.IO.StreamWriter
    Dim fileTitle

    XLstring.Append("Name,Manager,Title" & vbCrLf)

    For X As Integer = 2 To countrows
        If X = countrows Then
            MsgBox(countrows)
            MsgBox(uName(X) & "," & mgrName(X) & "," & title(X))
        End If

        XLstring.Append(uName(X) & "," & mgrName(X) & "," & title(X) & vbCrLf)
    Next

    fileTitle = System.DateTime.Now.ToString("yy-MM-dd hh-mm-ss") & ".xls"
    filePath2 = "myPath" & fileTitle

    newfile = File.CreateText(filePath2)
    newfile.WriteLine(XLstring)

这在大多数情况下都有效。我可以看到我正在使用 MsgBox 获取正确的行数以及最后一行中的正确信息。但是，当我打开生成的 .xls 文件时，文件末尾缺少条目。另外，如果我要改变

XLstring.Append("Name,Manager,Title" & vbCrLf)

类似于

XLstring.Append("Name,Manager" & vbCrLf)

我从追加行删除的确切字符数现在将成功显示在文件末尾缺少信息的地方。

使用这些函数时是否有一些我不理解的奇怪功能？我完全迷失了，不理解这种行为。

Answer 1

完成后需要关闭文件：

newfile.Close()

附带说明一下，您的文件正在使用 XLS 扩展名保存，但由于您导出的是逗号分隔值列表，我建议改为保存为 CSV 格式。

StringBuilder Append 替换数据问题

StringBuilder Append replacing data- issue

vb.net

string

excel

stringbuilder

append