[0theghost0]

السلام عليكم

اخي سعود شكرا لك بمساعدتك لي ولكن واجهتني مشكلة اثناء تجربتي لفكرتك

وضعت الاكواد ووضعت ملف dll الموجود ولكن لم يقم بالترجمة فما هي الخطوة التي فاتتني وهي التي سبب بعدم قراءة ملف conf and world ??

اتمنى الشرح هنا

الكود الاول

كود :

Imports System.IO
Public Class Form1

    Private Sub gettranslating()
        Try
            words.Clear()
            statics.Clear()
            If IO.File.Exists("langs\" & cmb_lang.Text & "\words.txt") Then
                Dim doc2 As New HtmlAgilityPack.HtmlDocument
                doc2.Load(langfile)

                For Each nod As HtmlAgilityPack.HtmlNode In doc2.DocumentNode.SelectNodes("//div[@id]")
                    statics.Add(nod.Attributes("id").Value)
                    words.Add(nod.InnerText)
                Next

            Else
                MsgBox("ملف التعريب غير موجود,, فضلا ولد ملف جديد")
            End If
        Catch ex As Exception

        End Try
    End Sub

الثاني

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        doc = New HtmlAgilityPack.HtmlDocument
        doc.Load("config.txt")

        Dim dir As New DirectoryInfo("langs")
        For Each h As DirectoryInfo In dir.GetDirectories
            cmb_lang.Items.Add(h.Name)
        Next
        cmb_lang.SelectedIndex = cmb_lang.Items.IndexOf(doc.DocumentNode.SelectSingleNode("//def_lang").InnerText.Trim)

        For Each h In Me.Controls
            If TypeOf h Is ComboBox = False Then

                h.Text = h.Name
            End If
        Next

        gettranslating()


        For Each h In Me.Controls
            If TypeOf h Is ComboBox = False Then


                Try
                    h.text = words(statics.IndexOf(h.name))

                Catch ex As Exception

                End Try
            End If
        Next

    End Sub

الثالث :

كود :

Private Sub cmb_lang_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_lang.SelectedIndexChanged
        If cmb_lang.SelectedIndex = -1 Then Exit Sub
        doc.DocumentNode.SelectSingleNode("//def_lang").InnerHtml = cmb_lang.Text
        doc.Save("config.txt")

        langfile = "langs\" & cmb_lang.Text & "\words.txt"
        gettranslating()


        For Each h In Me.Controls
            If TypeOf h Is ComboBox = False Then

                Try
                    h.text = words(statics.IndexOf(h.name))

                Catch ex As Exception

                End Try

            End If

        Next
    End Sub

هذة الاكواد وملف
HtmlAgilityPack.dll

فهل فاتتني طريقة ؟؟

يقوم بقراء فقط الملفات ولكن ليس المحتويات التي بداخلها

صورة للتوضيح المرفقات