错误：Microsoft.VisualBasic.dll 中出现“System.InvalidCastException”类型的第一次机会异常

Question

我正在研究一个简单的匹配算法。我对编程很陌生，不太了解我遇到的错误。

File.txt 包含这种格式的数据（每行之间没有空格）：

5,Name,9,9,9,9

4,Name,4,8,0,3 

3,Name,4,7,3,5 

2,Name,3,5,6,3 

1,Name,5,8,2,9

0,Name,2,5,3,2

“在 Microsoft.VisualBasic.dll 中发生了“System.InvalidCastException”类型的第一次机会异常

附加信息：从字符串“”到类型“整数”的转换无效。”

“CustomNrOld = splits(0)”出现错误，我不明白为什么。

对任何形式的帮助都会很高兴！

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim CustomNrNew As Integer
        Dim NameIDnew As String
        Dim Alphanew As Integer
        Dim Betanew As Integer
        Dim Gammanew As Integer
        Dim Deltanew As Integer
        Dim CustomNrOld As Integer
        Dim NameIDold As String
        Dim Alphaold As Integer
        Dim Betaold As Integer
        Dim Gammaold As Integer
        Dim Deltaold As Integer
        Dim R1 As Integer
        Dim R2 As Integer
        Dim R3 As Integer
        Dim R4 As Integer

    Using sr As New StreamReader("C:\\Users\\Paul\\Documents\\Weever\\file.txt")
        Dim splits As String() = sr.ReadLine.Split(","c)
        CustomNrNew = splits(0)
        NameIDnew = splits(1)
        Alphanew = splits(2)
        Betanew = splits(3)
        Gammanew = splits(4)
        Deltanew = splits(5)
    End Using

    Using sr As New StreamReader("C:\\Users\\Paul\\Documents\\Weever\\file.txt")
        sr.ReadLine()
        Do While Not sr.EndOfStream
            Dim splits As String() = sr.ReadLine.Split(","c)
            CustomNrOld = splits(0)
            NameIDold = splits(1)
            Alphaold = splits(2)
            Betaold = splits(3)
            Gammaold = splits(4)
            Deltaold = splits(5)

            If Alphanew >= Alphaold = True Then
                R1 = (Alphaold / Alphanew) * 100
            Else
                R1 = (Alphanew / Alphaold) * 100
            End If

            If Betanew >= Betaold = True Then
                R2 = (Betaold / Betanew) * 100
            Else
                R2 = (Betanew / Betaold) * 100
            End If
            If Gammanew >= Gammaold = True Then
                R3 = (Gammaold / Gammanew) * 100
            Else
                R3 = (Gammanew / Gammaold) * 100
            End If
            If Deltanew >= Deltaold = True Then
                R4 = (Deltaold / Deltanew) * 100
            Else
                R4 = (Deltanew / Deltaold) * 100
            End If

            Dim Result As Integer
            Result = ((R1 + R2 + R3 + R4) / 4)

            My.Computer.FileSystem.WriteAllText("C:\\Users\\Paul\\Documents\\Weever\\" & NameIDnew & ".txt",
               Result & "%" & " - " & NameIDold & " " & R1 & "% / " & R2 & "% / " & R3 & "% / " & R4 & "% " & Environment.NewLine, True)

            My.Computer.FileSystem.WriteAllText("C:\\Users\\Paul\\Documents\\Weever\\" & NameIDold & ".txt",
               Result & "%" & " - " & NameIDnew & " " & R1 & "% / " & R2 & "% / " & R3 & "% / " & R4 & "% " & Environment.NewLine, True)
        Loop
    End Using

Answer 1

如果您在 splits() 中引用某些内容并且希望它位于 Integer 变量中，则需要将字符串转换为整数（这就是错误告诉您的内容）。

例如：CustomNrNew = splits(0)

在这段代码中，您试图将一个字符串值（splits 是一个字符串数组）分配给一个整数 (CustomNrNew)。您不能将字符串直接转换为整数，因此会出现错误。

要将字符串值转换为整数，请尝试使用CustomNrNew = Convert.ToInt32(splits(0))（并将“0”替换为您在每一行中使用的任何值）。

Answer 2

您将拆分声明为一个字符串桶

然后尝试将字符串放入整数中

CustomNrOld = Convert.ToInt32(splits(0));  

会解决你的问题