课程作业遇System.InvalidCastException异常求助：字符串转Integer失败

Hey there, sorry you're stuck on this coursework—let's break down what's going wrong here!

问题根源 #

那个System.InvalidCastException异常说得很直白：你正在尝试把一段混合了文本和数字的字符串（比如"1: Night F3, 10 tickets purchase"）直接转换成Integer类型。VB没办法自动把这种带非数字内容的字符串转成整数，所以就抛出了错误。

从你给出的代码片段来看，你定义了fridaytickets As Integer（整数变量）和文件路径filename，大概率是读取文件内容时，不小心把整行字符串直接赋值给了fridaytickets，而不是只提取行里的数字部分（也就是那行里的10）。

修复方案 #

你需要先从目标字符串里提取出纯数字部分，再转换成整数。这里给你两种实用的方法：

方法1：按固定格式分割提取

如果你的文件每行格式都是类似"X: XXX XXX, N tickets purchase"的固定结构，可以用Split方法拆分字符串，精准拿到数字：

' 假设读取到的行内容存在line变量里
Dim line As String = "1: Night F3, 10 tickets purchase"
' 第一步：按逗号分割，拿到包含数字的后半段
Dim lineParts() As String = Split(line, ",")
' 第二步：去掉后半段的前后空格，再按空格拆分拿到数字字符串
Dim ticketText As String = Trim(lineParts(1))
Dim ticketNumStr As String = Split(ticketText, " ")(0)
' 第三步：用TryParse安全转换（避免转换失败再次报错）
Dim ticketCount As Integer
If Integer.TryParse(ticketNumStr, ticketCount) Then
    fridaytickets = ticketCount
Else
    ' 转换失败的兜底处理，比如给默认值或提示
    fridaytickets = 0
    Console.WriteLine("Failed to read ticket number from this line.")
End If

方法2：用正则表达式灵活提取

如果行的格式可能有小变动，正则表达式能更灵活地匹配出数字：

Imports System.Text.RegularExpressions ' 记得在文件顶部导入这个命名空间

' 读取到的行内容
Dim line As String = "1: Night F3, 10 tickets purchase"
' 匹配行里的第一个数字序列
Dim numberMatch As Match = Regex.Match(line, "\d+")
If numberMatch.Success Then
    Dim ticketCount As Integer
    If Integer.TryParse(numberMatch.Value, ticketCount) Then
        fridaytickets = ticketCount
    End If
Else
    ' 没有找到数字的兜底处理
    fridaytickets = 0
End If

关键提醒 #

一定要检查你读取文件行的代码，绝对不能直接把LineInput或者文件读取的整行内容赋值给fridaytickets（比如fridaytickets = LineInput(1)这种写法肯定会报错）。先提取数字，再转换才是正确的流程。

内容的提问来源于stack exchange，提问作者eilidh w