(Access) 的 Module.Lines 屬性
Lines 屬性會傳回包含指定的行或行標準模組或類別模組中的內容字串。 唯讀的 String。
語法
運算式。Line、NumLines (行)
表達 代表 Module 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Line | 必要 | Long | 要傳回的第一行的行號。 |
NumLines | 必要 | Long | 要傳回的行數。 |
註解
模組之中的行號是從 1 開始的。 例如,如果您讀取Line引數值為 1 且NumLines自變數為 1 的 Lines 屬性,則 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 支援與意見反應。