vb.net - 如何从格式化的文本文件创建 csv 文件

Question

我有一个包含数百个潜在客户的文本文件，我正在尝试将其转换为 csv 进行导入。

整个文档的格式。

潜在客户名称

描述 网站

潜在客户名称

描述 网站

我将如何编写一个 vb 程序来循环通过它来制作一个 csv 文件。每4行就是一个新的前景。

Answer 1

将您的文件内容作为 IEnumerable(of String) 获取，然后旋转它，为每条记录添加一个 CSV 行（到一个新列表（字符串）中）。最后写入文件内容。您可能需要添加标题行。

        Dim lstLines As IEnumerable(Of String) = IO.File.ReadLines("C:\test\ConvertToCSV.txt")

        Dim lstNewLines As New List(Of String)

        Dim intRecordTracker As Integer = 0

        Dim strCSVRow As String = String.Empty

        For Each strLine As String In lstLines

            If intRecordTracker = 4 Then

                intRecordTracker = 0

                'Trim off extra comma.
                lstNewLines.Add(strCSVRow.Substring(0, (strCSVRow.Length - 1)))

                strCSVRow = String.Empty

            End If

            strCSVRow += strLine & ","

            intRecordTracker += 1

        Next

        'Add the last record.
        lstNewLines.Add(strCSVRow.Substring(0, (strCSVRow.Length - 1)))

        'Finally write the CSV file.
        IO.File.WriteAllLines("C:\Test\ConvertedCSV.csv", lstNewLines)

Answer 2

 Dim count As Integer = -1, lstOutput As New List(Of String)

 lstOutput.AddRange(From b In File.ReadAllLines("C:\temp\intput.txt").ToList.GroupBy(Function(x) (Math.Max(Threading.Interlocked.Increment(count), count - 1) \ 4)).ToList() Select String.Join(",", b))

 File.WriteAllLines("c:\temp\test\output.txt", lstOutput)