<\/p>\n
In dieser Ausgabe unserer Tipps-und-Tricks-Reihe stellen wir Ihnen einige Funktionen vor, die Sie speziell als Entwickler einsetzen können. Sie erfahren beispielsweise, wie Sie neue Versionsnummern ermitteln, eine Versionsnummer auf Gültigkeit prüfen und verschiedene Versionsstände vergleichen, ob eine Datenbank eine .mde\/.accde-Datei ist, wie Sie Texte per Code in die Zwischenablage kopieren oder wie Sie Zeichenketten für den Einsatz in URLs vorbereiten.<\/b><\/p>\n
Versionen fortschreiben<\/b><\/p>\n
Angenommen, Sie möchten Ihrer Anwendung auf Knopfdruck eine neue Versionsnummer verpassen – beispielsweise, indem Sie diese in das Feld Version<\/b> einer Optionentabelle schreiben.<\/p>\n
Ausgehend davon, dass Sie eine aus vier Elementen bestehende Versionsnummer verwenden (zum Beispiel 1.0.0.7<\/b>), müssen Sie zunächst festlegen, welche Stelle der Versionsnummer geändert werden soll.<\/p>\n
Bei der letzten Stelle ist dies kein Problem: Die wird einfach hochgezählt (etwa von 1.0.0.7 <\/b>auf 1.0.0.8<\/b>). Bei allen anderen Stellen ist sind jedoch auch noch die folgenden Stellen auf 0 <\/b>einzustellen, zum Beispiel von 1.0.0.8 <\/b>auf 1.0.1.0<\/b>, von 1.0.1.9 <\/b>auf 1.1.0.0 <\/b>oder auch von 1.2.3.4 <\/b>auf 2.0.0.0<\/b>.<\/p>\n
Die Funktion aus Listing 1<\/a><\/span> erledigt dies, indem sie einfach die Position der zu ändernden Stelle abfragt und als Ergebnis die neue Versionsnummer zurückliefert.<\/p>\n Listing 1: Neue Versionsnummer ermitteln<\/p>\n Die Funktion erwartet als Parameter die aktuelle Versionsnummer in der Form x.x.x.x<\/b>. Sie fragt als Erstes mit einer Inputbox die Stelle ab, die erhöht werden soll. Die Inputbox erwartet einen Wert zwischen 1 <\/b>und 4<\/b>.<\/p>\n Die einzelnen Ebenen der Versionsnummer werden dann mit der Funktion Split <\/b>in die Felder des Arrays intVersionsstufen <\/b>geschrieben. Die folgende Select Case<\/b>-Bedingung verzweigt entsprechend der zu ändernden Ebene der Versionsnummer.<\/p>\n Die zur jeweiligen Ebene gehörende Zahl wird um eins erhöht, die danach folgenden Ebenen auf 0 <\/b>eingestellt. Die Join<\/b>-Anweisung fügt die neuen Versionsstufen wieder zu einer vollständigen Versionsnummer zusammen.<\/p>\n Die Funktion finden Sie im Modul mdlVersionsnummern <\/b>der Beispieldatenbank.<\/p>\n Versionsstände vergleichen<\/b><\/p>\n Wenn Sie mit Versionsständen arbeiten, möchten Sie vielleicht auch einmal zwei Versionsstände vergleichen.<\/p>\n Wenn man sich darauf einigt, zumindest für die hinteren drei Zahlen, also Hauptversionsnummer, Nebenversionsnummer, Revisionsnummer und Buildnummer (also etwa 1.0.3.8), nur einstellige Zahlen zu verwenden, könnte man einfach die Trennzeichen (wie den Punkt) weglassen und die resultierenden Zahlenwerte vergleichen.<\/p>\n In der Regel gibt es aber auch Versionsstände wie 2.1.13.1048<\/b>, und dort greift diese Vorgehensweise nicht mehr.<\/p>\n Also benötigen wir eine etwas ausgefeiltere Funktion, um zu prüfen, ob ein Versionsstand neuer als ein anderer ist. Diese Prüfung erledigt die Funktion IstVersionAktueller <\/b>aus Listing 2<\/a><\/span>.<\/p>\n Listing 2: Prüfen, ob eine Versionsnummer aktueller als die andere ist<\/p>\n Die Funktion erwartet die Angabe zweier Versionsstände, wobei der erste der aktuellere sein soll. Kann die Funktion dies bestätigen, liefert sie den Wert True <\/b>zurück, sonst False<\/b>.<\/p>\n Für die Prüfung werden die beiden Versionsstände zunächst mit der Funktion VersionsnummerGueltig <\/b>auf ihr Format geprüft (siehe weiter unten).<\/p>\n Die Versionsnummern sollten aus vier durch Punkte getrennten Elementen bestehen (x.x.x.x).<\/p>\n Haben die beiden Versionsnummern das erwartete Format, werden die einzelnen Elemente beider Versionsnummern in die Arrays strVersionsstufenNeu() <\/b>und strVersionsstufenAlt() <\/b>aufgeteilt. Die Funktion vergleicht dann vom jeweils ersten Element ausgehend alle Elemente.<\/p>\n Dazu konvertiert sie den neuen und den alten Wert zunächst in die beiden Variablen intNeu <\/b>und intAlt<\/b>.<\/p>\n Eine Select Case<\/b>-Bedingung prüft dann zwei Fälle:<\/p>\n In beiden Fällen wird die Funktion beendet, einmal mit dem Rückgabewert True <\/b>und einmal mit False<\/b>. Sind beide Versionsnummern gleich, werden die Werte der jeweils nächsten Ebene der Versionsnummern verglichen.<\/p>\n Sollte bis zum letzten Element keine Entscheidung gefallen sein, sind beide Versionsnummern gleich – das bedeutet, dass die Funktion ebenfalls den Wert False <\/b>zurückgeben muss.<\/p>\n Die Funktion finden Sie ebenfalls im Modul mdlVersionsnummern <\/b>der Beispieldatenbank.<\/p>\n Versionsnummern prüfen<\/b><\/p>\n Wenn Sie Versionsnummern vergleichen möchten, sollten Sie zuvor prüfen, ob diese auch gültig sind.<\/p>\n Dies erledigt die Funktion VersionsnummerGueltig <\/b>aus Listing 3<\/a><\/span>. Beim Entwickeln dieser Funktion haben wir eine Reihe von Testfällen zuhilfe genommen, die wie folgt in einer VBA-Prozedur landeten:<\/p>\n Listing 3: Versionsnummer auf Gültigkeit prüfen<\/p>\n <\/p>\n Weitere Testzeilen prüften beispielsweise die Werte abc<\/b>, …<\/b>, 1.0<\/b>, 1.0.1<\/b>, 1.0.0.0<\/b>, 1.0.0.0.0<\/b>, 1.2.3.4 <\/b>oder 1,2.3.4.5<\/b>. Auf diese Weise können Sie während der Entwicklung einer solchen Funktion leicht prüfen, ob sie für alle Testfälle das gewünschte Ergebnis liefert.<\/p>\n Die Funktion VersionsnummerGueltig <\/b>erwartet eine Zeichenkette mit der Versionsnummer als Eingangsparameter und liefert einen Boolean-Wert zurück.<\/p>\n Die Prüfung erfolgt in zwei Schritten. Der erste prüft, ob die Versionsnummer überhaupt aus vier Elementen besteht. Dazu ist das Vorhandensein von drei Punkten (.) nötig.<\/p>\n Damit ist aber noch nicht sichergestellt, dass die Versionsangabe auch vier durch die Punkte getrennte Zahlen enthält.<\/p>\n Dies prüft die Funktion im zweiten Schritt. Dort werden alle vier der in ein Array eingefügten Elemente der Versionsnummer zunächst auf die Zeichenlänge geprüft (dies schließt fehlende Zahlen wie in 1..1.0<\/b> aus). Danach untersucht eine weitere Schleife, ob die einzelnen Elemente der Versionsnummer ausschließlich aus Zahlen bestehen.<\/p>\n Schlägt eine der Prüfungen fehl, wird die Funktion schlicht und einfach abgebrochen. Da Boolean<\/b>-Variablen standardmäßig den Wert 0<\/b>, also False<\/b>, enthalten, liefert die Funktion dann den korrekten Wert zurück.<\/p>\n Nur wenn alle Prüfungen gelingen und die Funktion somit nicht vorzeitig abgebrochen wird, weist die Funktion ihrem Rückgabeparameter am Ende den Wert True <\/b>zu.<\/p>\n Die Funktion finden Sie ebenfalls im Modul mdlVersionsnummern <\/b>der Beispieldatenbank.<\/p>\n Prüfen, ob Datenbank eine .mde\/.accde-Datei ist<\/b><\/p>\n Die Prüfung, ob eine Datenbank quelloffen ist oder nicht, ist sicher für mehrere Anwendungsfälle interessant. Im konkreten Fall wurde, wie üblich, mit einer quelloffenen Anwendung entwickelt, die dann vor der Verteilung in eine .mde<\/b>\/.accde <\/b>umgewandelt wurde.<\/p>\n Dies war auch der einzige Unterschied zwischen der Entwicklungs- und der Produktiv-Version. Während der Entwicklung sollte die Anwendung allerdings noch die Möglichkeit bieten, zu Testzwecken alternative Backends auszuwählen.<\/p>\n Man könnte nun irgendwo eine zusätzliche Eigenschaft oder Konstante einbauen, um festzulegen, ob es sich um die Entwicklungs- oder die Produktiv-Version der Anwendung handelt.<\/p>\n Das ist allerdings unnötig, denn Sie können einer einfachen Eigenschaft des Database<\/b>-Objekts entnehmen, ob gerade eine Datenbank mit offenen Quellen oder eine .mde<\/b>\/.accde<\/b>-Datenbank geöffnet ist.<\/p>\n Dies erledigt die Funktion IsMDE<\/b>. Sie erwartet einen Verweis auf das zu prüfende Datenbankobjekt und untersucht, ob es eine Property namens MDE <\/b>gibt und ob diese den Wert T <\/b>enthält.<\/p>\n Falls ja, handelt es sich um eine .mde<\/b>\/.accde<\/b>-Datenbank:<\/p>\n Die Funktion finden Sie im Modul mdlMDE <\/b>der Beispieldatenbank.<\/p>\n URLEncode<\/p>\n Wenn Sie URLs zusammensetzen und dabei Parameter hinzufügen, müssen Sie diese URL-tauglich machen. Das bedeutet, dass bestimmte Sonderzeichen nicht vorkommen dürfen. Die Funktion URLEncode <\/b>wandelt einen Ausdruck so um, dass er in einer URL als Parameter verwendet werden kann. Dazu wandelt sie bestimmte Sonderzeichen in einer speziellen Kodierung um. Dabei handelt es sich um das Prozentzeichen und eine zweistellige hexadezimale Zahl.<\/p>\n Die Zahl entspricht dabei dem ASCII-Code des jeweiligen Zeichens. Nicht umgewandelt werden lediglich die Zeichen 0<\/b>–9<\/b>, A<\/b>–Z<\/b>, a<\/b>–z<\/b>, das Minuszeichen (–<\/b>), der Punkt (.<\/b>), der Unterstrich (_<\/b>) und die Tilde (~<\/b>). Die Funktion erwartet folgenden Parameter:<\/p>\n Die Funktion sieht wie in Listing 4<\/a><\/span> aus. Sie finden sie im Modul mdlURLEncode <\/b>der Beispieldatenbank zu diesem Beitrag.<\/p>\n Listing 4: Zeichenketten URL-tauglich machen<\/p>\n Text in Zwischenablage speichern<\/b><\/p>\n Manchmal kann es sinnvoll sein, Texte in die Zwischenablage zu schreiben, vorrangig ist dies jedoch beim Entwickeln der Fall. Genau genommen trat diese Anforderung auf, als es die Ergebnisse des Aufrufs eines Webservice zu prüfen galt.<\/p>\n Dummerweise waren die zurückgelieferten XML-Dokumente jeweils so lang, dass sie nicht komplett im Direktfenster angezeigt werden konnten – es fehlte also jeweils der Anfang.<\/p>\n Welche Möglichkeiten bleiben, um den kompletten Inhalt des XML-Dokuments zu betrachten Beispielsweise hätte man diesen gleich in eine Textdatei schreiben und dann diese Textdatei öffnen können.<\/p>\n Als Alternative bot sich aber auch an, den Text des Dokuments einfach in die Zwischenablage zu kopieren, von wo aus man diesen einfach an die gewünschte Stelle kopieren konnte – in diesem Fall in einen Texteditor oder auch in ein Word-Dokument.<\/p>\n Weitere Beispiele für das Schreiben von Zeichenketten in die Zwischenablage finden sich überall dort, wo Sie Daten zu Debug-Zwecken in das Direktfenster eintragen.<\/p>\n Wenn Sie etwa in einer Prozedur immer wieder einen Link zusammenstellen und diesen prüfen möchten, würden Sie diesen gegebenenfalls im Direktfenster ausgeben, ihn dort kopieren und in die Adressleiste des Browsers eingeben.<\/p>\n Diesen Zwischenschritt können Sie sich sparen, wenn Sie die URL direkt in die Zwischenablage kopieren.<\/p>\n Zugegeben: Solche Einsatzzwecke tauchen gewiss nicht täglich auf, aber wenn sich einmal eine Aufgabe findet, bei der Sie immer wieder die gleiche, per Code erzeugte Zeichenkette weiterverarbeiten müssen, können Sie mit der hier vorgestellten Funktion viel Zeit sparen.<\/p>\nPublic Function NeueVersion(strVersion) As String\r\n Dim strVersionsstufen() As String\r\n Dim intVersionsebene As Integer\r\n intVersionsebene = InputBox("Aktuelle Versionsnummer: " & strVersion & vbCrLf _\r\n & "Welche Stelle erhöhen", "Neue Version", 4)\r\n strVersionsstufen() = Split(strVersion, ".")\r\n Select Case intVersionsebene\r\n Case 1\r\n strVersionsstufen(0) = strVersionsstufen(0) + 1\r\n strVersionsstufen(1) = 0\r\n strVersionsstufen(2) = 0\r\n strVersionsstufen(3) = 0\r\n Case 2\r\n strVersionsstufen(1) = strVersionsstufen(1) + 1\r\n strVersionsstufen(2) = 0\r\n strVersionsstufen(3) = 0\r\n Case 3\r\n strVersionsstufen(2) = strVersionsstufen(2) + 1\r\n strVersionsstufen(3) = 0\r\n Case 4\r\n strVersionsstufen(3) = strVersionsstufen(3) + 1\r\n End Select\r\n strVersion = Join(strVersionsstufen(), ".")\r\n NeueVersion = strVersion\r\nEnd Function<\/pre>\nPublic Function IstVersionAktueller(strVersionNeu As String, strVersionAlt As String) As Boolean\r\n Dim strVersionsstufenNeu() As String\r\n Dim strVersionsstufenAlt() As String\r\n Dim intNeu As Integer\r\n Dim intAlt As Integer\r\n Dim intVersionsebene As Integer\r\n If Not VersionsnummerGueltig(strVersionNeu) Then\r\n MsgBox "Die Versionsnummer ''" & strVersionNeu & "'' ist ungültig."\r\n Exit Function\r\n End If\r\n If Not VersionsnummerGueltig(strVersionAlt) Then\r\n MsgBox "Die Versionsnummer ''" & strVersionAlt & "'' ist ungültig."\r\n Exit Function\r\n End If\r\n strVersionsstufenNeu = Split(strVersionNeu, ".")\r\n strVersionsstufenAlt = Split(strVersionAlt, ".")\r\n For intVersionsebene = 0 To 3\r\n intNeu = CInt(strVersionsstufenNeu(intVersionsebene))\r\n intAlt = CInt(strVersionsstufenAlt(intVersionsebene))\r\n Select Case intNeu\r\n Case Is > intAlt\r\n IstVersionAktueller = True\r\n Exit Function\r\n Case Is < intAlt\r\n Exit Function\r\n End Select\r\n Next intVersionsebene\r\nEnd Function<\/pre>\n
\n
Public Function VersionsnummerGueltig(strVersion As String)\r\n Dim strVersionsstufen() As String\r\n Dim strNumerisch As String\r\n Dim intVersionsstufe As Integer\r\n Dim i As Integer\r\n strVersionsstufen = Split(strVersion, ".")\r\n If Not (UBound(strVersionsstufen) - LBound(strVersionsstufen) = 3) Then\r\n Exit Function\r\n End If\r\n For intVersionsstufe = LBound(strVersionsstufen) To UBound(strVersionsstufen)\r\n strNumerisch = Replace(strVersionsstufen(intVersionsstufe), ".", "")\r\n If Len(strNumerisch) = 0 Then\r\n Exit Function\r\n End If\r\n For i = 1 To Len(strNumerisch)\r\n If Not IsNumeric(Mid(strNumerisch, i, 1)) Then\r\n Exit Function\r\n End If\r\n Next i\r\n Next intVersionsstufe\r\n VersionsnummerGueltig = True\r\nEnd Function\r\nPublic Sub Test_VersionsnummerGueltig()\r\n Debug.Print "Test 1:",\r\n VersionsnummerGueltig("1") = False\r\n ...\r\nEnd Sub<\/pre>\nFunction IsMDE(db As Database) As Boolean\r\n On Error Resume Next\r\n Dim strMDE As String\r\n strMDE = db.Properties("MDE")\r\n If Err = 0 And strMDE = "T" Then\r\n IsMDE = True\r\n Else\r\n IsMDE = False\r\n End If\r\nEnd Function<\/pre>\n\n
Function URLEncode(StringVal As String) As String\r\n Dim intLen As Integer\r\n Dim i As Integer\r\n Dim intCharCode As Integer\r\n Dim strChar As String\r\n Dim strTemp As String\r\n intLen = Len(StringVal)\r\n If intLen > 0 Then\r\n For I = 1 To intLen\r\n strChar = Mid$(StringVal, I, 1)\r\n intCharCode = Asc(strChar)\r\n Select Case intCharCode\r\n Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126\r\n strTemp = strTemp & strChar\r\n Case 0 To 15\r\n strTemp = strTemp & "%0" & Hex(intCharCode)\r\n Case Else\r\n strTemp = strTemp & "%" & Hex(intCharCode)\r\n End Select\r\n Next i\r\n URLEncode = strTemp\r\n End If\r\nEnd Function<\/pre>\n