(11-12-16, 12:51 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , نعم يمكن ذلك ولكن بعد إستخراجه أولا من الريسورس وأعتقد لايمكن إادة إلى الريسورس بعد التعديل على حسب معلوماتي إذا أت تريد ذلك , ولو تريد معرفة الطريقة يرجى عمل مثال مرفق فيه الريسورس وفيه صفحة ال html وتوضيح مكان التعديل , وذلك لضيق الوقت .
(12-12-16, 12:29 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , المثال الذي أرفقته بالدونت نت وليس بالفيجول بيسك6 .
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
'ÝÊÍ ÇáãáÝ
Open App.Path & "\" & "test.html" For Output As #iFileNo
Print #iFileNo, "<html>"
Print #iFileNo, "<head>"
Print #iFileNo, "</head>"
Print #iFileNo, "<body>"
Print #iFileNo, " "
Print #iFileNo, "<div class=" & "nav mainnavs" & "></div>"
Print #iFileNo, " <ul>"
Print #iFileNo, " <li><a id=" & "nav-questions" & " href=" & "/questions" & ">Questions</a></li>"
Print #iFileNo, " <li><a id=" & "nav-tags" & " href=" & "/tags" & ">Tags</a></li>"
Print #iFileNo, " <li><a id=" & "nav-users" & " href=" & "/users" & ">Users</a></li>"
Print #iFileNo, " "
Print #iFileNo, " <li><a id=" & "nav-badges" & " href=" & "/badges" & ">Badges</a></li>"
Print #iFileNo, " <li><a id=" & "nav-unanswered" & " href=" & "/unanswered" & ">Unanswered</a></li>"
Print #iFileNo, " </ul>"
Print #iFileNo, "<div class=" & "nav askquestion" & "></div>"
Print #iFileNo, "</body>"
Print #iFileNo, "</html>"
MsgBox "Êã ÇáÇäÔÇÁ Çæ ÇáÊÚÏíá ááãáÝ"
Close #iFileNo
'كود التعديل
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(App.Path & "\" & "test.html", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Questions123", "Questions")
Set objFile = objFSO.OpenTextFile(App.Path & "\" & "test.html", ForWriting)
objFile.WriteLine strNewText
objFile.Close
Dim lngRC As Long
lngRC = SubClass(Me)
Dim lngRC As Long
lngRC = UnSubClass(Me)