[ابراهيم مراد]

(21-03-14, 01:55 AM)elgokr كتب : دا كود زى فلتر او بحث

Dim a As String
Dim b As String

a = textbox1.Text
b = InStr(textbox2.Text, a)
If b Then
textbox2.Focus()
textbox2.SelectionStart = b - 1
textbox2.SelectionLength = Len(a)
Else
MsgBox("No text Found!")
End If

كل اللى عليك التالى
يا تستخدم الكود كا زر بحث عشان يحدد الحاجة اللة محتجها
يا تحول الكود من خلال عبارة textbox1.Text
للجملة اللى محتاج البحث فيها
وتدمج كود النسخ بحيث نستخلك الكلمة بعد البحث عليها فى الذاكرة

تحياتى

السلام عليكم الاستاذ جوكر اشكرك على ردك ولاكن انا اريد عرض النتيجه لواحدها لاكن هذا بيحدد على الكلمه فى النص انا اريد اتستخرج الجمله الذى حدد على الكلمه المراده | 212.55.11.58:8080 | vpn | http |
| 212.55.11.55:1080 | vpn | socks3 |
| 212.55.11.52:1080 | vpn | scock4 |
| 212.55.11.50:1080 | vpn | socks5 |
يعنى مثلا كتبت http اريد استخراج الجمله كامله
او
212.55.11.58:8080