Access数据库软件版本号保存在INI文件中,然后从INI文件中提取版本号

2017-09-07 09:05:00
zstmtony
原创
98


很久以前帮客户做的一个客户管理系统,有一个取软件版本号的函数,感觉还有点用,与大家分享一下

Access数据库软件版本号保存在INI文件中,然后从INI文件中提取软件的当前版本号(可用来与服务器的最新版本号对比,然后提示是否需要更新)


'软件版本号保存在INI文件中,然后从INI文件中提取版本号
Private Sub GetCurrVer()
 '作者:tmtony  2003-02-03
 Dim sLine As String, iPos As Integer, sTmp As String
  Dim sFormName As String, sTmp2 As String
  Dim bFormFound As Boolean
  Dim intType As Integer
  Dim iPos2 As Integer
  Dim iSubIndex As Integer
  Dim iIndex As Integer
  Dim sFile As String
  
  sFile = CurrentProject.Path & "\cn2005.ini"

  Open sFile For Input As #1
    Do

      Input #1, sLine

      If Left$(sLine, 1) = ";" Or sLine = "" Then GoTo Jump


      iPos = InStr(sLine, "=")
      
      'sTmp = Mid$(sLine, iPos + 1, InStr(sLine, "=") - iPos - 1)
 

      If iPos > 0 Then
        sTmp = Left$(sLine, iPos - 1)
       'If sTmp = "Version" Then
        sTmp2 = Mid$(sLine, InStr(sLine, "=") + 2)
       'End If
       If Right$(sTmp2, 1) = Chr$(34) Then sTmp2 = Left$(sTmp2, Len(sTmp2) - 1)
       Select Case sTmp
        Case "Version"
            txtCurrVersion = sTmp2
        Case "VersionDate"
            txtCurrVersionDate = sTmp2
        Case "Path"
            Me.txtCurrPath = sTmp2
            
       End Select
       
       GoTo Jump
      End If
      
Jump:


    Loop Until EOF(1)
 
  Close #1
  txtCurrPath = Nz(CurrentProject.Path)
End Sub
分享