تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 395 11-02-17, 12:56 AM
آخر رد: hassan
  [سؤال] arabic text to speech beep 12 4,830 03-01-17, 01:40 PM
آخر رد: EnormousSoft
  [VB.NET] سؤال في text box engmedomed@gmail.com 1 180 31-12-16, 07:20 PM
آخر رد: مساعدة
  [VB.NET] كيفيه تقطيع النصوص من text box or rich box engmedomed@gmail.com 4 214 27-12-16, 08:28 PM
آخر رد: مساعدة
  مشكلة كتابة نص في text box kofa 3 218 08-12-16, 09:24 PM
آخر رد: kofa
  تقسيم text الى عدة listbox rabeh.ram 4 307 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  الكتابة فى ملف text Mohamed20 1 157 31-10-16, 11:39 PM
آخر رد: silverlight
  عندما TextBox1.DataBinding.Add("text" , DataSet1 , Table.Field) Text كيف للصور thevirus 2 239 29-10-16, 06:31 PM
آخر رد: thevirus
  [VB.NET] ممكن طريقة قراءة ملف PDF سطر سطر و وضعه في Array الغلبان 8 501 25-06-16, 08:06 PM
آخر رد: الوادي
  هل يمكن قراءة سطر/كلمة معين من ملف text على سيرفر موقع أسامة 3 401 13-04-16, 01:52 AM
آخر رد: hassan

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


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