نحوه استفاده از کامپوننت inet در vb.net

[barnamenewis]

باسلام!
دوستان من میخوام یک فایل تکس رو که توش چهار خط داره از اینترنت بخونم و هر خط رو در چهار تکس باکس قرار بدم
توی وی بی برای اتصال از کامپوننت inet و کد زیر استفاده می کردم که به خوبی هم کار میکرد ولی حالا که دارم برنامرو با دات نت مینویسم نمیتونم از این کامپوننت استفاده کنم اگه میشه راهنمائی کنید ممنون میشم



Private Sub Command2_Click()
st_url = Inet1.OpenURL("http://exampel.com/date.txt")

Dim s() As String
s = Split(st_url, vbCrLf)

For k = 0 To UBound(s)
t(k) = s(k)
Next

End Sub

[barnamenewis]

باسلام!
خب من تونستم فایلمو مستقیم از نت بخونم و اونو توی یک تکس باکس بذارم با کد زیر



Dim wc As New System.Net.WebClient()
Me.TextBox1.Text = wc.DownloadString("http://exampel.com/Date.txt")



ولی حالا چطور هر خط از فایل رو توی یک تکس باکس نشون بدم اگه کمک کنید ممنون میشم خیلی فوریه

[alimanam]

با سلام

خوب شما خودت جواب سوال خودت رو دادی البته با کمی تغییر در کد VB6 خودتون .

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim wc As New System.Net.WebClient()
Dim str As String = wc.DownloadString("http://alimanam.persiangig.com/Text/sample.txt")
Dim words As String() = str.Split(vbCrLf)

TextBox1.Text = words(0)
TextBox2.Text = words(1)
TextBox3.Text = words(2)
TextBox4.Text = words(3)

End Sub

End Class

موفق باشید ./

[barnamenewis]

باسلام!
خیلی ممنون واقعا دسدتون درد نکنه این اولین باریه که من توی این سایت جواب میگیرم واقعا اشک تو چشمام جمع شد
فقط یک زحمت دیگه اگه ممکنه اینم کمک کنید
حالا که مقادیر تکس باکسها مشخص شد میخوام هر کدوم از باکسها به صورت جدا از اخر هشت کاراکتر بشمرم جدا کنم ((این هشت کاراکتر تاریخ به این شکل هست مثلا 20110803))بعد با یه متغیر که یک همچین عددی رو داره مقایسه کنم اگه کاراکتر های توی باکس بیشتر بود رنگ باکس عوض بشه
ممنون میشم اینم جواب بدین

[alimanam]

برای هرکدوم از تکس باکس ها باید کد زیر رو بنویسی

If Not words(0).Substring(0, 8) = "13901012" Then
TextBox1.BackColor = Color.Red
End If

موفق باشید ./