27-03-13, 12:38 PM
السلام عليكم ورحمة الله وبركاته
اخواني اخواتي
اسال الله لي ولكم التوفيق والسداد في الدارين.
رفعت ملف نصي بالكود ولا مشكلة هنا لكن للافادة فقط الكود التالي هو المسؤول:
ولتنزيله الكود التالي:
التالي هو السؤال
يوجد روتينين واحد لرفع النص لملف موجود على استضافة والاخ لتنزيل النص اي قراءة النص فقط
القراءة لا مشكلة لكن اريد حين ارفع نص لملف موجود على استضافة اريد ان يحدث اي يضيف وليس يستبدل
الملف التالي لرفع النص
لكنه يستبدل النص فكيف الى تحديثه؟ هل بحيلة ام توجد طريقة معتبرة؟
وهذا لتنزيل النص
طبعا اريد اضافة ميزة رفع الاي بي مع اسم الجهاز حتى اي شخص يريد ان يدردش مع احد ينقر زر ليتم جلب كافة محتوى الملف النصي طبعا قد نواجه اخطاء لكن نعالجها لاحقا ان شاء الله تعالى
المهم الان هل بكود رفع نص بشكل الحاقي للنص الموجود بالملف النصي المرفوع
اخواني اخواتي
اسال الله لي ولكم التوفيق والسداد في الدارين.
رفعت ملف نصي بالكود ولا مشكلة هنا لكن للافادة فقط الكود التالي هو المسؤول:
كود :
My.Computer.Network.UploadFile(Application.StartupPath & "\testing.txt", "ftp://username:password@ftp.drivehq.com/testing.txt")
ولتنزيله الكود التالي:
كود :
My.Computer.Network.DownloadFile("ftp://username:password@ftp.drivehq.com/testing.txt", Application.StartupPath & "\newtxt.txt")
التالي هو السؤال
يوجد روتينين واحد لرفع النص لملف موجود على استضافة والاخ لتنزيل النص اي قراءة النص فقط
القراءة لا مشكلة لكن اريد حين ارفع نص لملف موجود على استضافة اريد ان يحدث اي يضيف وليس يستبدل
الملف التالي لرفع النص
كود :
Public Sub UploadString(ByVal address As String)
Dim client As WebClient = New WebClient()
client.Encoding = System.Text.Encoding.UTF8
Dim reply As String = client.UploadString(address, myip.text)
MsgBox("تم رفع النص للملف")
End Sub
لكنه يستبدل النص فكيف الى تحديثه؟ هل بحيلة ام توجد طريقة معتبرة؟
وهذا لتنزيل النص
كود :
Public Sub DownloadString(ByVal address As String)
Dim client As WebClient = New WebClient()
Dim reply As String = client.DownloadString(address)
Label1.Text = reply
End Sub
طبعا اريد اضافة ميزة رفع الاي بي مع اسم الجهاز حتى اي شخص يريد ان يدردش مع احد ينقر زر ليتم جلب كافة محتوى الملف النصي طبعا قد نواجه اخطاء لكن نعالجها لاحقا ان شاء الله تعالى
المهم الان هل بكود رفع نص بشكل الحاقي للنص الموجود بالملف النصي المرفوع
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير