+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف الى تحديث ملف نصي مرفوع على استضافة؟ (/showthread.php?tid=8178)
الصفحات:
1
2
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - سعود - 27-03-13
السلام عليكم ورحمة الله وبركاته
اخواني اخواتي
اسال الله لي ولكم التوفيق والسداد في الدارين.
رفعت ملف نصي بالكود ولا مشكلة هنا لكن للافادة فقط الكود التالي هو المسؤول:
كود :
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طبعا اريد اضافة ميزة رفع الاي بي مع اسم الجهاز حتى اي شخص يريد ان يدردش مع احد ينقر زر ليتم جلب كافة محتوى الملف النصي طبعا قد نواجه اخطاء لكن نعالجها لاحقا ان شاء الله تعالى
المهم الان هل بكود رفع نص بشكل الحاقي للنص الموجود بالملف النصي المرفوع
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - kslawy - 27-03-13
طريقة غير مستساغة نزل محتوي الملف من النت واحفظه في متغير أضيف للمتغير النص الجديد وقم بكتابته مرة أخرى في الملف المرفوع
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - السكر المغرور - 27-03-13
السلام عليكم ،،
جرب هذا الكود لقيته باحد المواقع المشكله اني لا املك أستضافه للتجربه في الوقت الحالي
كود :
Imports System.IO
Imports System.Net
Imports System.Text
Dim localFile As String = "C:\Yserver.txt"
Dim remoteFile As String = "ftp://ftpSERVER/test12345.txt"
Dim username As String = "user"
Dim password As String = "pwd"
Dim sourceStream As New StreamReader(localFile)
Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
sourceStream.Close()
'Get the object used to communicate with the server.
Dim Request As System.Net.FtpWebRequest = FtpWebRequest.Create(remoteFile)
' Setting Properties
Request.Credentials = New NetworkCredential(username, password)
Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Request.Proxy = Nothing
Request.KeepAlive = False
' Uploading file
Request.GetRequestStream.Write(fileContents, 0, fileContents.Length)
MsgBox("File Uploaded Successfully !!!")كيف الى تحديث ملف نصي مرفوع على استضافة؟ - سعود - 27-03-13
kslawy كتب :طريقة غير مستساغة نزل محتوي الملف من النت واحفظه في متغير أضيف للمتغير النص الجديد وقم بكتابته مرة أخرى في الملف المرفوعنعم هذه حيلة لابد منها مالم اجد حل معروف
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - سعود - 27-03-13
اخي السكر المغرور
بارك الله فيك
الفكرة لدي هي:
ارسال الاي بي الخاص بي الى ملف مرفوع ثم جلب كافة الايبيهات الى Listbox الجلب سهل لكن الرفع هو المشكلة حيث انه يستبدل.(يبدو اني لم افهم الكود فاعذرني)
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - السكر المغرور - 27-03-13
لا عادي ،، طيب اخي العزيز ،، انا حقيقه لا احبذ فكرة الملفات النصيه لانها بحجمها الكبير مستقبلا ستبب لك زحمه بالاضافة ،، و اسألني عن التعامل مع الملفات النصيه الكبيره و لانك سوف تحتاج لاضافة غرف لشات .. و سيصبح لكل غرفة ملف نصي خاص بها حتى تبتعد عن عمليات المعالجة الكبيرة للنصوص الخ ،، و الملفات النصيه سوف تتعبك في عملية المعالجه ،، غير سوف تستهلك عمليات معالجه كبيرة ،، مثلا لو أردت ان تضيف جزء من نص الى ملف نصي كبير عملية فتحه سووف تتأخر ثم تضيف النص و سوف يتأخر و يوم تقفله و تحفظ سوف يتأخر و هذا بناءا على تجربتي في جهازي الشخصي فما بالك انك على موقع ويب و من الممكن يكون الانترنت ضعيف .. الخ ،، أي أمور سوف تعوق من عملك ،، فعشان تكون صح لازم تبني اساسك على شيء صحيح ،، لا تجرب شيء عقيم و في الاخر تعيده من اول و يمكن تكنسل على الموضوع من كثرت مشاكله ،،
ثانيا ،، انا اجد من الأفضليه استخدام ،، قاعدة بيانات اما my sql او قاعدة بيانات SQL server في أسوأ الأحوال XML و تقوووم فقط بعرض أخر 30 سطر في المحادثه عند الاستعلام باستخدام جمل SQL و ايضا تكون عملية الاضافة سلسه ،، و أفضل من الملفات النصية و اسرع ،،
ثالثا عند الاضافة لقاعدة البيانات ممكن تضغ كوووود يحذف محادثات الايام السابقة بحيث يخفف على قاعدة البيانات
رابع ،، ستحتاج في كلتا الحالتين لقاعدة بيانات عشان تضبط الصلاحيات و تسجيل مستخدمين الشات و الضبط للدردشة .. الخ
هذا رايي و الله اعلم ،، ممكن أحد من الأخوان يفيدك
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - سعود - 27-03-13
اخي الكريم انا لا اقصد استخدام الملفات النصية كحاوية للمحادثات ابدا لااقصد ذلك وانما اقصد فقط الايبيهات فقط المحادثة مباشرة عبر tcp/ip
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - sooriaty03 - 27-03-13
السلام عليكم ورحمة الله وبركاته
في طريقة جميلة
وهي أن تعمل مشروع Console في VB.net
وترفعه على موقع https://appharbor.com/
الموقع السابق هو محاكي لبيئة VB.Net تماما وأيضا مجاني ولكن لا يقبل إلا مشاريع Console أو ASP.Net
وبعد ذلك تضع الكود التالي في المشروع
كود :
Module Module1
Sub Main()
FileOpen(1, "IPData.txt", OpenMode.Append) 'Append تعني للإضافة
Print(1, My.Application.CommandLineArgs(0))
FileClose(1)
End Sub
End Moduleبالتوفيق
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - سعود - 27-03-13
الحيلة الحيلة ..مافيه غيرها
اويمكن استخدم قواعد بيانات sql server لكن لا اظن بوجود امكانية الاتصال عن بعد.لكن برضو بحيلة معينة!
كيف الى تحديث ملف نصي مرفوع على استضافة؟ - just.coder - 27-03-13
اخى سعود هل الاستضافة php ?