(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

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

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

(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 فقط