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: