[حريف برمجة]

(20-04-19, 07:44 AM)dubai.eig كتب : شكرا استاذي ساجرب الكود

بس كيف اذا الرقم التسلسلي وصل إلى ١٠٠٠ 

لازم يمشي الى ١٠٠١.  ١٠٠٢. وهكذا


1003KKK

يوجد حلين :

الأول تعمل خانات الأرقام كأقصى عدد تتصورة مثلاً :

0000001kkk

وتعدل كود اقتصاص الارقام السابق .

الثاني نعمل معادلة تحسس الأرقام والحروف ونفصل بينهم ونزيد بمقدار واحد على الرقم ثم نظيف الحروف .

كود :

Dim num As Integer = Integer.Parse(System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^\d]", "")) + 1
       Dim str As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "(?:[0-9]+\.?[0-9]*|\.[0-9]+)", "")

       TextBox1.Text = num & str