خارج کردن کلمه خواص از یک جمله خواص در یک تکست

[xrezax]

2تا تکست باکس دارم
توی اولی یک نوشته دارم که قسمتی از اون نوشته توی یک پرانتز () هست.
مثلاً

BernamenevisBernam(enevisBernamene)visBernamenevis

حالا می خوام نوشته ای که توی پرانتز است توی تکست دوم نوشته بشه ( بدون پرانتز ) یعنی تکست دوم این میشه. enevisBernamene

[xxxxx_xxxxx]

سلام،
اگر فقط یک بار ( ) دارید، میتونید از تابع InStr برای پیدا کردن پرانتز باز، و از تابع InStrRev برای پیدا کردن پرانتز بسته استفاده کنید. در نهایت، با تابع Mid متن موجود بین دو پرانتز رو بخونید.

[xrezax]

من اینجوری نوشتمش.

er = (Text1.Text)
er = Right(er, (Len(er) - InStr(er, "(")))
er = Left(er, InStr(er, ")") - 1)
Text2.Text = (er)

میشه مختصرتر و طوری نوشت که ضریب اشتباهش بیاد پایین ؟؟؟

[xxxxx_xxxxx]

er = (Text1.Text)
p1 = InStr(1, er, "(") + 1
p2 = InStr(1, er, ")")
Text2.Text = IIf(p2 - p1 >= 0, Mid(er, p1, p2 - p1), "")