خواندن فایل از هاست

[mamali-mohammad]

سلام
فرض کنیم یه فایل txt داریم
چطوری محتواشو میشه خوند ؟

[shahryari]

باسلام
تقدیم شما

Label1.Text = ""
Dim instance As WebClient = New WebClient
Dim address As String = "http://myweb.com/test.txt"
Dim returnValue As String
returnValue = instance.DownloadString(address)
Label1.Text = returnValue

[mamali-mohammad]

ممنون
فایل سورسشو می تونید بدید ؟
خیلی ممنون

[shahryari]

مسیر واقعی فایل txt را که در هاست آپلود کرده ای بده...

[shahryari]

این هم برنامه
http://forum.oranustalk.ir/uploaded/3_01359017418.zip

[mamali-mohammad]

ممنون
اما بد متوجه شدید
من یه فایل دارم روی هاست که txt هست
حالا این فایل یه محتوا داره
میخوام وقتی برنامه اجرا شد محتوای اون فایل رو نمایش بده

[shahryari]

:متفکر:
این هم همان کار رو میکنه
یک فایل متنی را که در وب هاست آپلود کرده اید را میخواند و در لیبل نمایش میده

[mamali-mohammad]

نه اینو که باز کردم نوشته بود آدرس فایل را وارد کنید
ادرس فایل از قبل در برنامه باید تعریف بشه

[shahryari]

اي بابا ....
دوست عزيز بجاي تكست باكس يك دات تكست آدرس فايلت رو روي هاست بده ديگه .....
مثلا : http://myweb/profile/test.txt
اين برنامه بعنوان يك نمونه است

[mamali-mohammad]

ببینید اخه خیلی فایل داشت
من میخوام توی یه متن فایل تکست من رو نشون بده همین
خیلی ساده بدونم کدوم فایل استفاده کنم

[meisam3322]

دوست عزیز کدی که دوستمون گزاشتن کاملا درسته ، لطفا بیستر توضیح بدین ،

[meisam3322]

ببینید اخه خیلی فایل داشت
من میخوام توی یه متن فایل تکست من رو نشون بده همین
خیلی ساده بدونم کدوم فایل استفاده کنم

خودتون متوجه شدین چیه منظورتون ؟؟!!!!

[mamali-mohammad]

روی هاست یه فایل .txt داریم توش نوشته welcome
حالا میخوام یه فایل .exe درست کنم که محتوای فایل txt رو توش نمایش بده
همین !
یعنی اگه فایل exe باز کردم توش بنویسه welcome

[pooya1072]

روی هاست یه فایل .txt داریم توش نوشته welcome
حالا میخوام یه فایل .exe درست کنم که محتوای فایل txt رو توش نمایش بده
همین !
یعنی اگه فایل exe باز کردم توش بنویسه welcome

سلام
دوست عزیز...فرض کن طبق آموزش دوستمون ( Shahryari ) فایل رو از هاست دانلود کردی . فایل که یک فایل متنیه ساده است . حالا خوندن متن از یه فایل متنی دانلود شده و نمایش متن مورد نظر توی یه مثلا تکست باکس منظور شماست ؟ یا چیز دیگه ...
اگه آره این راه حل مشکله :


Imports System.Net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim instance As WebClient = New WebClient
Dim address As String = "آدرس فایلی که دانلود می شود"
instance.DownloadFile(address, "d:\upload1.txt")
Dim FILE_NAME As String = "d:\upload1.txt"
Dim TextLine As String = ""
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objReader As New System.IO.StreamReader(FILE_NAME)
Do While objReader.Peek() <> -1
TextLine = TextLine & objReader.ReadLine() & vbNewLine
Loop
TextBox1.Text = TextLine
Else
MsgBox("File Does Not Exist")
End If
　
End Sub
End Class

[mamali-mohammad]

اخه قرار نیست دانلود بشه
فرض کنید آدرس یاب میخوام بسازم
همچین چیزی

[SHD.NET]

اخه قرار نیست دانلود بشه
فرض کنید آدرس یاب میخوام بسازم
همچین چیزی

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

شما آدرس فایلتون رو بزارین اینجا تا دوستان یا خودم برنامه رو مطابق آدرستون ست کنیم !! البته کار خیلی ساده ایه ها !

**یاعلی**

[mamali-mohammad]

ممنون
شما روی این مسیر زحمتشو بکشید :

http://yourname.com/file.txt
سورسشو بدید ممنون میشم

[shahryari]

:عصبانی++::گریه:
در پست شماره 2 کدش را دادم دیگه جایگزین کنید دیگه....
شما که واردین و این ستاره ها رو تو آسیاب زرد (سفید) نکردین که .....

Try
TextBox1.Text = ""
Dim instance As WebClient = New WebClient
Dim address AsString = "http://yourname.com/file.txt"
Dim returnValue AsString
returnValue = instance.DownloadString(address)
TextBox1.Text = returnValue
Catch ex As Exception
MsgBox(ex.Message)
EndTry

[mamali-mohammad]

vb.net نسخه رایگان داره ؟
میشه لینک بدید ؟
ممنون

[shahryari]

vb.net نسخه رایگان داره ؟
میشه لینک بدید ؟
ممنون
منظور از رایگان چیه؟؟؟؟
فوقش 1500 تومنه دی وی دی اش بصورت رایتی
بخوای دانلود کنید هزینه ADSL بیشتر از اون میشه....