ايران ويج

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

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

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

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

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

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

کد: 
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

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

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

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

pesar_sheyton

HoseinVig

HoseinVig

pesar_sheyton

Iron_Fist

Payman62

HoseinVig

pesar_sheyton