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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود 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 274 18-01-24, 05:04 PM
آخر رد: loay775
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  [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 ) ضيف كريم