Access數據庫軟件版本號保存在INI文件中,然後從INI文件中提取版本號

2017-09-07 09:05:00
zstmtony
原創
742


很久以前幫客戶做的一箇客戶管理繫統,有一箇取軟件版本號的函數,感覺還有點用,與大傢分享一下

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
分享