جستجوی عدد در رشته

[site-111]

سلام
من یک تکست بوکس دارم که درونش یک خط نوشته شده نمونه مثال:


persian=(50,40,30,20,10)میخوام با زدن دکمه اون عدد 50 تکست بوکس 2 بیاد

راهنمایی کنید . ممنون:تشویق:

[xxxxx_xxxxx]

با تابع Instr دنبال پرانتز باز بگردید.
از موقعیت شروع پرانتز باز تا انتهای رشته رو به تابع Val بدید.
خروجی میشه عدد 50
خروجی رو به Textbox2 بدید.

[site-111]

یک پروژه مرحمت کنید بدید ممنون:قلب:

[xxxxx_xxxxx]

یک Command و دو تا Textbox بزارید رو فرم. تو Textbox1 همون رشته ای که گفتید رو قرار بدید. بعد تو قسمت کد اینو بنویسید:


Private Sub Command1_Click()
pos = InStr(1, Text1, "(")
Text2 = Val(Mid(Text1, pos + 1))
End Sub


پ.ن:
عنوان تاپیک اصلاح شد. لطفاً برای تاپیک هایی که ایجاد می کنید عنوان مناسب انتخاب کنید.
عنوان پیشین: "یک سوال حرفه ای vb6"