如何将Listbox列表项拆分为年份与温度并行列表？

兄弟我太懂你这种感受了——明明觉得是个简单操作，结果熬到深夜还卡壳，简直挠心！别慌，咱们一步步把这个问题搞定，把ListBox里的每一行拆成年份和温度，稳稳存到并行列表里。

核心思路：拆分字符串 + 类型转换 #

你的ListBox每行数据是年份, 温度的格式，核心就是把每行按逗号拆分，清理掉多余空格，再把字符串转成对应的数值类型，分别存入两个列表就行。

方案一：从已填充的ListBox中提取数据 #

如果ListBox已经填好数据了，直接遍历每一项处理就行，还能顺便处理可能的无效数据：

' 先定义两个用来存年份和温度的并行列表
Dim years As New List(Of Integer)()
Dim temperatures As New List(Of Double)()

' 遍历ListBox里的每一行
For Each item As String In ListBox1.Items
    ' 按逗号拆分字符串，自动去掉空项（避免多余的空字符串）
    Dim parts() As String = item.Split(New Char() {","c}, StringSplitOptions.RemoveEmptyEntries)
    
    ' 确保拆分后正好是两个部分（年份+温度）
    If parts.Length = 2 Then
        ' 清理掉字符串前后的空格（比如示例里的" 6.654616"前面的空格）
        Dim yearStr As String = parts(0).Trim()
        Dim tempStr As String = parts(1).Trim()
        
        ' 用TryParse来转换，避免数据格式错误导致崩溃
        Dim parsedYear As Integer
        Dim parsedTemp As Double
        If Integer.TryParse(yearStr, parsedYear) AndAlso Double.TryParse(tempStr, parsedTemp) Then
            ' 转换成功就加到列表里
            years.Add(parsedYear)
            temperatures.Add(parsedTemp)
        Else
            ' 遇到无效数据可以弹窗提示，或者直接跳过
            MessageBox.Show($"这行数据有问题，跳过：{item}")
        End If
    Else
        ' 遇到格式不对的行（比如少了逗号）也提示一下
        MessageBox.Show($"行格式错误，跳过：{item}")
    End If
Next

方案二：读取CSV时直接拆分存储（更高效） #

其实你完全可以跳过“先把CSV读到ListBox，再从ListBox提取”这一步，直接读CSV的时候就把数据拆好存列表，同时再把内容加到ListBox里显示，一步到位：

' 先引用Microsoft.VisualBasic.FileIO，方便解析CSV
Using csvParser As New Microsoft.VisualBasic.FileIO.TextFieldParser("你的CSV文件路径")
    csvParser.TextFieldType = FileIO.FieldType.Delimited
    csvParser.SetDelimiters(",") ' 设置分隔符为逗号
    
    ' 定义并行列表
    Dim years As New List(Of Integer)()
    Dim temperatures As New List(Of Double)()
    
    While Not csvParser.EndOfData
        Try
            ' 读取一行的所有字段
            Dim fields As String() = csvParser.ReadFields()
            If fields.Length = 2 Then
                ' 清理空格并转换类型
                Dim year As Integer = Integer.Parse(fields(0).Trim())
                Dim temp As Double = Double.Parse(fields(1).Trim())
                
                ' 存到列表
                years.Add(year)
                temperatures.Add(temp)
                
                ' 同时添加到ListBox显示
                ListBox1.Items.Add($"{year}, {temp}")
            End If
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            ' 处理读取错误的行
            MessageBox.Show($"读取第{csvParser.LineNumber}行出错：{ex.Message}")
        End Try
    End While
End Using

关键注意点 #

• 一定要用Trim()清理空格：你的示例数据里温度前面有空格，不清理的话转换数值会失败
• 用TryParse而不是直接Parse：避免CSV里有脏数据（比如空行、非数字内容）导致程序崩溃
• 如果是VB.NET项目，记得确认已经引用了Microsoft.VisualBasic程序集（一般默认会引用）

内容的提问来源于stack exchange，提问作者Andrew Courtney