[fouadhdfouad]

(02-09-19, 05:23 AM)الماجيك مسعد كتب :

(02-09-19, 05:03 AM)asemshahen5 كتب : هذه اكواد اضافة و بحث عن سجل معين في ملف نوت باد بجانب البرنامج :

PHP كود :

 Dim File1, name1, number1, bsalary, a, B, n As String
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       File1 = Application.StartupPath & "\Asem.txt"
   End Sub
   Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
       If File1 = "" Then
           MsgBox("الرجاء تحديدالملف المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
       Else
           FileOpen(1, File1, OpenMode.Append)
           WriteLine(1, TextBox1.Text)
           WriteLine(1, TextBox2.Text)
           WriteLine(1, TextBox3.Text)
           WriteLine(1, TextBox4.Text)
           WriteLine(1, TextBox5.Text)
           WriteLine(1, TextBox6.Text)
           FileClose(1)
           TextBox1.Text = ""
           TextBox2.Text = ""
           TextBox3.Text = ""
           TextBox4.Text = ""
           TextBox5.Text = ""
           TextBox6.Text = ""
       End If
   End Sub
    Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
       Dim msg As String
       If TextBox2.Text = "" Then
           MsgBox("الرجاء إدخال الإسم في حقل الإسمَ", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
       Else
           msg = TextBox2.Text
           If File1 = "" Then
               MsgBox("الرجاء تحديد المحافظة أو البلد المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
           Else
               FileOpen(1, File1, OpenMode.Input)
               Do While Not EOF(1)
                   Input(1, name1) : Input(1, number1) : Input(1, bsalary) : Input(1, a) : Input(1, B) : Input(1, n)
                   If msg = number1 Then
                       TextBox1.Text = name1
                       TextBox2.Text = number1
                       TextBox3.Text = bsalary
                       TextBox4.Text = a
                       TextBox5.Text = B
                       TextBox6.Text = n
                   End If
               Loop
               FileClose(1)
           End If
       End If
   End Sub 


شكرا جزيلا لك
ولكن هل قرئت الموضوع وفهمت المطلوب؟!

كود :

Imports System.Xml
Imports System.IO
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim xmldoc As New XmlDocument
       Dim xmlnode As XmlNodeList
       Dim i As Integer
       Dim str As String
       Dim fs As New FileStream("products.xml", FileMode.Open, FileAccess.Read)
       xmldoc.Load(fs)
       xmlnode = xmldoc.GetElementsByTagName("Product")
       For i = 0 To xmlnode.Count - 1
           xmlnode(i).ChildNodes.Item(0).InnerText.Trim()
           str = xmlnode(i).ChildNodes.Item(0).InnerText.Trim() & "  " & xmlnode(i).ChildNodes.Item(1).InnerText.Trim() & "  " & xmlnode(i).ChildNodes.Item(2).InnerText.Trim()
           MsgBox(str)
       Next
   End Sub
End Class