Dateiversion vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Rolf,
vielen Dank fuer Deine schnelle Hilfe. Konnte mich gestern nicht mehr damit beschaeftigen.
Bei Deiner Anregeung muss ich immer erst die Stelle nach dem zweiten Punkt pruefen ( ob ein- oder zweistellig und wenn einstellig muss ich dann noch eine fuehrende Null voransetzen). Habe mir jetzt keine Gedanken gemacht wie ich das loese aber gestern Abend ist mir auch so eine Idee gekommen und die habe ich soeben umgesetzt .... und ....... funktioniert einwandfrei. Der Code besteht eigentlich nur aus vier Zeilen.
Ich habe ja die alte Version z.B. 8.0.9 und die neue Version z.B. 8.0.10
Diese bestehen theoretisch immer aus drei Stellen. Also
1.Stelle = 8
2. Stelle = 0
3. Stelle = 9 bzw. 10
nun habe ich die die erste Stelle als hunderter-Stelle, die zweite als zehner-Stelle und die dritte Stelle als einer-Stelle angenommen und dann jewils mit 100, 10 oder 1 multipliziert und die Ergebnisse dann addiert.
Der Code hierfuer sieht wie folgt aus:
ActVersion ist die aktuelle Versionsnummer also laut Beispiel die 8.0.9
NewVersion die gefundene Versionsnummer also laut Beispiel die 8.0.10
ActVer = Split(ActVersion, ".")
ActVersion = ActVer(0) * 100 + ActVer(1) * 10 + ActVer(2)
NwVer = Split(NewVersion, ".")
NewVersion = NwVer(0) * 100 + NwVer(1) * 10 + NwVer(2)
Somit kann ich die beiden Versionsnummern als Zahlenwerte weiterverarbeiten
If NewVersion > ActVersion Then
'new version is just guilty if higher then 0
If NwVer(2) = 0 Then
Application.EnableEvents = True
Exit Sub
End If
'if new version higher then 0 then new version is guilty
If NwVer(2) > 0 Then
usrUpdateYN.Show
u.s.w.
Also nochmals vielen Dank und sorry wenn ich jemanden unnoetig bemueht habe.
Viele Gruesse
Roland

Sub Test() Dim strVersionAlt As String Dim strVersionNeu As String strVersionAlt = "9.1.9" strVersionNeu = "10.0.0" If fncVersionsNr(strNummer:=strVersionNeu) > fncVersionsNr(strNummer:=strVersionAlt) Then MsgBox "Version ist neu" Else MsgBox "Version ist alt/nicht neu" End If End Sub Function fncVersionsNr(strNummer, Optional AnzahlZiffern = 3, _ Optional strTrenn As String = ".") As String 'wandelt Text der Form "8.0.10" um in "008.000.010" 'AnzahlZiffern = Anzahl Ziffern, die pro Block im Ergebnis ausgegeben werden sollen 'strTrenn = Trennzeichen zwischen den Ziffernblöcken Dim varSplit, intI varSplit = VBA.Split(strNummer, strTrenn) For intI = LBound(varSplit) To UBound(varSplit) If fncVersionsNr = "" Then fncVersionsNr = Format(varSplit(intI), String(AnzahlZiffern, "0")) Else fncVersionsNr = fncVersionsNr & strTrenn & Format(varSplit(intI), String( _ AnzahlZiffern, "0")) End If Next End Function

Hallo Franz,
vielen Dank fuer Deine schnelle Hilfe. Konnte mich gestern nicht mehr damit beschaeftigen.
Bin noch nicht ganz so fit in VBA und habe mit function noch nie gearbeitet und weiss somit auch nicht wie das funktioniert. Aber ich habe Deinen Code trotzdem verstanden.....zumindest die Funktionsweise.
Hatte allerdings gestern abend eine Idee die ich soeben umgesetzt habe und die ist um einiges einfacher.
Ich habe ja die alte Version z.B. 8.0.9 und die neue Version z.B. 8.0.10
Diese bestehen theoretisch immer aus drei Stellen. Also
1.Stelle = 8
2. Stelle = 0
3. Stelle = 9 bzw. 10
nun habe ich die die erste Stelle als hunderter-Stelle, die zweite als zehner-Stelle und die dritte Stelle als einer-Stelle angenommen und dann jewils mit 100, 10 oder 1 multipliziert und die Ergebnisse dann addiert.
Der Code besteht eigentlich nur aus vier Zeilen und sieht wie folgt aus:
ActVersion ist die aktuelle Versionsnummer also laut Beispiel die 8.0.9
NewVersion die gefundene Versionsnummer also laut Beispiel die 8.0.10
ActVer = Split(ActVersion, ".")
ActVersion = ActVer(0) * 100 + ActVer(1) * 10 + ActVer(2)
NwVer = Split(NewVersion, ".")
NewVersion = NwVer(0) * 100 + NwVer(1) * 10 + NwVer(2)
Somit kann ich die beiden Versionsnummern als Zahlenwerte weiterverarbeiten
If NewVersion > ActVersion Then
'new version is just guilty if higher then 0
If NwVer(2) = 0 Then
Application.EnableEvents = True
Exit Sub
End If
'if new version higher then 0 then new version is guilty
If NwVer(2) > 0 Then
usrUpdateYN.Show
u.s.w.
Also nochmals vielen Dank und sorry wenn ich jemanden unnoetig bemueht habe.
Viele Gruesse
Roland

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread