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
ИИ-обзор: 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.
Исходный код
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
Оригинальные комментарии (3)
Восстановлено из Wayback Machine