Compartir a través de

Propiedad Module.Lines (Access)

  • Artículo

La propiedad Lines devuelve una cadena que contiene el contenido de una línea o líneas especificadas en un módulo estándar o un módulo de clase. String de solo lectura.

Sintaxis

expresión. Líneas (Línea, NumLines)

Expresión Variable que representa un objeto Module .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Line Obligatorio Long Número de línea de la primera línea que se devuelve.
NumLines Obligatorio Long Número de líneas que se devuelve.

Comentarios

Las líneas de un módulo se numeran a partir de 1. Por ejemplo, si lee la propiedad Lines con un valor de 1 para el argumento Line y 1 para el argumento NumLines , la propiedad Lines devuelve una cadena que contiene el texto de la primera línea del módulo.

Para insertar una línea de texto en un módulo, utilice el método InsertLines.

Ejemplo:

En el ejemplo siguiente se elimina una línea especificada de un módulo.

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

Puede llamar a esta función desde un procedimiento como el siguiente, que busca en el módulo Module1 una declaración de constante y la elimina.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.