[على زهران]

الف الف شكر ياغالى على الشرح الممتاذ دا

---

معلش مافهمتش الموضوع اللى حضرتك ذكرته انما شرحك فهمته وطبقته الحمد لله 

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

كود :

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)
   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