تقييم الموضوع :
  • 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] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 69 27-11-16, 03:56 PM
آخر رد: Adrees
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 124 24-10-16, 06:45 AM
آخر رد: thevirus
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 159 16-10-16, 09:48 AM
آخر رد: Asmaa adel
  [VB.NET] اريد تحديث برنامجي من عن بعد medoddd 1 152 27-08-16, 12:21 PM
آخر رد: سعود
  تحديث البيانات في الكريستال ريبورت محمد خلف زكي 0 105 06-08-16, 10:16 PM
آخر رد: محمد خلف زكي
  [VB.NET] حدثت مشكلة اثناء تحديث فيجوال بيسك 0theghost0 4 366 13-04-16, 07:21 AM
آخر رد: 0theghost0
  [VB.NET] مشكلة فى تحديث حقل اداة DataGridView الماجيك مسعد 18 593 09-04-16, 06:31 PM
آخر رد: الماجيك مسعد
  ارجو المساعدة بخصوص تحديث جدول بالبيانات عن طريق جدول اخر رامي الامير 3 199 02-04-16, 02:00 AM
آخر رد: نور الدين وليد
  ارجو المساعدة بخصوص تحديث جدول بالبيانات عن طريق جدول اخر رامي الامير 1 171 01-04-16, 05:02 PM
آخر رد: myalsailamy
Shocked [سؤال] عمل تحديث عن بعد بأستخدام برنامج xml hishamdaz 5 222 08-03-16, 01:20 AM
آخر رد: hassan

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


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