Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

17.5.10 Ermitteln des Inhalts der aktuellen Markierung

17.5.11 In Modulen suchen

Natürlich bietet das CodeModule-Objekt auch eine Methode zur Suche von Ausdrücken in einem Modul. Die Find-Methode hat acht Parameter - fünf Pflichtparameter und drei optionale. Die folgende Prozedur zeigt, wie Sie die Find-Methode zum Ermitteln des Ortes einer bestimmten Zeichenfolge einsetzen.

Public Function FindString(strModule As String, strSearch As String)

    Dim objCodeModule As CodeModule
    Dim lngStartLine As Long
    Dim lngStartColumn As Long
    Dim lngEndLine As Long
    Dim lngEndColumn As Long

    'Referenz auf angegebenes CodeModul anlegen
    Set objCodeModule = _
        VBE.ActiveVBProject.VBComponents.Item(strModule).CodeModule

    'Suche durchführen
    FindString = objCodeModule. Find(strSearch, lngStartLine, _
        lngStartColumn, lngEndLine, lngEndColumn)

    'Ausgabe des Ergebnisses
    Debug.Print "Erste Zeile: " & lngStartLine
    Debug.Print "Erstes Zeichen: " & lngStartColumn
    Debug.Print "Letzte Zeile: " & lngEndLine
    Debug.Print "Letztes Zeichen: " & lngEndColumn

    Set objCodeModule = Nothing

End Function

Listing 17.9: Ausgabe der Position einer zu suchenden Zeichenkette

Zusätzlich zu den fünf in der Prozedur verwendeten Parametern besitzt die Find-Methode noch drei Boolean-Parameter:

  • WholeWord: Sucht bei True nach kompletten übereinstimmenden Wörtern.
  • MatchCase: Beachtet bei True die Groß-/Kleinschreibung.
  • PatternSearch: Wertet den Suchausdruck bei True als regulären Ausdruck aus.
  • Nächster Abschnitt:

    17.6 Beispielanwendung: Codeviewer

    © 2006-2008 André Minhorst Alle Rechte vorbehalten.