تقييم الموضوع :
  • 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
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم text الى عدة listbox rabeh.ram 4 107 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  الكتابة فى ملف text Mohamed20 1 66 31-10-16, 11:39 PM
آخر رد: silverlight
  عندما TextBox1.DataBinding.Add("text" , DataSet1 , Table.Field) Text كيف للصور thevirus 2 80 29-10-16, 06:31 PM
آخر رد: thevirus
  [VB.NET] ممكن طريقة قراءة ملف PDF سطر سطر و وضعه في Array الغلبان 8 240 25-06-16, 08:06 PM
آخر رد: الوادي
  [سؤال] arabic text to speech beep 11 3,889 19-05-16, 04:17 PM
آخر رد: hadeel yaghi
  هل يمكن قراءة سطر/كلمة معين من ملف text على سيرفر موقع أسامة 3 223 13-04-16, 01:52 AM
آخر رد: hassan
  Textbox Text Length أسامة 5 273 17-03-16, 03:42 PM
آخر رد: hassan
  Save ListBox To Text File أسامة 14 460 06-03-16, 02:32 PM
آخر رد: silverlight
  [VB.NET] كيفية حفظ عناصر DataGridView الى ملف نصى text file الماجيك مسعد 5 300 18-01-16, 04:55 PM
آخر رد: الماجيك مسعد
  هل يمكن تشغيل ملف صوتى من array أسامة 0 168 28-11-15, 03:33 AM
آخر رد: أسامة

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


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