خواندن از فایل 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 بزارید و خط هارو به ترتیب بخونید ...


موفق باشید