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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج تعديل الكود لإضافتها فى موديل new_programer 1 73 01-05-24, 10:29 AM
آخر رد: تركي الحلواني
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 145 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 192 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 288 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 225 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 222 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 297 18-01-24, 05:04 PM
آخر رد: loay775
  ارجو الافادة للضرورة mohamed sabry 1 112 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 598 09-01-24, 08:41 PM
آخر رد: new_programer
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 487 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify

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


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