Ist eine Codezeile ein Kommentar

Funktion

Diese Funktion prüft, ob die übergebene Codezeile aus einem Kommentar besteht.

Code

Public Function IstZeileKommentar(strZeile As String) As Boolean


  'Variablen deklarieren
  strZeile = Trim$(strZeile)


  If Left$(strZeile, 1) = "'" Or Left$(strZeile, 3) = "Rem" Then
    IstZeileKommentar = True
  End If


End Function

Beschreibung

Im ersten Schritt werden führende Leerzeichen entfernt. Dann wird geprüft, ob die Zeile mit einem Apostroph (') oder mit dem Schlüsselwort "Rem" beginnt.

Verweise

Dieser Code funktioniert ohne dass zusätzliche Verweise erforderlich sind.