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

### 回答1：
可以使用 Microsoft.VisualBasic.FileIO.TextFieldParser 类来读取 CSV 文件。首先将 CSV 文件的路径传递给 TextFieldParser，然后使用 while 循环遍历文件中的每一行。在循环中，使用 TextFieldParser 的 GetFields 方法获取行中的所有字段，然后可以访问第二列。
最后写入到新的csv文件中。

Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser("input.csv")
    parser.TextFieldType = FileIO.FieldType.Delimited
    parser.SetDelimiters(",")
    Dim currentRow As String()
    Using writer As New IO.StreamWriter("output.csv")
        While Not parser.EndOfData
            Try
                currentRow = parser.ReadFields()
                Dim secondCol = currentRow(1)
                writer.WriteLine(secondCol)
            Catch ex As Microsoft.VisualBasic.
                        FileIO.MalformedLineException
                MsgBox("Line " & ex.Message &
                "is not valid and will be skipped.")
            End Try
        End While
    End Using
End Using

这段代码中会读取input.csv文件，并且把第二列的数据逐行写入output.csv文件中

注意 : 上面的代码假设 CSV 文件中的字段是使用逗号分隔的。如果字段使用其他字符分隔，请将 SetDelimiters 方法中的参数更改为所需的分隔符。

### 回答2：
在VB.NET中，要读取CSV文件并将第二列数据写入另一个CSV文件，可以按照以下步骤进行操作：

1. 首先，我们需要导入 `System.IO` 命名空间，以便使用文件读写功能。

2. 创建一个函数来读取CSV文件。在该函数中，我们可以使用 `StreamReader` 来打开并读取CSV文件的内容。然后，使用 `Split` 函数将每一行按逗号分隔成一个字符串数组，并将该数组的第二项写入另一个CSV文件。最后，关闭文件流。

Private Sub ReadCSVAndWriteSecondColumnToAnotherCSV()
    Dim sourceFile As String = "path\to\source\file.csv"
    Dim destinationFile As String = "path\to\destination\file.csv"

    Dim sr As New System.IO.StreamReader(sourceFile)
    Dim sw As New System.IO.StreamWriter(destinationFile)

    While Not sr.EndOfStream
        Dim line As String = sr.ReadLine()
        Dim items As String() = line.Split(",")
        If items.Length > 1 Then
            sw.WriteLine(items(1))
        End If
    End While

    sr.Close()
    sw.Close()
End Sub

以上代码中，`sourceFile` 变量代表源CSV文件的路径，`destinationFile` 变量代表目的CSV文件的路径。通过 `StreamReader` 来读取源CSV文件的内容，通过 `StreamWriter` 来写入目的CSV文件的内容。

在每一行循环中，我们使用 `Split` 函数将当前行按逗号分隔成一个字符串数组，并检查该数组的长度是否大于1。只有当数组长度大于1时，我们才将数组的第二项写入到目的CSV文件。如果CSV文件中存在空行或只有一项的行，将会被跳过。

最后，我们关闭源文件和目的文件的文件流。

这样，通过调用 `ReadCSVAndWriteSecondColumnToAnotherCSV` 函数，就可以实现将CSV文件的第二列数据写入另一个CSV文件了。

### 回答3：
在VB.Net中，要读取和写入CSV文件可以使用`TextFieldParser`类和`StreamWriter`类。以下是一个读取CSV文件并将第二列数据写入另一个CSV文件的示例代码：

Imports Microsoft.VisualBasic.FileIO
Imports System.IO

Sub Main()
    Dim csvFilePath As String = "原始文件路径.csv"
    Dim outputFilePath As String = "输出文件路径.csv"

    ' 创建StreamReader对象，用于读取CSV文件
    Using reader As New TextFieldParser(csvFilePath)
        reader.TextFieldType = FieldType.Delimited
        reader.SetDelimiters(",")

        ' 创建StreamWriter对象，用于写入CSV文件
        Using writer As New StreamWriter(outputFilePath)
            While Not reader.EndOfData
                Dim fields As String() = reader.ReadFields()

                ' 判断是否有足够的列数
                If fields.Length >= 2 Then
                    ' 获取第二列数据，并写入输出文件
                    writer.WriteLine(fields(1))
                End If
            End While
        End Using
    End Using
End Sub

注意，你需要将"原始文件路径.csv"和"输出文件路径.csv"替换为实际的文件路径。代码逐行解释了每个步骤，包括创建`TextFieldParser`对象来读取CSV文件，设置分隔符并逐行读取数据。然后，将第二列数据写入目标CSV文件中。