[m.sami.ak]

[b]بسم الله الرحمن الرحيم[/b]

اخواني واخواتي نظراً لكثرة الطلب على شرح لطريقة الكتابة والقراءة لبيانات ملف بأمتداد txt موجود على الانترنت , قررت عمل شرح للطريقة هذه والاختلاف عن الطرق السابقة هي الطريقة مضمونة 100% و يدعم الكتابة والقراءة باللغة الام العربية.






سيتم شرح ما يلي :
1-طريقة عمل استضافة مجانية
2- رفع ملف txt على الموقع
3- اعطاء صلاحيات الكتابه على الملف
4- دعم اللغة العربية
5- شرح آلية كتابة الاكواد
6-اظهار النتائج وشرح الاكواد
7- ارفاق مثال للشرح

اولاً: اتبع الصور التالية لشرح طريقة التسجيل وعمل الاستضافة.

ادخل على الموقع التالي :www.eb2a.com

1



2
طريقة رفع الملفات للموقع



[b]3
دعم اللغة العربية
[/b]

[b]4[/b]
[b]عمل تصاريح للملف الكتابه والقراءة منه
[/b]
وهكذا نكون قد اتممنا
1-طريقة عمل استضافة مجانية
2- رفع ملف txt على الموقع
3- اعطاء صلاحيات الكتابه على الملف
4- دعم اللغة العربية

وهذا بس الشغل التحضيري بس:confused:وننتقل للجد

************************************************** **************
الان الية العمل يقوم البرنامج بمخاطبة صفحة Php مرفوعة علة الاستضافة ويقوم بتمرير الكلام المراد حفظة في txt بمتغير GET_$ اسمه w ويتم بعد ذلك لصق الكلام بملف الــtxt

وهذا الكود المستخدم في صفحة الــ php وقمت بتسميتها Post.php وقمت بتسمية ملف الtxt باسم msamiak.txt

PHP كود :

<?php 
$msg = $_GET['w']; 
$logfile= 'data.txt'; 
$fp = fopen($logfile, "a"); 
fwrite($fp, $msg); 
fclose($fp); 
?>

[b]ملاحظة الصفحة مرفقة بالاسفل (اذا اردت تغيير شيء فيها افتحها في Notepad وقم باعادة حظها بصيغة php)[/b]

[b]اما بالنسبة لملف الــtxt فلا تعديل عليه فقط ارفعه على الموقع اي ملف txt[/b]

انتهينا من عملية شرح آلية العمل الان سنقوم بشرح الكود الـ[b]VB.NET[/b]

PHP كود :

Dim request As WebRequest = WebRequest.Create("http://msamiak2.eb2a.com/post.php?w=" & TextBox1.Text) 

        request.GetResponse()   


لاحظو في الكود السابق قمنا بكتابه مسار ملف الــ php الذي تم رفعه سابقاً
المسار: http://msamiak2.eb2a.com/post.php


وكما تلاحظو يوجد =w? وهي تفيد بتخزين قيمة بالمتغير w الذي قمنا بكتابته في كود ال php داخل صفحة الـpost.php

وسيتم مساواته بالTextBox1.text

واخيراً فيكود التخزين بملف التكست نضع

PHP كود :

request.GetResponse()   


وفائدتها لطلب المطلوب من الكود السابق لها


اما اللان نريد ان نستعرض البياناتالتي تم تخزينها سابقاً

PHP كود :

Dim TxtURL As String = "http://msamiak2.eb2a.com/Msamiak.txt" 
        Dim Request As HttpWebRequest = WebRequest.Create(TxtURL)   


السطر الاول في الكود السابق يحتوي على موقع ملف txt الذي قمنا بتخزين البيانات داخله على الموقع.

اما السطر الثاني فهو تنفيذ للسطر الاول يقوم بطلب فتح ملف التيكست في الموقع .

PHP كود :

Dim Reader As StreamReader = New StreamReader(Request.GetResponse.GetResponseStream, System.Text.Encoding.UTF8) 
        TextBox2.Text = Reader.ReadToEnd() 

        Reader.Dispose()   


السطر الاول في الكود السابق يقوم بعملية قراءة البيانات من ملف الـ txt الذي تم فتحه
وستلاحظ وجود كلمة UTF8 وهي لدعم العربي ال نكتب System.Text.Encoding.UTF8

اما السطر الثاني فهو لعرض البيانات التي تم قرائتها من ملف txt في TextBox2.text
والسطر الاخير لعملية Releases الخاصة بمكتبة System.IO

[b]وبذلك نكون قد اتممنا الشرح واتمنى ان يتم الاستفادة منه
ارفقت لكم :
1- جميع صور الشرح
2- تطبيق الشرح (مثال)
3- وملف post.php + ملف الـ txt في ملف مضغوط اسمه post
كل ما اريده منكم دعوة في ظهر غير لوالدتي المتوفاه بالرحمه ووالدي ابقاه الله لي
[/b]
[b]تحياتي للجميع
ابو سامي[/b]