vb.net如何将长文本添加到csv中

你好，这是我的冷杉线， 我正在尝试转换此页面的说明（） 用正则表达式替换

标记为新行并将其转换为csv

datagridview没问题，但csv被搞砸了

这是我的代码：

Dim dskrip As New System.Text.RegularExpressions.Regex("<p itemprop=""description"" class=""mt-20"">(.*?)\<\/p>\<\/div>")
        Dim dskripm As MatchCollection = dskrip.Matches(rssourcecode0)

        For Each itemdskrm As Match In dskripm
            getdeskripsinew = itemdskrm.Groups(1).Value
        Next
Dim deskripsinew As String = Replace(getdeskripsinew, ",", ";")
        Dim deskripsitotal As String = Replace(deskripsinew, "<br/>", Environment.NewLine)
        '   ListView1.s = Environment.NewLine & deskripsinew
        txtDeskripsi.Text = deskripsitotal
        datascrapes.ColumnCount = 5
        datascrapes.Columns(0).Name = "Title"
        datascrapes.Columns(1).Name = "Price"
        datascrapes.Columns(2).Name = "Deskripsi"
        datascrapes.Columns(3).Name = "Gambar"
        datascrapes.Columns(4).Name = "Total Produk"
        Dim row As String() = New String() {getname, totalprice, deskripsitotal, directoryme + getfilename, "10"}
        datascrapes.Rows.Add(row)
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & "Tokopedia_Upload.csv"
        Dim delimeter As String = ","
        Dim sb As New StringBuilder
        For i As Integer = 0 To datascrapes.Rows.Count - 1
            Dim array As String() = New String(datascrapes.Columns.Count - 1) {}
            If i.Equals(0) Then
                For j As Integer = 0 To datascrapes.Columns.Count - 1
                    array(j) = datascrapes.Columns(j).HeaderText
                Next
                sb.AppendLine(String.Join(delimeter, array))
            End If
            For j As Integer = 0 To datascrapes.Columns.Count - 1
                If Not datascrapes.Rows(i).IsNewRow Then
                    array(j) = datascrapes(j, i).Value.ToString
                End If
            Next
            If Not datascrapes.Rows(i).IsNewRow Then
                sb.AppendLine(String.Join(delimeter, array))
            End If
        Next
        File.WriteAllText(filePath, sb.ToString)    

Dim dskrip作为新系统.Text.RegularExpressions.Regex（
（**？\\”）
Dim dskripm As MatchCollection=dskrip.Matches（rssourcecode0）
对于每个项目，DSKRM作为dskripm中的匹配项
getdeskripsinew=itemdskrm.Groups（1）.Value
下一个
Dim deskripsinew As String=Replace（getdeskripsinew，，，，；）
Dim deskripsitotal As String=Replace（deskripsinew，“
”，Environment.NewLine）
'ListView1.s=Environment.NewLine&deskripsinew
txtdescripsi.Text=deskripsitotal
datascrapes.ColumnCount=5
datascrapes.Columns（0）.Name=“Title”
datascrapes.Columns（1）.Name=“价格”
datascrapes.Columns（2）.Name=“Deskripsi”
datascrapes.Columns（3）.Name=“Gambar”
datascrapes.Columns（4）.Name=“总产量”
Dim row As String（）=新字符串（）{getname，totalprice，deskripsitotal，directoryme+getfilename，“10”}
datascrapes.Rows.Add（行）
Dim filePath的格式为String=Environment.GetFolderPath（Environment.SpecialFolder.Desktop）&“\”和“Tokopedia\u Upload.csv”
尺寸delimeter为字符串=“，”
使某人成为新的架线工
对于i As Integer=0到datascrapes.Rows.Count-1
Dim数组作为字符串（）=新字符串（datascrapes.Columns.Count-1）{}
如果i等于（0），那么
对于j，整数=0到datascrapes.Columns.Count-1
数组（j）=datascrapes.Columns（j）.HeaderText
下一个
sb.AppendLine（字符串连接（delimeter，数组））
如果结束
对于j，整数=0到datascrapes.Columns.Count-1
如果不是datascrapes.Rows（i）.IsNewRow，那么
数组（j）=数据集（j，i）.Value.ToString
如果结束
下一个
如果不是datascrapes.Rows（i）.IsNewRow，那么
sb.AppendLine（字符串连接（delimeter，数组））
如果结束
下一个
File.WriteAllText（文件路径，sb.ToString）

---

我不确定您的问题是在哪里查看CSV文件，但在某些情况下，您需要引用CSV的值。没有官方规范，但经常被用作非官方标准。我建议使用类似

的库，我的意思是如何在单单元格csv中换行，如果我使用vbCrLf或Environment.NewLine，则列桌面会出错，很抱歉我的英语不好：oBoth可以工作，但您需要在文本周围加引号。