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

[saadatieathar]

سلام.
من نیاز دارم که محتوای یک فایل txt رو از وب بخونم.
الان فایل رو می خونه ولی مشکل اینه که من می خوام به همون صورت که تو فایل خط به خط هست اینجا هم خط به خط نشون بده ولی پشت سر هم نشون میده.
فایل این شکلیه :

http://gigpars.com/upload/cl70_untitled-2.jpg
ولی وقتی محتویاتش خونده میشه و می ریزم تو تکست باکس این طوری میشه :

http://gigpars.com/upload/egtu_untitled-1.jpg


کد :


data = Inet1.OpenURL("http://1jib.ir/14/14.txt")
Text1.Text = data



ممنون می شم راهنمایی کنید چطور می تونم مشکل رو حل کنم ؟

[Dr Saeed]

سلام.
من نیاز دارم که محتوای یک فایل txt رو از وب بخونم.
الان فایل رو می خونه ولی مشکل اینه که من می خوام به همون صورت که تو فایل خط به خط هست اینجا هم خط به خط نشون بده ولی پشت سر هم نشون میده.
فایل این شکلیه :

http://gigpars.com/upload/cl70_untitled-2.jpg
ولی وقتی محتویاتش خونده میشه و می ریزم تو تکست باکس این طوری میشه :

http://gigpars.com/upload/egtu_untitled-1.jpg


کد :


data = Inet1.OpenURL("http://1jib.ir/14/14.txt")
Text1.Text = data



ممنون می شم راهنمایی کنید چطور می تونم مشکل رو حل کنم ؟

رویه تکس باکستون کلیک کنید و از قسمت peropertis گزینه multi line رو true کنید و قسمت scrol bars رو ریه قسمت Vertical قرار بدید

موفق باشید

[saadatieathar]

ممنون دوست جان
انجام دادم ولی نشد
این هم سورس :

http://1jib.ir/14/get.zip

[Dr Saeed]

ممنون دوست جان
انجام دادم ولی نشد
این هم سورس :

http://1jib.ir/14/get.zip

اگه میشه سورس رو داخل انجمن یا یه جا دیگه اپلود کنید چون دانلود نمیشه

[سید حمید حق پرست]

سلام علیکم
مشکل به خاطر این هست که تکست روی هاست طبق سیستم های یونیکس ایجاد شده.
برای حل این مشکل یا باید از RichTextBox استفاده کنید یا اینکه متن تکست رو تبدیل کنید.
به سورستون قسمت تبدیل رو اضافه و ضمیمه کردم.
یک روش دیگر تبدیل هم به شکل زیر که ساده تر هست :
Private Sub Command1_Click()
Dim data As String
data = Inet1.OpenURL("Address File Text")
Text1.Text = Replace(data, vbLf, vbCrLf, 1, Len(data), vbTextCompare)
End Sub
موفق باشید.

یا علی (ع)