Count number of lines/returns in a textbox
Simply counts the number of lines in a textbox (the textbox should be multiline=true, otherwise it is pretty useless). Put this in a module so it can be reused.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Public Function countLines(textBox As textBox) As Long Dim A%, B$ A% = 1 B$ = textBox.text Do While InStr(B$, Chr$(13)) A% = A% + 1 B$ = Mid$(B$, InStr(B$, Chr$(13)) + 1) Loop countLines = CStr(A%) End Function Upload
Original Comments (3)
Recovered from Wayback Machine