تقييم الموضوع :
  • 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)
    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

هذا الكود يقوم بحفظ الكتابة اللى موجوده داخل التكست بوكس الى ملف خارجى 

ارجو التعديل على هذا الكود ليحفظ السطور داخل التكست الخارجى جنب بعض مش تحت بعض كما هو الان 
ارجو تفهم قصدى وشكرا 
الرد
تم الشكر بواسطة:
#2
(19-03-21, 04:57 PM)على زهران كتب :
كود :
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

هذا الكود يقوم بحفظ الكتابة اللى موجوده داخل التكست بوكس الى ملف خارجى 

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

غير AppendLine الى Append فقط
الرد
تم الشكر بواسطة: 3booody
#3
(19-03-21, 06:01 PM)Ronald كتب :
(19-03-21, 04:57 PM)على زهران كتب :
كود :
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

هذا الكود يقوم بحفظ الكتابة اللى موجوده داخل التكست بوكس الى ملف خارجى 

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

غير AppendLine الى Append فقط

الف شكر ياكبير
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 38 منذ 2 ساعة مضت
آخر رد: جيولوجي مبتدئ
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 270 منذ 2 ساعة مضت
آخر رد: E100
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 1 69 منذ 9 ساعة مضت
آخر رد: E100
  اريد كود نفس هذا الكود للاكسس غدير الصليحي 4 160 , 11:29 PM
آخر رد: غدير الصليحي
  السلام عليكم عندي جدولين جدول به التاريخ والكود وجدول به بيانات بنفس الكود ahmedhhh2 6 200 25-11-21, 12:54 AM
آخر رد: ahmedhhh2
  سؤال في الفيجوال بيسك ارجو المساعدة abdalaziz224 3 304 13-11-21, 03:16 PM
آخر رد: kaled2025
  احتاج مساعدة في التعديل على كود شغال تمام في wpf اما winform يظهر مشكل farfour 3 238 10-11-21, 12:27 AM
آخر رد: mrfenix93
  [سؤال] طريق التعامل عن طريق الكود مع ContextMenuStrip alims 7 200 08-11-21, 04:21 PM
آخر رد: Anas Mahmoud
Information [سؤال] كيفية اخفاء عمود و تصغير حجم الكود listview alims 5 295 07-11-21, 02:49 PM
آخر رد: alims
  ما هو الخطا في هذا الكود Ikramynasr 2 211 28-10-21, 11:08 AM
آخر رد: Ikramynasr

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


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