+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] قرائة ملف TEXT ووضعه في array (/showthread.php?tid=13918)
قرائة ملف TEXT ووضعه في array - محمد سلمان - 23-11-15
السلام عليكم
حبايبي أتمنى مساعدتكم لي في ايجاد الكود المناسب
عندي ملف TEXT واريد اخذ البيانات منه ووضعها على الفورم على شكل ازرار
مثال
محتوى ملف ال TEXT بهذا الشكل
PHP كود :
pc1=0&pc2=0&pc3=0&pc4=0&pc5=0&pc6=0&pc7=0&pc8=0&pc9=0&pc10=0&pc11=0&pc12=0&pc13=0&pc14=0&pc15=0&pc16=0&pc17=0&pc18=0&pc19=0&pc20=0
بحيث Pc رقم الجهاز و =0 أو =1 هو حالة الجهاز وبين كل جهاز فاصل &
مثال اذا كانت حالة الجهاز =1 .. بيكون الزر لونو احمر-- واذا كانت حالة الجهاز =0 بيكون الزر لونو اسود
تم وضع الكود التالي في حالة اخذ البيانات من جدول اكسس
كود :
Sub getstatus()
For i As Int16 = 0 To 1000
arr(i) = "0"
Next
conn.Open()
ds.Clear()
Dim cmd As SqlCommand = New SqlCommand("Select PCname From B1 where ncuser not like '%" + Label1.Text + "%'", conn)
Dim rd As SqlDataReader = cmd.ExecuteReader()
Do While (rd.Read())
Dim x As Integer = rd.Item(0).ToString().Replace("GN", "")
arr(x) = 1
Loop
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
getstatus()
For i As Int16 = 0 To Panel1.Controls.Count - 1
If Panel1.Controls(i).Name.StartsWith("GN") Then
Panel1.Controls(i).Text = Panel1.Controls(i).Name
If arr(Panel1.Controls(i).Name.Replace("GN", "")) = "1" Then
Panel1.Controls(i).BackgroundImage = My.Resources.monitor_red
Else
Panel1.Controls(i).BackgroundImage = My.Resources.monitor_Black
End If
End If
Next
End SubRE: قرائة ملف TEXT ووضعه في array - أبو عمر - 23-11-15
PHP كود :
Imports System
Imports System.IO
Class Test
Public Shared Sub Main()
Try
' Open the file using a stream reader.
Using sr As New StreamReader("TestFile.txt")
Dim line As String
' Read the stream to a string and write the string to the console.
line = sr.ReadToEnd()
Console.WriteLine(line)
End Using
Catch e As Exception
Console.WriteLine("The file could not be read:")
Console.WriteLine(e.Message)
End Try
End Sub
End Class
https://msdn.microsoft.com/en-us/library/db5x7c0d(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
وبالنبسبة لقراءة المحتوى وتقطيعه حسب الحاجة
استخدم
split
