vb.net 读取csv，csv文件有3列，把第二列的数据写到另一个csv文件

你可以使用 VB.NET 中的 `TextFieldParser` 类来读取 CSV 文件。下面是一个示例代码，它读取一个名为 `input.csv` 的 CSV 文件，并将其第二列数据写入另一个名为 `output.csv` 的 CSV 文件。

Using parser As New TextFieldParser("input.csv")
    parser.TextFieldType = FieldType.Delimited
    parser.SetDelimiters(",")

    Using writer As New StreamWriter("output.csv")
        While Not parser.EndOfData
            Dim fields As String() = parser.ReadFields()
            writer.WriteLine(fields(1))
        End While
    End Using
End Using

在此示例中，我们使用 `TextFieldParser` 类来解析 CSV 文件，使用 `,` 作为字段分隔符。然后，我们循环遍历 CSV 文件中的每一行，并将其第二列写入名为 `output.csv` 的另一个 CSV 文件中。请注意，我们使用 `StreamWriter` 类来写入输出文件。

希望这可以帮助到你。

相关问题

vb.net 读取csv数据，csv文件有3列，没有表头，从第三列开始是数据，把第二列的数据写到另一个csv文件

### 回答1：
可以使用 .NET Framework 中的 System.IO 命名空间中的 StreamReader 类和 StreamWriter 类来读取和写入 CSV 文件。

首先，使用 StreamReader 读取 CSV 文件中的数据。在读取时可以使用 ReadLine 方法来逐行读取，并使用 Split 方法将每行数据拆分成字符串数组。然后可以使用索引访问每一列的数据。

然后，使用 StreamWriter 创建新的 CSV 文件并写入第二列的数据。在写入时可以使用 WriteLine 方法将数据写入新文件。

以下是示例代码：

'读取数据
Using reader As New StreamReader("data.csv")
    Dim line As String
    While Not reader.EndOfStream
        line = reader.ReadLine()
        Dim values() As String = line.Split(","c)
        '写入数据
        Using writer As New StreamWriter("newdata.csv", True)
            writer.WriteLine(values(1))
        End Using
    End While
End Using

注意：
- 这里假定每行都已使用逗号分隔，如果csv文件的分隔符不是逗号可能需要改变Split的参数
- 使用Using语句确保文件在使用后能正常关闭,如果是vb6 使用try finally

### 回答2：
在VB.Net中读取CSV数据并写入另一个CSV文件的实现如下：

Imports System.IO

Module Module1
    Sub Main()
        Dim inputFile As String = "input.csv" ' 输入CSV文件路径
        Dim outputFile As String = "output.csv" ' 输出CSV文件路径
        Dim delimiter As Char = "," ' CSV文件分隔符

        ' 读取CSV文件数据
        Dim csvData As New List(Of List(Of String))()
        Using reader As New StreamReader(inputFile)
            While Not reader.EndOfStream
                Dim line As String = reader.ReadLine()
                Dim values As String() = line.Split(delimiter)
                Dim row As New List(Of String)(values)

                csvData.Add(row)
            End While
        End Using

        ' 获取第二列数据
        Dim secondColumnData As New List(Of String)()
        For Each row In csvData
            If row.Count >= 2 Then ' 确保行中至少有2列数据
                secondColumnData.Add(row(1))
            End If
        Next

        ' 写入第二列数据到新的CSV文件
        Using writer As New StreamWriter(outputFile)
            For Each value In secondColumnData
                writer.WriteLine(value)
            Next
        End Using

        Console.WriteLine("第二列数据已写入到新的CSV文件。")
        Console.ReadLine()
    End Sub
End Module

请注意将`input.csv`替换为实际的输入CSV文件路径，将`output.csv`替换为实际的输出CSV文件路径。此代码假设CSV文件中的数据没有多余的空格或特殊字符，并且没有缺少列的行。如果有特殊要求或额外的数据处理需求，可能需要对代码进行修改。

### 回答3：
在VB.NET中读取CSV数据并将第二列数据写入另一个CSV文件的例子如下：

Imports System.IO

Module Module1
    Sub Main()
        Dim sourceFilePath As String = "source.csv"
        Dim targetFilePath As String = "target.csv"

        ' 读取源文件数据
        Dim sourceData As New List(Of String())
        Using reader As New StreamReader(sourceFilePath)
            While Not reader.EndOfStream
                Dim line As String = reader.ReadLine()
                Dim values As String() = line.Split(","c)
                sourceData.Add(values)
            End While
        End Using

        ' 写入目标文件
        Using writer As New StreamWriter(targetFilePath)
            For Each values As String() In sourceData
                If values.Length >= 2 Then
                    writer.WriteLine(values(1)) ' 将第二列数据写入目标文件
                End If
            Next
        End Using

        Console.WriteLine("数据已写入目标文件。")
        Console.ReadLine()
    End Sub
