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文件的路径。另外，如果源文件包含逗号或其他特殊字符，您可能需要处理这些情况以确保正确读取和写入数据。

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