بخصوص المستندات Html

هل من مساعدة؟

لم افهم ما تقصد اخي !!

المطلوب غير واضح حيث ان المستند html عبارة عن ملف نصي ويمكن قراءته في الفيجوال بيسك ويمكن البحث عن <table> واضافة بعدها مثلا <tr>/tr> .

فهل مثلا يوجد ملف محدد الشكل تريد الاضافة والحذف منه ام اي ملف ارجو التوضيح اكثر

لدي مستند بصيغة HTML يحتوي على معلومات وكذلك جدول

اريد اضافة بعض الاسطر الى هذا الجدول

ومشكورين مسبقا

هي مثال لكن يجب ان يتم اضافة الصف حسي تنسيق الجدول كما في المتغير shtml

 Dim fs As Object ' Scripting.FileSystemObject
 Set fs = CreateObject("Scripting.FileSystemObject")
 Dim ff As Object  'TextStream
 Set ff = fs.OpenTextFile("c:\new3.htm", ForReading, False)
 Dim sx As String
 sx = ff.ReadAll  'Read the file
 ff.Close

 'ÓÇÈÍË   Úä ÌÏæá  æÓÇÖíÝ  ÕÝíä ááÌÏæá

 Dim sHTML As String 'ãÇ íÊã ÇÖÇÝäå
 'Úáì ÇÓÇÓ Çä ÇáÌÏæá Èå ÚãæÏíä
' ÓíÊã ÇÖÇÝÉ ÕÝ ÈÚãæÏíä
 sHTML = "<td>1234</td><td>5555</td></tr>"


 sx = Replace(sx, "</table>", sHTML & vbCr & "</table>", , 1)

 'save sx  to the file
  Set ff = fs.OpenTextFile("c:\new3.htm", ForWriting)

 ff.Write sx
 ff.Close

 Set fs = Nothing