End Module

在代码中，首先定义了源文件路径和目标文件路径。然后，使用`StreamReader`读取源文件中的数据，并将每一行拆分成字符串数组。接着，使用`StreamWriter`将第二列的数据写入目标文件。最后，输出提示信息并等待用户按下回车键。

需要注意的是，CSV文件的列是基于逗号分隔的。在代码中，我们使用逗号分隔符`(","c)`来将每一行的数据拆分成字符串数组。如果CSV文件的分隔符不是逗号，你需要相应地更改此代码中的分隔符。

vb.net 读取csv数据，csv文件有3列，没有表头，从第三行开始读数据，把第二列的数据写到另一个csv文件

### 回答1：
可以使用 Microsoft.VisualBasic.FileIO.TextFieldParser 类来读取 csv 文件，然后使用 StreamWriter 类来写入新的 csv 文件。

下面是示例代码：

Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser("input.csv")
    parser.TextFieldType = FileIO.FieldType.Delimited
    parser.SetDelimiters(",")
    Using sw As New StreamWriter("output.csv")
        Dim i As Integer = 0
        While Not parser.EndOfData
            i += 1
            '跳过前两行
            If i < 3 Then
                parser.ReadFields()
                Continue While
            End If
            Dim fields As String() = parser.ReadFields()
            '取第二列数据并写入新文件
            sw.WriteLine(fields(1))
        End While
    End Using
End Using

### 回答2：
首先，使用VB.NET编写代码来读取CSV数据并将第二列数据写入另一个CSV文件。以下是一个示例代码：

Imports System.IO

Module Module1
    Sub Main()
        Dim sourceFilePath As String = "source.csv" ' 源CSV文件路径
        Dim targetFilePath As String = "target.csv" ' 目标CSV文件路径

        Dim sourceLines As String() = File.ReadAllLines(sourceFilePath) ' 读取源CSV文件的所有行
        Dim targetLines As New List(Of String)()

        ' 从第三行开始循环读取源CSV文件的每一行
        For i As Integer = 2 To sourceLines.Length - 1
            Dim currentLine As String = sourceLines(i)
            Dim currentData As String() = currentLine.Split(","c) ' 拆分当前行的数据

            ' 检查当前行是否有足够的列数据
            If currentData.Length >= 2 Then
                targetLines.Add(currentData(1)) ' 将第二列的数据添加到目标CSV文件的行中
            End If
        Next

        File.WriteAllLines(targetFilePath, targetLines) ' 将目标CSV文件的行写入目标CSV文件

        Console.WriteLine("成功写入目标CSV文件！")
        Console.ReadLine()
    End Sub
End Module

请根据实际情况更改源CSV文件路径（`sourceFilePath`）和目标CSV文件路径（`targetFilePath`）的值。这段代码首先读取源CSV文件的所有行，然后从第三行开始循环读取每一行。在循环中，它将当前行拆分为一个字符串数组，然后将第二个元素（第二列数据）添加到目标文件的行中。最后，它将目标文件的行写入目标CSV文件中。

请确保在使用此代码之前导入`System.IO`命名空间，以便能够使用`File`类来读写文件。编译并运行代码后，它会将源CSV文件的第二列数据写入目标CSV文件中。在成功写入后，将显示一条消息来表示。

### 回答3：
在VB.NET中，可以使用StreamReader和StreamWriter类来读取和写入CSV文件。首先，我们需要创建一个StreamReader对象来读取CSV文件。

Dim reader As New StreamReader("source.csv")
Dim writer As New StreamWriter("output.csv")

' 跳过前两行
reader.ReadLine()
reader.ReadLine()

While Not reader.EndOfStream
    Dim line As String = reader.ReadLine()
    Dim values As String() = line.Split(","c)

    ' 获取第二列数据
    Dim column2 As String = values(1)

    ' 写入到另一个CSV文件
    writer.WriteLine(column2)
End While

' 关闭文件流
reader.Close()
writer.Close()

在此示例中，我们假设源CSV文件是"source.csv"，我们将从第三行开始读取数据并将第二列的值写入到另一个CSV文件"output.csv"中。

请确保在写入数据到"output.csv"之前，您已经正确地设置了writer对象和CSV文件的路径。另外，如果源文件包含逗号或其他特殊字符，您可能需要处理这些情况以确保正确读取和写入数据。

注意，以上代码中未进行错误处理和异常处理。在实际编程中，建议添加适当的错误和异常处理，以确保程序的稳定性和健壮性。