تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف الى تحديث ملف نصي مرفوع على استضافة؟
#1
السلام عليكم ورحمة الله وبركاته
اخواني اخواتي
اسال الله لي ولكم التوفيق والسداد في الدارين.
رفعت ملف نصي بالكود ولا مشكلة هنا لكن للافادة فقط الكود التالي هو المسؤول:
كود :
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



طبعا اريد اضافة ميزة رفع الاي بي مع اسم الجهاز حتى اي شخص يريد ان يدردش مع احد ينقر زر ليتم جلب كافة محتوى الملف النصي طبعا قد نواجه اخطاء لكن نعالجها لاحقا ان شاء الله تعالى

المهم الان هل بكود رفع نص بشكل الحاقي للنص الموجود بالملف النصي المرفوع
الرد }}}
تم الشكر بواسطة:
#2
طريقة غير مستساغة نزل محتوي الملف من النت واحفظه في متغير أضيف للمتغير النص الجديد وقم بكتابته مرة أخرى في الملف المرفوع Rolleyes
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم ،،

جرب هذا الكود لقيته باحد المواقع المشكله اني لا املك أستضافه للتجربه في الوقت الحالي
كود :
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 !!!")
الرد }}}
تم الشكر بواسطة:
#4
kslawy كتب :طريقة غير مستساغة نزل محتوي الملف من النت واحفظه في متغير أضيف للمتغير النص الجديد وقم بكتابته مرة أخرى في الملف المرفوع Rolleyes
نعم هذه حيلة لابد منها مالم اجد حل معروفSmile
الرد }}}
تم الشكر بواسطة:
#5
اخي السكر المغرور
بارك الله فيك
الفكرة لدي هي:
ارسال الاي بي الخاص بي الى ملف مرفوع ثم جلب كافة الايبيهات الى Listbox الجلب سهل لكن الرفع هو المشكلة حيث انه يستبدل.(يبدو اني لم افهم الكود فاعذرني)
الرد }}}
تم الشكر بواسطة:
#6
لا عادي ،، طيب اخي العزيز ،، انا حقيقه لا احبذ فكرة الملفات النصيه لانها بحجمها الكبير مستقبلا ستبب لك زحمه بالاضافة ،، و اسألني عن التعامل مع الملفات النصيه الكبيره و لانك سوف تحتاج لاضافة غرف لشات .. و سيصبح لكل غرفة ملف نصي خاص بها حتى تبتعد عن عمليات المعالجة الكبيرة للنصوص الخ ،، و الملفات النصيه سوف تتعبك في عملية المعالجه ،، غير سوف تستهلك عمليات معالجه كبيرة ،، مثلا لو أردت ان تضيف جزء من نص الى ملف نصي كبير عملية فتحه سووف تتأخر ثم تضيف النص و سوف يتأخر و يوم تقفله و تحفظ سوف يتأخر و هذا بناءا على تجربتي في جهازي الشخصي فما بالك انك على موقع ويب و من الممكن يكون الانترنت ضعيف .. الخ ،، أي أمور سوف تعوق من عملك ،، فعشان تكون صح لازم تبني اساسك على شيء صحيح ،، لا تجرب شيء عقيم و في الاخر تعيده من اول و يمكن تكنسل على الموضوع من كثرت مشاكله ،،

ثانيا ،، انا اجد من الأفضليه استخدام ،، قاعدة بيانات اما my sql او قاعدة بيانات SQL server في أسوأ الأحوال XML و تقوووم فقط بعرض أخر 30 سطر في المحادثه عند الاستعلام باستخدام جمل SQL و ايضا تكون عملية الاضافة سلسه ،، و أفضل من الملفات النصية و اسرع ،،

ثالثا عند الاضافة لقاعدة البيانات ممكن تضغ كوووود يحذف محادثات الايام السابقة بحيث يخفف على قاعدة البيانات

رابع ،، ستحتاج في كلتا الحالتين لقاعدة بيانات عشان تضبط الصلاحيات و تسجيل مستخدمين الشات و الضبط للدردشة .. الخ

هذا رايي و الله اعلم ،، ممكن أحد من الأخوان يفيدك
الرد }}}
تم الشكر بواسطة:
#7
اخي الكريم انا لا اقصد استخدام الملفات النصية كحاوية للمحادثات ابدا لااقصد ذلك وانما اقصد فقط الايبيهات فقط المحادثة مباشرة عبر tcp/ip
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم ورحمة الله وبركاته
في طريقة جميلة
وهي أن تعمل مشروع 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


بالتوفيق
الرد }}}
تم الشكر بواسطة:
#9
الحيلة الحيلة ..مافيه غيرها
اويمكن استخدم قواعد بيانات sql server لكن لا اظن بوجود امكانية الاتصال عن بعد.لكن برضو بحيلة معينة!
الرد }}}
تم الشكر بواسطة:
#10
اخى سعود هل الاستضافة php ?
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
Smile تطبيقي يعمل تمام على ويندوز 10 قبل تحديث الوندوز وبعد التحديث لا يعمل رمضان محمد 2 382 31-10-23, 01:50 PM
آخر رد: رمضان محمد
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  [VB.NET] كود تحديث عدة أعمدة AboAlaa 2 294 21-08-23, 09:06 PM
آخر رد: AboAlaa
  [VB.NET] مشكلة في تحديث البيانات Necro 11 1,045 28-05-23, 02:06 AM
آخر رد: Jounior_P
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [VB.NET] خطا عدم تطابق البيانات فى كود تحديث check box فى قاعده بيانات اكسس Asabry 45 a 0 315 18-01-23, 08:21 PM
آخر رد: Asabry 45 a
  [سؤال] تحديث ملف مريض في البرنامج HUNTER25 3 409 15-12-22, 10:29 PM
آخر رد: HUNTER25
  [VB.NET] بطئ تحديث كونترول اثناء استخدام linq الماجيك مسعد 9 1,094 23-10-22, 02:39 PM
آخر رد: الماجيك مسعد
  بالفيديو كيفية عمل تحديث للبرنامج crazykinko 2 842 22-10-22, 12:48 PM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم