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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماسبب عدم تنفيذ الكود عند استخدام قارئ الباركود جيولوجي مبتدئ 3 62 منذ 4 ساعة مضت
آخر رد: جيولوجي مبتدئ
  ازاى احفظ الكود masport tv 1 57 21-07-21, 12:48 AM
آخر رد: ميدو الفنان
  [سؤال] من فضلكم استفسار Necro PC 2 116 13-07-21, 06:39 PM
آخر رد: Necro PC
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 6 1,422 06-07-21, 09:39 AM
آخر رد: strongriseman
  ارجو تفعيل الازرار الاضافة و التعديل والبحث والحذف عمور2016 4 999 05-07-21, 05:19 PM
آخر رد: naserflaha71
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 2 766 05-07-21, 04:28 PM
آخر رد: naserflaha71
  مشكلة كبيرة ارجو المساعدة خالد20 3 310 22-06-21, 04:54 PM
آخر رد: خالد20
  ارجو منكم المساعده و التعديل علي الكود اليوم السابع 5 288 14-06-21, 09:58 PM
آخر رد: trakktour
  كيف استثني يوم الجمعة في الكود التالي abomo3ath 1 175 07-06-21, 11:51 PM
آخر رد: Fareed2
  [VB.NET] التعديل على كود لقرائة باقي المعلومات من قاعدة البيانات khairallah 2 951 05-06-21, 11:21 PM
آخر رد: samirmondy2@gmail.com

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


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