[سعود]

اخواني الاعزاء

كود :

<p id="aname">
          saud
       </p>

كيف نستبدل الاسم saud في هذه الجملة باستخدام HtmlAgilityPack
احضرت الاسم بهذا الكود

كود :

Dim n As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("aname")

فكيف اغير الواقع بين الوسمين؟

[سعود]

خلاص يئست من اكمال مقترح طباعة تقرير مخصص
اتمنى حل هالمعضلة

[ربيع]

نحمده ونصلي على رسوله الكريم

استخدم innertext و innerhtml

[الشاكي لله]

PHP كود :

n.InnerText = "vb4arb" 


[سعود]

(11-04-14, 03:33 AM)ربيع كتب : نحمده ونصلي على رسوله الكريم

استخدم innertext و innerhtml

للقراءة فقط لا استطيع التعديل والاستبدال بهاتين الخاصيتين

[سعود]

(11-04-14, 03:39 AM)الشاكي لله كتب :

PHP كود :

n.InnerText = "vb4arb" 


ما يقبل اخوي .. يقول للقراءة فقط

كود :

Dim hweb As New HtmlAgilityPack.HtmlWeb
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.Load(Application.StartupPath & "\aprint.htm")


        'احضار ارتباط الصورة لتحديث القيمة
        Dim nod As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("pic")
        Dim src As HtmlAgilityPack.HtmlAttribute = nod.Attributes("src")
        nod.SetAttributeValue("src", "pics/" & picname)
        '-------------------------------------
        'Dim n As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("aname")
        Dim nod1 As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//p[@id]")

        MsgBox(nod1.InnerText)

        doc.Save(Application.StartupPath & "\aprint.htm")

هذا الكود كامل

[الشاكي لله]

آسف InnerText هي ReadOnly

البديل هو : InnerHtml

[سعود]

(11-04-14, 04:16 AM)الشاكي لله كتب : آسف InnerText هي ReadOnly

البديل هو : InnerHtml

تسلم يابطل
الفكرة انتهت الان بقيت تجربة الطباعة

[الشاكي لله]

الله يقويك