خواندن از فایل RTF و نمایش در RichTextBox ؟؟

[سپهر-111]

سلام دوستان

من یک فایل با پسوند RTFدارم با یک RichTextBox!!

1- میخوام از درون فایل با پسوند RTF ، از خط مورد نظر(مثل خط 20 تا 25) ، این فایل بخونم و درون RichTextBox نشون بدم ؟؟؟ از چه کدی باید استفاده بکنم ؟؟

2- و وقتی خط 20 تا 25 نمایش دادم میخوام بعدش یک رشته که مقدار برگشتی یک تابع هستش رو ادامه همین متن نمایش داده قرار بدم؟؟ از چه کدی باید استفاده بکنم؟؟

راستی دوستان ایا اموزشی درزمینه کار با RichTextBox و فایلهای RTF وجود داره ؟

باتشکر از توجه دوستان

[ASedJavad]

سلام
ظاهرا یه راهش اینه که فایلت رو تو یه ریچ تکست باکس دیگه لود کنی، بعد خطوط مورد نظرت رو (با خصوصیات selStart , SelLength ریچ تکست باکست) انتخاب کنی (روش بدست اوردن محل قرار گیری خطوط و ... چند بار تا حالا بحث شده و جستجو کنی، پیداش میکنی). بعد مثلا بنویسی:

RichTextBox2.TextRTF = RichTextBox1.SelRTF

2- و وقتی خط 20 تا 25 نمایش دادم میخوام بعدش یک رشته که مقدار برگشتی یک تابع هستش رو ادامه همین متن نمایش داده قرار بدم؟؟ از چه کدی باید استفاده بکنم؟؟

RichTextBox2.SelStart = Len(RichTextBox1.Text)

RichTextBox2.SelLength = 0

RichTextBox2.SelText = "salam"

[امین مستانی]

با سلام

این تابع خط خاصی از تکست رو میخونه
میتونه مورد استفاده قرار بگیره

Public Function GetTextOfLine(TextBox_RTBox As Object, iLineNum%) As String

    Dim sLines$()

    sLines$ = Split(TextBox_RTBox.Text, Chr(10))

    If iLineNum% <= UBound(sLines$) + 1 And iLineNum% > 0 Then

        GetTextOfLine = sLines$(iLineNum% - 1)

    Else

        GetTextOfLine = ""

    End If

End Function

روش استفاده :

Private Sub Command1_Click()

    MsgBox GetTextOfLine(RichTextBox1, 5)

End Sub

که شما میتونید این رو داخل یک حلقه For بزارید و خط هارو به ترتیب بخونید ...


موفق باشید