Forum:CATIA V5 Programmierung
Thema:Makro-Version abfragen
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
C.Samer

Beiträge: 70 / 0

Hey, du kannst auch direkt aus dem Makro die Version auslesen.
Habe das mal so in einem alten VBA Projekt verwendet und würde es jetzt so nicht
mehr machen (vor allem da ich jetzt nur noch in CATScript programmiere) aber vielleicht hilft es dir ja!

Copy Paste:

Code:

Attribute VB_Name = "ProjectName"
Option Explicit
Global Const glbProject = "ProjectName"
Global Const glbVersion = "1.2"
Global Const glbLanguage = "VBA"
Global Const glbAuthor = "Samer Christoph"
Global Const glbCompany = "Max Mustermann GmbH"
Global Const glbCreationDate = "23.March.2015, 12:00"
Global Const glbLastUpdate = "13.April.2015, 09:15"

Function CheckVersion()
    On Error Resume Next
        Dim strVerFile As String
        strVerFile = "Y:\CatiaMakros\" & glbProject & "\" & glbProject & ".bas"
        If CATIA.FileSystem.FileExists(strVerFile) Then
            Dim objFile As File
            Dim objTextStream As TextStream
            Set objFile = CATIA.FileSystem.GetFile(strVerFile)
            Set objTextStream = objFile.OpenAsTextStream("ForReading")
            Dim intCountLine As Integer
            intCountLine = 0
            Dim strVerLine As String
            For intCountLine = 0 To 20
                strVerLine = objTextStream.ReadLine
                If InStr(strVerLine, "Global Const glbVersion = ") Then
                    strVerLine = Split(strVerLine, "Global Const glbVersion = " & Chr(34))(1)
                    strVerLine = Split(strVerLine, Chr(34))(0)
                    If strVerLine <> CStr(glbVersion) Then
                        MsgBox "New version of this macro available." & vbCrLf & vbCrLf & _
                        "Your version:" & vbTab & CStr(glbVersion) & vbCrLf & _
                        "Newest version:" & vbTab & strVerLine
                        objTextStream.Close
                        End
                    Else
                        objTextStream.Close
                        Exit Function
                    End If
                End If
            Next
                If intCountLine >= 20 Then
                    MsgBox "An error occured while checking for macro-updates", vbExclamation, "Version Entry not found"
                    objTextStream.Close
                    End
                End If
        End If
        If Err.Number <> 0 Then
            MsgBox "An error occured while checking for macro-updates", vbExclamation, "General Error"
            objTextStream.Close
            Err.Clear
            End
        End If
    On Error GoTo 0
End Function


Gruß,
Christoph

[Diese Nachricht wurde von C.Samer am 27. Sep. 2018 editiert.]