+- فروم تخصصی - پشتیبانی CPSD (http://cpsd.ir/forum)
+-- انجمن: آموزش (/forumdisplay.php?fid=9)
+--- انجمن: عمومی (/forumdisplay.php?fid=21)
+---- انجمن: توابع و کدهای مفید (/forumdisplay.php?fid=28)
+---- موضوع: تابع شمارش تعداد خطوط متن (/showthread.php?tid=24)
تابع شمارش تعداد خطوط متن - CPSD Admin - ۱۱ شهريور ۱۳۸۹ ۰۶:۰۸ عصر
ضمن سلام
در تابع زیر شما میتونید عملیات شمارش تعداد خطوط موجود در داخل یک Text Box و یا یک ورودی از نوع متن رو به انجام برسونید
در تابع زیر شما میتونید عملیات شمارش تعداد خطوط موجود در داخل یک Text Box و یا یک ورودی از نوع متن رو به انجام برسونید
در واقع این تابع بر اساس تعداد دکمه های Enter فشرده شده در داخل متن عمل میکنه و تا وقتی که خط توسط دکمه Enter شکسته نشه , تابع همچنان تعداد خطوط رو یک فرض میکنه .
کد:
Function CounterLines(EnteryText As String) As Integer
On Error GoTo Err_CounterLines
Dim LenTX As Integer
CounterLines = 1
LenTX = Len(EnteryText)
For i = 1 To LenTX
If Asc(Mid(EnteryText, i, 1)) = "10" Then
CounterLines = CounterLines + 1
End If
Next i
Exit_CounterLines:
On Error Resume Next
Exit Function
Err_CounterLines:
Select Case Err.Number
Case 0
Resume Exit_CounterLines:
Case Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in module modSample - function CounterLines"
Resume Exit_CounterLines:
End Select
End Function