Vollständige Code-Zeile ermitteln

Funktion

Diese Funktion ermittelt die vollständige Code-Zeile

Code

Public Function GibGanzeZeile(Modul As VBIDE.VBComponent, ByVal lngStart As Long) As String


  'Variablen deklarieren
  Dim mdl As VBIDE.CodeModule
  Dim strGanzZeile As String
  Dim strZeile As String
  Dim lngStartAb As Long
  Dim lngStartAuf As Long


  Set mdl = Modul.CodeModule


  'Vorhergehende Zeilen
  lngStartAuf = lngStart - 1
  strZeile = Trim$(mdl.Lines(lngStartAuf, 1))
  Do While Right$(strZeile, 1) = "_"
    strGanzZeile = Left$(strZeile, Len(strZeile) - 1) & strGanzZeile
    lngStartAuf = lngStartAuf - 1
    strZeile = Trim$(mdl.Lines(lngStartAuf, 1))
  Loop


  'Folgende Zeilen
  lngStartAb = lngStart
  strZeile = Trim$(mdl.Lines(lngStartAb, 1))
  Do While Right$(strZeile, 1) = "_"
    strGanzZeile = strGanzZeile & Left$(strZeile, Len(strZeile) - 1)
    lngStartAb = lngStartAb + 1
    strZeile = Trim$(mdl.Lines(lngStartAb, 1))
  Loop
  strGanzZeile = strGanzZeile & strZeile
  GibGanzeZeile = strGanzZeile


End Function

Beschreibung

Es wird so lange Zeile für Zeile aneinandergefügt, wie die letzte Zeile mit einem "_" endet.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich:

• Microsoft Visual Basic for Applications Extensibility 5.3