+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : الكتابة على ملف HTML (/showthread.php?tid=18342)
الصفحات:
1
2
الكتابة على ملف HTML - bidaya - 10-12-16
من العنوان اظن ان السؤال واضح
السؤال الاول
اريد كود يقوم بالكتابة على ملف HTML موجود في الريسورس
والسؤال الثاني
وهل يمكن الكتابة في سطر معين او مكان محددفي الملف
وكمثال في المرفق
RE: الكتابة على ملف HTML - Ahmed_Mansoor - 11-12-16
أهلا أخي الكريم , نعم يمكن ذلك ولكن بعد إستخراجه أولا من الريسورس وأعتقد لايمكن إادة إلى الريسورس بعد التعديل على حسب معلوماتي إذا أت تريد ذلك , ولو تريد معرفة الطريقة يرجى عمل مثال مرفق فيه الريسورس وفيه صفحة ال html وتوضيح مكان التعديل , وذلك لضيق الوقت .
RE: الكتابة على ملف HTML - bidaya - 11-12-16
(11-12-16, 12:51 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , نعم يمكن ذلك ولكن بعد إستخراجه أولا من الريسورس وأعتقد لايمكن إادة إلى الريسورس بعد التعديل على حسب معلوماتي إذا أت تريد ذلك , ولو تريد معرفة الطريقة يرجى عمل مثال مرفق فيه الريسورس وفيه صفحة ال html وتوضيح مكان التعديل , وذلك لضيق الوقت .
شكرا لك اخي الكريم بالمرفق مثال صغير
RE: الكتابة على ملف HTML - Ahmed_Mansoor - 12-12-16
أهلا أخي الكريم , المثال الذي أرفقته بالدونت نت وليس بالفيجول بيسك6 .
RE: الكتابة على ملف HTML - bidaya - 12-12-16
(12-12-16, 12:29 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , المثال الذي أرفقته بالدونت نت وليس بالفيجول بيسك6 .
اسف اخي تم التعديل على المرفق
RE: الكتابة على ملف HTML - bidaya - 14-12-16
اين الاخوة
RE: الكتابة على ملف HTML - bidaya - 17-12-16
يا اخواني هل من مجيب
RE: الكتابة على ملف HTML - ahmedabdelaliem - 20-12-16
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اولا كود عمل صفحة html
PHP كود :
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
ثانيا كود التعديل
PHP كود :
'كود التعديل
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
بالتوفيق
RE: الكتابة على ملف HTML - bidaya - 20-12-16
شكرا لك اخي الكريم ولو ان سؤالي كان مخصص كيفية الكتابة على الملف اي ان الملف موجود
وكمثال عندنا زر لما تظغط على رز به رقم10 يكتب الرقم في المكان المحدد في الملف وشكرا جزيلا على الكود الجميل
RE: الكتابة على ملف HTML - Ahmed_Mansoor - 23-12-16
السلام عليكم ورحمة الله وبركاته
أهلا أخي الكريم , أرجوا المعذره منك أخي على التأخير في الرد وذلك بسبب الإنشغال , أخي الكريم تم تعديل المثال بماطلبته , تم عمل الآتي :
- إضافة موديل للتحكم بالقوائم أو لإنشاء القوائم بالكود , ولذلك لطلبك السابق في موضوع مستقل لكي تنشئ قوائم بناءً على محتوى الجدول الذي يضم أسماء لستات القنوات والجدول الذي يضم أسماء القنوات , تم عمل الكود اللازم لإنشاء القوائم بالكود يعني برمجيا .
- ملاحظة :- يوجد في الموديل إجراء بإسم ProcessMenu يوجد في داخله سطر يحتوي على إسم الفورم الذي توجد فيه الدالة MenuItemClick التي تستقبل العناصر المنشأه بالكود عند الضغط عليها , يجب تغيير إسم الفورم الموجود قبل إسم الدالة بإسم الفورم الذي تريد إنشاء القوائم فيه برمجيا ويجب ان تنسخ الدالة MenuItemClick بداخله .
- الدالة MenuItemClick يجب أن تكون داخل الفورم الذي ستنشئ القوائم فيه برمجيا الدالة تستقبل أي عنصر يتم الضغط عليه سواء التي تم إنشائها برمجيا وأيضا التي تم إنشائها يدويا أثناء التصميم حيث يمرر للدالة عنوان العنصر الظاهر عليه لذلك إذا كنت تريد أن تتعامل مع عناصر معينه وتترك عناصر أخرى يجب أن تضع جملة IF الشرطيه لكل تحدد ما إذا كان العنصر الذي تم إستقباله هو الذي تريد التعامل معه أو لا كما ستشاهد في المثال بعد التعديل في داخل الدالة .
- تم عمل الكود في داخل الدالة بحيث إذا كان عنوان العنصر الذي تم إستقباله يحتوي على كلمة channel فيتم إستخراج صفحة الإنترنت من الريسورس ووضع العنوان في داخل صفحة الإنترنت لذلك إذا قمت بوضع مثلا روابط تحتوي على نص ثابت في كل الروابط ضعه مكان كلمة channel لكي يتم التعرف على العنصر الذي عنوانه عباره عن رابط القناه ووضعه في صفحة الإنترنت .
- ملاحظه مهمه جدا :- لابد لك من وضع هاذين الكودين التاليين دائما في حدث الـ Form_Load وحدث الـ Form_Unload للفورم الذي ستنشئ فيه القوائم برمجيا :
- هذا في حدث الـ Form_Load
PHP كود :
Dim lngRC As Long
lngRC = SubClass(Me)
- هذا في حدث الـ Form_UnLoad
PHP كود :
Dim lngRC As Long
lngRC = UnSubClass(Me)
وذلك لكي تعمل الدالة MenuItemClick في إستقبال عناصر القوائم التي تم الضغط عليها .
- بالتوفيق .