تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى
#1
السلام عليكم ورحمه الله وبركاته 

عندى برنامج واقف على هذا التعديل 
كنت عايز اكتب بيانات فى التكست بوكس واحفظها فى ملف خارجى ولما اكتب تانى فى التكست بوكس واعمل حفظ يضيف اللى مكتوب فى التكست بوكس مع النص القديم دون ان يستبدل النص المكتوب بالقديم 
واليكم الكود واتمنى التعديل عليه ليضيف بدل مايستبدل فى ملف التكست

كود :
Dim SB As New System.Text.StringBuilder

      SB.AppendLine("" & "")
      SB.AppendLine("" & TextBox1.Text & ":" & TextBox2.Text & "###" & TextBox3.Text & "###" & TextBox4.Text & "")
      SB.AppendLine("" & TextBox5.Text & ":" & TextBox6.Text & "###" & TextBox7.Text & "###" & TextBox8.Text & "")

   
      Dim R = GenerateRandomAlphanumeric(10)
      IO.File.CreateText(Application.StartupPath & "\XtreamUserInfo.src").Close()
      IO.File.WriteAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
  End Sub
  Public Function GenerateRandomAlphanumeric(ByRef iLength As Integer) As String
      Dim rdm As New Random()
      Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray()
      Dim sResult As String = ""

      For i As Integer = 0 To iLength - 1
          sResult += allowChrs(rdm.Next(5, allowChrs.Length))
      Next
      Return sResult
  End Function
الرد }}}
تم الشكر بواسطة: سميـر
#2
عندي هذا المثال قريب مما تريد لكنه بعيد كل البعد عن كودك ارجو ان يكون مفيد لك :


الملفات المرفقة
.zip   TestProg.zip (الحجم : 143.15 ك ب / التحميلات : 17)
الرد }}}
تم الشكر بواسطة: سميـر , elgokr
#3
حاولت اعدل علي الكود عشان اعمل بيه اللى فى دماغى ماعرفتش برضو
طب ممكن ارفقلك مشروعى وتعدلى عليه
الرد }}}
تم الشكر بواسطة: سميـر , asemshahen5
#4
وعليكم السلام

حسب ما تعلمته أن الامر CreateText يتسبب في إنشاء ملف جديد ليس به بيانات
وأن WriteAllText ينشئ الملف من جديد ويضع فيه البيانات (لن تجد البيانات السابقة)
وأنه لإضافة بيانات جديدة إلى بيانات سابقة يتم بالأمر AppendAllText فقط (ينشئ الملف إن لم يجده) بهذا الشكل
كود :
Dim SB As New System.Text.StringBuilder

     SB.AppendLine("" & "")
     SB.AppendLine("" & TextBox1.Text & ":" & TextBox2.Text & "###" & TextBox3.Text & "###" & TextBox4.Text & "")
     SB.AppendLine("" & TextBox5.Text & ":" & TextBox6.Text & "###" & TextBox7.Text & "###" & TextBox8.Text & "")

 
     Dim R = GenerateRandomAlphanumeric(10)
     'IO.File.CreateText(Application.StartupPath & "\XtreamUserInfo.src").Close()
     'IO.File.WriteAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
     IO.File.AppendAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
 End Sub
 Public Function GenerateRandomAlphanumeric(ByRef iLength As Integer) As String
     Dim rdm As New Random()
     Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray()
     Dim sResult As String = ""

     For i As Integer = 0 To iLength - 1
         sResult += allowChrs(rdm.Next(5, allowChrs.Length))
     Next
     Return sResult
 End Function



أرجو الإفادة وشكرا

اصدقائي حسب ترتيب ظهورهم في مواضيعي:
baha
ابراهيم ايبو
سعود
Rabeea Qbaha
اسامه الهرماوي
الرد }}}
تم الشكر بواسطة: Rabeea Qbaha , asemshahen5 , asemshahen5 , AbdoDabak , elgokr
#5
(10-10-19, 09:15 PM)سميـر كتب : وعليكم السلام

حسب ما تعلمته أن الامر CreateText يتسبب في إنشاء ملف جديد ليس به بيانات
وأن WriteAllText ينشئ الملف من جديد ويضع فيه البيانات (لن تجد البيانات السابقة)
وأنه لإضافة بيانات جديدة إلى بيانات سابقة يتم بالأمر AppendAllText فقط (ينشئ الملف إن لم يجده) بهذا الشكل
كود :
Dim SB As New System.Text.StringBuilder

     SB.AppendLine("" & "")
     SB.AppendLine("" & TextBox1.Text & ":" & TextBox2.Text & "###" & TextBox3.Text & "###" & TextBox4.Text & "")
     SB.AppendLine("" & TextBox5.Text & ":" & TextBox6.Text & "###" & TextBox7.Text & "###" & TextBox8.Text & "")

 
     Dim R = GenerateRandomAlphanumeric(10)
     'IO.File.CreateText(Application.StartupPath & "\XtreamUserInfo.src").Close()
     'IO.File.WriteAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
     IO.File.AppendAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
 End Sub
 Public Function GenerateRandomAlphanumeric(ByRef iLength As Integer) As String
     Dim rdm As New Random()
     Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray()
     Dim sResult As String = ""

     For i As Integer = 0 To iLength - 1
         sResult += allowChrs(rdm.Next(5, allowChrs.Length))
     Next
     Return sResult
 End Function



أرجو الإفادة وشكرا




ياخى مش عارف اشكرك ازاى الف الف الف الف شكر لحضرتك حليت المشكله بالكود بتاعك وشرحك ثبت فى مخى كدا الف شكر ربنا يجازيك خير ان شاء الله
الرد }}}
تم الشكر بواسطة: asemshahen5 , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] كود التعديل Abdellatif 6 394 21-12-23, 02:01 PM
آخر رد: Abdellatif

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


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