Startseite > Tipps & Tricks > Rund um die VB-IDE > Vollständige Code-Zeile ermitteln
Team-Moeller.de - Datenbankentwicklung und mehr ...

Vollständige Code-Zeile ermitteln

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

Microsoft MVP - Thomas Möller


21.04.2017:
TM-VBALineNumbers
Version 1.28.10 bereitgestellt.


27.03.2016:
TM VBA-Inspector:
Installationsroutine überarbeitet.


23.05.2014:
TM-RebuildDatabase
Version 1.75 bereitgestellt.


07.12.2014:
TM-DatenKlassenGenerator
Version 3.55 bereitgestellt.


Powered by CMSimple - Template by CMSimple-Styles.com - Autor:Thomas Möller