从字符串值visual basic中提取单独的双精度值。Net

Imports System

Module Program
    Sub Main(args As String())
        Dim input As String = "visual basic"
        Dim value As Double

        ' 使用正则表达式检查字符串中是否存在双精度值的模式
        Dim pattern As String = "[-+]?\d+(\.\d+)?"
        Dim match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(input, pattern)

        If match.Success Then
            ' 提取双精度值并尝试转换为Double类型
            If Double.TryParse(match.Value, value) Then
                Console.WriteLine("提取到的双精度值为: " & value)
            Else
                Console.WriteLine("无法将提取到的值转换为双精度类型")
            End If
        Else
            Console.WriteLine("字符串中未找到双精度值")
        End If

        Console.ReadLine()
    End Sub
End Module