0

我正在尝试检索各种已安装应用程序的版本号，然后在它们低于某个值时执行操作。例如：

Dim regKey As RegistryKey
        Dim ver As ???????
        regKey = Registry.LocalMachine.OpenSubKey("Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Flash Player ActiveX")
        ver = regKey.GetValue("DisplayVersion")
                MessageBox.Show(ver)
            If ver < 11.4.402.287 Then
            'Install updated version of software in question
        End If
        regKey.Close()

我如何定义 Ver 以便能够轻松地进行大于/小于检查？我试过了：

Dim ver as integer
Dim ver as decimal

这两个都返回“附加信息：从字符串“11.4.402.287”到类型“十进制”的转换无效。”

4

2 回答 2

1

假设您正在查看前两个组件，则进行简单的解析和检查：

Dim va = Ver.split("."c)
If va(0) < 11 OrElse (va(0) = 11) and va(1) < 4) Then 
    'Install updated ....
End If
于 2012-10-24T21:34:23.533 回答
0

一个正则表达式可能看起来像：

(?<major>\d+)(\.(?<minor>\d+)(\.(?<revision>\d+)(\.(?<build>\d+))?)?)?

然后，您可以使用组提取版本号：

Dim l_version As Regex = New Regex("(?<major>\d+)(\.(?<minor>\d+)(\.(?<revision>\d+)(\.(?<build>\d+))?)?)?")
Dim l_versionMatch As Match = l_version.Match( "1.2.3" )

Dim l_major As String = l_versionMatch.Groups("major").Value
于 2012-10-24T21:35:55.447 回答