LibreOffice 7.6 Help
Exits a Do...Loop, For...Next, a function, a property, or a subroutine.
Exit Do, Exit For, Exit Function, Exit Property, Exit Sub
Exit Do
āϞā§āĻĒ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰāĻžāϰ āĻāύā§āϝ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ Do...Loop āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āĻāĻĒāϏā§āĻĨāĻŋāϤ āĻĨāĻžāĻāĻž āĻŦā§āϧāĨ¤ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻž āϏā§āĻā§āĻŽā§āύā§āĻā§āϰ āϏāĻžāĻĨā§ āĻŦāĻšāĻžāϞ āĻĨāĻžāĻā§ āϝāĻž āϞā§āĻĒ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻ āύā§āϏāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ Do...Loop āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻāĻāϤā§āϰāĻŋāϤ āĻĨāĻžāĻā§, āϤāĻžāĻšāϞ⧠āĻāύā§āĻā§āϰā§āϞāĻāĻŋ āĻĒāϰāĻŦāϰā§āϤ⧠āĻāĻā§āĻāϤāϰ āϏā§āϤāϰā§āϰ āϞā§āĻĒā§ āϏā§āĻĨāĻžāύāĻžāύā§āϤāϰāĻŋāϤ āĻšā§ā§ āĻĨāĻžāĻā§āĨ¤
Exit For
āϞā§āĻĒ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰāĻžāϰ āĻāύā§āϝ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ For...Next āϞā§āĻĒā§āϰ āĻŽāϧā§āϝ⧠āĻŦā§āϧāĨ¤ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻž āĻĒā§āϰāĻĨāĻŽ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĻā§āĻŦāĻžāϰāĻž āĻŦāĻšāĻžāϞ āĻĨāĻžāĻā§ āϝāĻž Next āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻ āύā§āϏāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āύā§āϏā§āĻā§āĻĄ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝā§, āĻāύā§āĻā§āϰā§āϞāĻāĻŋ āĻĒāϰāĻŦāϰā§āϤ⧠āĻāĻā§āĻāϤāϰ āϏā§āĻĨāϰā§āϰ āϞā§āĻĒā§ āϏā§āĻĨāĻžāύāĻžāύā§āϤāϰāĻŋāϤ āĻšā§āĨ¤
Exit Function
āĻ āĻŦāĻŋāϞāĻŽā§āĻŦā§ āĻĢāĻžāĻāĻļāύ āĻĒā§āϰāϏāĻŋāĻāĻžāϰ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻž āύāĻŋāĻā§āϰ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āϏāĻžāĻšāĻžāϝā§āϝ⧠āĻŦāĻšāĻžāϞ āĻĨāĻžāĻā§ āϝāĻž āĻĢāĻžāĻāĻļāύ āĻāϞ āĻ āύā§āĻŦāϰā§āϤā§āĨ¤
Exit Property
Exits the Property procedure immediately. Program execution continues with the statement that follows the Property call.
Exit Sub
āĻ āĻŦāĻŋāϞāĻŽā§āĻŦā§ āϏāĻžāĻŦāϰā§āĻāĻŋāύ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻž āϏā§āĻā§āĻāĻŽā§āύā§āĻ āϏāĻš āĻŦāĻšāĻžāϞ āĻĨāĻžāĻā§ āϝāĻž āϏāĻžāĻŦ āĻāϞ āĻ āύā§āĻŦāϰā§āϤā§āĨ¤
Exit āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻāĻžāĻ āĻžāĻŽā§āϰ āĻļā§āώ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰ⧠āύāĻž, āĻāĻŦāĻ āĻ āĻŦāĻļā§āϝāĻ End āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāϰ āϏāĻžāĻĨā§ āĻā§āϞāĻŋā§ā§ āĻĢā§āϞāĻž āϝāĻžāĻŦā§ āύāĻžāĨ¤
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 to 10 REM Fill array with test data
sListArray(siStep) = chr(siStep + 65)
MsgBox sListArray(siStep)
Next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
End Sub
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
REM LinSearch searches a TextArray:sList() for a TextEntry:
REM āĻā§āĻā§āϤāĻŋāϰ āĻāύāĻĄā§āĻā§āϏ āĻ
āĻĨāĻŦāĻž ā§Ļ (āύāĻžāϞ) āĻĒā§āϰāĻĻāĻžāύ āĻāϰā§
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit for REM sItem found
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function