انتقال متن به تکست باکس

[pesar_sheyton]

سلام اساتید گرامی یه سوال از محضر شما داشتم لطفاً کمکم کنید
من یه فایل متنی روی هاردم دارم و می خوام بدون اینکه اونرو اجرا کنم متن داخل اون رو به تکست باکس درون فرم منتقل کنم بعضی از دوستان از این روش استفاده می کنن که ابتدا فایل رو اجرا می کنن بعد با تابع Sendkeys محتویات اونرو وارد کلیپ بورد کرده بعد به تکست باکس فرم منتقل می کنن ولی من نمی خوام فایل اجرا بشه لطفاً کمکم کنید . ممنون

[HoseinVig]

سلام
بیا اینم سورسش

[HoseinVig]

اگه سوالی مونده بگووو

[pesar_sheyton]

حسین جان مرسی از اینکه کمکم کردی ممنونم ولی اگه بتونی از تکست باکس استفاده کنی جوابم رو تمام و کمال میگیرم
اینجا همه با معرفتن

[Iron_Fist]

من دقیقآ متوجه منظورت نشدم
یه توضیحی اگه بدی بد نیست شاید کمکی از دستم بر اومد

[Payman62]

سلام.
این کد برای فایل های ترتیبیه.

کد:

Private Sub Command1_Click()
Dim strTemp As String, strTotal As String
Dim FileNumber As Integer
    Open "C:\Test.txt" For Input As 1
        While Not EOF(1)
            Line Input #1, strTemp
            strTotal = strTotal + strTemp + Chr(10) + Chr(13)
        Wend
    Close 1
    Text1.Text = strTotal
End Sub

[HoseinVig]

حسین جان مرسی از اینکه کمکم کردی ممنونم ولی اگه بتونی از تکست باکس استفاده کنی جوابم رو تمام و کمال میگیرم
اینجا همه با معرفتن

pesar_sheyton جان فرقی نمیکنه که مهم این بود که متن رو از فایل منتقل کنی تو برنامت حالا با اون میتونی هر کاری که دلت بخاد بکنی و منتقلش کنی بهtextbox: اینجوری
text.text=richtextbox1.text
حالا با این وجود من سورسشم گزاشتم

[pesar_sheyton]

مرسی بچه ها دمتون گرم جوابمو گرفتم