16-07-16, 02:45 PM
السلام عليكم
اخي سعود شكرا لك بمساعدتك لي ولكن واجهتني مشكلة اثناء تجربتي لفكرتك
وضعت الاكواد ووضعت ملف dll الموجود ولكن لم يقم بالترجمة فما هي الخطوة التي فاتتني وهي التي سبب بعدم قراءة ملف conf and world ??
اتمنى الشرح هنا
الكود الاول
الثاني
الثالث :
هذة الاكواد وملف
HtmlAgilityPack.dll
فهل فاتتني طريقة ؟؟
يقوم بقراء فقط الملفات ولكن ليس المحتويات التي بداخلها
صورة للتوضيح المرفقات
اخي سعود شكرا لك بمساعدتك لي ولكن واجهتني مشكلة اثناء تجربتي لفكرتك
وضعت الاكواد ووضعت ملف 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
فهل فاتتني طريقة ؟؟
يقوم بقراء فقط الملفات ولكن ليس المحتويات التي بداخلها
صورة للتوضيح المرفقات