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文件的分隔符不是逗号，你需要相应地更改此代码中的分隔符。