Module.Lines-Eigenschaft (Access)

Artikel
04/07/2023

Die Lines-Eigenschaft gibt eine Zeichenfolge zurück, die aus dem Inhalt einer oder mehrerer Zeilen eines Standardmoduls oder eines Klassenmoduls besteht. Schreibgeschützte Zeichenfolge.

Syntax

Ausdruck. Lines (Line, NumLines)

Ausdruck Eine Variable, die ein Module-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Line	Erforderlich	Long	Die Nummer der ersten Zeile, die zurückgegeben wird.
NumLines	Erforderlich	Long	Die Anzahl von Zeilen, die zurückgegeben werden.

Hinweise

Die Nummerierung der Zeilen eines Moduls beginnt mit 1. Wenn Sie beispielsweise die Lines-Eigenschaft mit dem Wert 1 für das Argument Line und 1 für das NumLines-Argument lesen, gibt die Lines-Eigenschaft eine Zeichenfolge zurück, die den Text der ersten Zeile im Modul enthält.

Verwenden Sie die InsertLines-Methode , um eine Textzeile in ein Modul einzufügen.

Beispiel

Das folgende Beispiel löscht die angegebene Zeile aus einem Modul.

Function DeleteWholeLine(strModuleName, strText As String) _ 
 As Boolean 
 Dim mdl As Module, lngNumLines As Long 
 Dim lngSLine As Long, lngSCol As Long 
 Dim lngELine As Long, lngECol As Long 
 Dim strTemp As String 
 
 On Error GoTo Error_DeleteWholeLine 
 DoCmd.OpenModule strModuleName 
 Set mdl = Modules(strModuleName) 
 
 If mdl.Find(strText, lngSLine, lngSCol, lngELine, lngECol) Then 
 lngNumLines = Abs(lngELine - lngSLine) + 1 
 strTemp = LTrim$(mdl.Lines(lngSLine, lngNumLines)) 
 strTemp = RTrim$(strTemp) 
 If strTemp = strText Then 
 mdl.DeleteLines lngSLine, lngNumLines 
 Else 
 MsgBox "Line contains text in addition to '" _ 
 & strText & "'." 
 End If 
 Else 
 MsgBox "Text '" & strText & "' not found." 
 End If 
 DeleteWholeLine = True 
 
Exit_DeleteWholeLine: 
 Exit Function 
 
Error_DeleteWholeLine: 
 MsgBox Err & " :" & Err.Description 
 DeleteWholeLine = False 
 Resume Exit_DeleteWholeLine 
End Function

Sie können diese Funktion etwa aus der folgenden Prozedur aufrufen, die im Modul Modul1 eine Konstantendeklaration sucht und löscht.

Sub DeletePiConst() 
 If DeleteWholeLine("Module1", "Const conPi = 3.14") Then 
 Debug.Print "Constant declaration deleted successfully." 
 Else 
 Debug.Print "Constant declaration not deleted." 
 End If 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über