[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

Dim mainText As String = "namewecomepass1234"
Dim nameText As String = mainText.Substring(4, (mainText.Length - (mainText.Length - mainText.IndexOf("pass")) - 4))
Dim passText As String = mainText.Substring(mainText.IndexOf("pass") + 4, mainText.Length - (mainText.IndexOf("pass") + 4))

MessageBox.Show(nameText & vbNewLine & passText)

الدالة Substring خاصة باقتطاع النص، الوسيطة الأولى لبداية الاقتطاع والوسيطة الثانية لطول الاقتطاع (لو تركناها فارغة أي الوسيطة الثانية يقتص باقي النص من بداية التحديد في الوسيطة الأولى إلى نهاية النص) بامكاننا في المتغير (كلمة المرور) عدم ارسال الوسيطة الثانية وسيتم جلب الكلمة المرادة لكن احببت أن اضع الكود للتوضيح فقط.

كود :

Dim passText As String = mainText.Substring(mainText.IndexOf("pass") + 4)

---

المعذرة استاذنا ناجي إبراهيم كنت اكتب الرد بينما انت ترسله