مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح

[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:وننتقل للجد Cool

************************************************** **************
الان الية العمل يقوم البرنامج بمخاطبة صفحة 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]

اخي عذراً على تأخيري ولكن كنت منشغل جداً

نعم بالنسبة لسؤالك لا يتم كتابة الرمز # وما بعده من كلام لانة يفيد بلغة ال php استثناء السطر الذي يلي الرمز

كما يعمل الرمز ' بالـ vb.net

الحل:
يمكن حل المشكلة من الـ vb.net وذلك عن طريق Encodeing
بتحوبل الرمز # الى %23 ليفهم ال php بانه نص كما ترون بروابط المواقع عند نسخ عنوان موقع ما
مثل الفيس بوك عند نسخ رابط الصفحة التالية من احد صفحات الفيس بوك تنسخ على الشكل التالي

PHP كود :

http://www.facebook.com/l.php?u=http%3A%2F%2Fwww.najah.edu%2Far%2Fnode%2F33225&h=BAQFMDaGNAQHfD0BHoZi2gNMTFxiphqwETENsThIiEV2HMg&enc=AZOBEnBwWm1uVkk-ql8d69cpqCwR0cnbS67qy8sS7hpk4WdxYt2VPedGMxspE8zhu4JMGvtjTkV8Zjty0_0DF8RB   

لاحظو الرموز % و %3A ووو...... وهي اختصار لحروف ورموذ تأخذ منحنى برمجي عند وضعها بالرابط دون الـ Encodeing الخاص بها .

ليصبح الرابط بعد الترجمة الى

PHP كود :

http://www.najah.edu/ar/node/33225   

يعني بأختصار اذا تم وضع الرمز هذا # برابط الموقع او تمريره على لغة php كما هو هنا . برمجياً يقوم بوظيفة الاستثنائات

اما اذا مررته الى ال php مع Encodeing هكذا %23 يقوم الphp باعتباره نص String دون منحنيات برمجية.

اتمنى ان الفكرة قد فهمت ووصلت

وانا قمت بزيادة الصطرين التاليين الى المثال المرفق

PHP كود :

Dim Rep As String = TextBox1.Text 
        Rep = Replace(TextBox1.Text, "#", "%23")   

واستخدمت الداله Replace لاستبدال الرمز # بالرمز %23

وللمزيد من ختصارات الرموز : http://www.w3schools.com/tags/ref_urlencode.asp

[b]مرفق المثال بعد التعديل.
[/b]