16-09-17, 02:53 PM
(16-09-17, 02:44 PM)عبدالرحمن المكاوي كتب :كود :
dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})
Dim wc As New Net.WebClient()
Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")
For Each str As String In src.Split(vbLf) '
Dim splt() = Split(str, ",")
Dim r As DataRow = dt.NewRow
r.Item("title") = splt(0)
r.Item("section") = splt(1)
r.Item("link") = splt(2)
dt.Rows.Add(r)
Next
TextBox1_TextChanged(Nothing, Nothing)
Dim q = From x As DataRow In dt Select x.Item("section") Distinct
ComboBox1.Items.AddRange(q.ToArray)
ComboBox1.SelectedIndex = 0
TextBox1.Focus()
معذرة اخي الكريم ...لم اجد شيء سبب لرسالة الخطا.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
