Свойство Module.Lines (Access)

Статья
04/07/2023

Свойство Lines возвращает строку, содержащую содержимое указанной строки или строк в стандартном модуле или модуле класса. Только для чтения, String.

Синтаксис

expression. Lines (Line, NumLines)

Выражение Переменная, представляющая объект Module .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Line	Обязательный	Long	Номер возвращаемой первой строки.
NumLines	Обязательный	Long	Количество возвращаемых строк.

Замечания

Строки в модуле нумеруются начиная с 1. Например, если прочитать свойство Lines со значением 1 для аргумента Line и 1 для аргумента NumLines , свойство Lines возвращает строку, содержащую текст первой строки в модуле.

Чтобы вставить строку текста в модуль, используйте метод InsertLines .

Пример

В следующем примере из модуля удаляется указанная строка.

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

Эту функцию можно вызвать из следующей процедуры, которая выполняет поиск в модуле Module1 объявления константы и удаляет его.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via