TW000001+2=? كيف اجمع القيمة السابقة

السلام عليكم و رحمة الله و بركاته :

أخي الكريم : حل هذا اللغز و احصل على حل مشكلتك ....

		Dim x As String = "TW000002"
		Dim y As Integer
		'
		y = CType(Strings.Replace(x, "TW", "1"), Integer)
		y += 1
		MessageBox.Show(String.Concat("TW", Strings.Mid(y.ToString, 2)))

أنا أمزح أخي العزيز ( أرجوك تقبل ذلك .. ) , الفكرة هي عبارة عن لف و دوران على السلسلة التي طلبت جمعها إلى رقم معين ... كيف ؟

أنت وضعت سلسلة نصية مؤلفة من حرفين "TW" و من ستة خانات عددية ( أي من رتبة المليون حسب اختيارك لعدد الخانات )

بالمختصر المفيد :

1- قمنا بإبعاد الحرفين من السلسلة و وضعنا بدلاً منهما رقم واحد (1) , ليصبح لدينا مثلاً ( 1000002 ) .

2- قمنا بزيادة ذلك الرقم بمقدار واحد , ليصبح مثلاً ( 1000003 ) .

3- قمنا بإبعاد تلك الخانة السابعة ( وهي رقم الواحد من الخطوة الأولى ) , ثم إرجاع الحرفين "TW" إلى مكانهما .

هل هذا اللف و الدوران يفيدك في حل المشكلة ..؟ أرجو ذلك , ووفقكم الله .

اخي ابو همام جزاك الله كل خير وزادك من علمه