For...Next Statement
Repeats the statements between the For...Next block a specified number of times.
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
For counter=start To end [Step step]
statement-block
[Exit For]
statement-block
Next [counter]
For Each item In list
statement-block
[Exit For]
statement-block
Next [item]
āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛:
counter: Loop counter initially assigned the value to the right of the equal sign (start). Only numeric variables are valid. The loop counter increases or decreases according to the variable step until end is passed.
start: Numeric variable that defines the initial value at the beginning of the loop.
end: Numeric variable that defines the final value at the end of the loop.
step: Sets the value by which to increase or decrease the loop counter. If step is not specified, the loop counter is incremented by 1. In this case, end must be greater than start. If you want to decrease counter, end must be less than start, and step must be assigned a negative value.
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°ā§ āĻāĻ˛ā§āĻ˛ā§āĻāĻŋāĻ¤ āĻ¸āĻŽā§ā§āĻ° āĻāĻ¨ā§āĻ¯ āĻ˛ā§āĻĒā§ For...Next āĻ˛ā§āĻĒā§āĻ° āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ā§ āĻ¸āĻāĻ˛ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻĒā§āĻ¨āĻ°āĻžāĻŦā§āĻ¤ā§āĻ¤āĻŋ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
As the counter variable is decreased, LibreOffice Basic checks if the end value has been reached. As soon as the counter passes the end value, the loop automatically terminates.
For...Next āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻāĻāĻ¤ā§āĻ°āĻŋāĻ¤ āĻāĻ°āĻž āĻ¸āĻŽā§āĻāĻŦāĨ¤ Next āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻ āĻ¨ā§āĻ¸āĻ°āĻŖāĻāĻžāĻ°ā§ āĻāĻāĻāĻŋ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ āĻāĻ˛ā§āĻ˛ā§āĻ āĻ¨āĻž āĻāĻ°ā§āĻ¨, āĻ¤āĻžāĻšāĻ˛ā§ Next āĻ¸ā§āĻŦā§āĻāĻā§āĻ°āĻŋā§āĻāĻžāĻŦā§ āĻ¸āĻŦāĻā§ā§ā§ āĻ¸āĻžāĻŽā§āĻĒā§āĻ°āĻ¤āĻŋāĻ For āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¯āĻĻāĻŋ 0 āĻāĻ° āĻŦā§āĻĻā§āĻ§āĻŋ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°āĻž āĻšā§, āĻ¤āĻžāĻšāĻ˛ā§ For āĻāĻŦāĻ Next āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻ§āĻžāĻ°āĻžāĻŦāĻžāĻšāĻŋāĻāĻāĻžāĻŦā§ āĻĒā§āĻ¨āĻ°āĻžāĻŦā§āĻ¤ā§āĻ¤āĻŋ āĻāĻ°āĻž āĻšā§āĨ¤
When counting down the counter variable, LibreOffice Basic checks for overflow or underflow. The loop ends when counter exceeds end (positive Step value) or is less than end (negative Step value).
āĻāĻāĻāĻŋ āĻ˛ā§āĻĒ āĻĨā§āĻā§ āĻļāĻ°ā§āĻ¤āĻšā§āĻ¨āĻāĻžāĻŦā§ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ Exit For āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨āĨ¤ āĻāĻ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻ āĻŦāĻļā§āĻ¯āĻ For...Next āĻ˛ā§āĻĒā§āĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻĨāĻžāĻāĻ¤ā§ āĻšāĻŦā§āĨ¤ āĻ¨āĻŋāĻŽā§āĻ¨āĻžāĻ¨ā§āĻ¸āĻžāĻ°ā§ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻļāĻ°ā§āĻ¤āĻāĻŋ āĻĒāĻ°ā§āĻā§āĻˇāĻŖā§āĻ° āĻāĻ¨ā§āĻ¯ If...Then āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨:
For...
statement-block
If condition = True Then Exit For
statement-block
Next
In nested For...Next loops, if you exit a loop unconditionally with Exit For, only one loop is exited.
āĻāĻĻāĻžāĻšāĻ°āĻŖāĻ¸āĻŽā§āĻš
The following example uses two nested loops to sort a string array with 10 elements ( sEntry() ), that is filled with various contents:
Sub ExampleSort
Dim sEntry(9) As String
Dim iCount As Integer, iCount2 As Integer
Dim sTemp As String
sEntry = Array("Jerry","Patty","Kurt","Thomas","Michael",_
"David","Cathy","Susie","Edward","Christine")
For iCount = 0 To 9
For iCount2 = iCount + 1 To 9
If sEntry(iCount) > sEntry(iCount2) Then
sTemp = sEntry(iCount)
sEntry(iCount) = sEntry(iCount2)
sEntry(iCount2) = sTemp
End If
Next iCount2
Next iCount
For iCount = 0 To 9
Print sEntry(iCount)
Next iCount
End Sub
This explores the content of an array to display each item it contains.
Sub list_iteration
cutlery = Array("fork", "knife", "spoon")
For Each item in cutlery
Print item
Next ' item
End Sub