خط در متن

[mehrad-a]

با سلام
من یک متن چند خطی داشتم تو یک متغیر , می خواستم به اطلاعاتی از قبیل تعداد خط و متن هر خط و کلمه ای را که دنبالشم , بفهمم در خط چندم است را بدست بیارم .
از چه کد هایی باید استفاده کنم ؟
با تشکر

[toopdanlod]

دوست عزیز بیشتر توضیح بده شفاف سازی کن

[ajlajlajl]

خب با استفاده از کاراکتر های 10 و 13 که برای Enter هستن کار کن.

[toopdanlod]

سلام دوست عزیز این تابع تعداد خط ها رو میشماره

کد:

Private Function LineCount(rText As String) As Long
    Dim Start As Long, Num As Long
    Do
        Start = InStr(Start + 1, rText, vbNewLine)
        Num = Num + 1
        Print Start
    Loop While Start
    LineCount = Num
End Function