تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] قرائة ملف TEXT ووضعه في array
#1
السلام عليكم 
حبايبي أتمنى مساعدتكم لي في ايجاد الكود المناسب 

عندي ملف 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=


بحيث 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 Sub
الرد }}}
تم الشكر بواسطة:
#2
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...-snippet-1
وبالنبسبة لقراءة المحتوى وتقطيعه حسب الحاجة
استخدم
split
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم