如何查找整数旁边的字符并将它们求和

Question

我正在尝试在我的 richtextbox 多行中查找一个字符，我想对它们旁边的整数求和。 我正在寻找如下字符“M”：

68.9米 4.13米 5.05米

删除 M 并试图对它们求和，但它只是删除 M 而不显示任何总和

  Dim sum As Integer = 0
            RichTextBox1.Text = RichTextBox1.Text.Replace("M", "")
            For Each s As String In RichTextBox1.Lines
                Dim num As Integer = 0
                If Integer.TryParse(s, num) Then
                    sum += num
                    MsgBox(sum)
                End If
            Next

我该如何尝试修复它？

Note：此问题总结整理于:How to find characters next to integers and sum them

Answer 1

我对您的代码进行了一些修改，现在他可以得到正确的结果。

        Dim sum As Decimal = 0  
        RichTextBox1.Text = RichTextBox1.Text.Replace("M", "")  
        For Each s As String In RichTextBox1.Lines  
            Dim num As Decimal = 0  
            If Decimal.TryParse(s, num) Then  
                sum += num  
            End If  
        Next  
        MsgBox(sum)  

希望上面的代码可能会有所帮助。

---

如果答案是正确的，请点击“接受答案”并点赞。 如果您对此答案还有其他疑问，请点击“评论”。

注意：如果您想接收相关电子邮件，请按照我们的文档中的步骤启用电子邮件通知 此线程的通知。