كيف استخرج الكلمات التي بين الاقواس من تكست بوكس

بسم الله

انت عارف سؤالك ده كان من حوالي اسبوعين اكير مشكلة عندي

كان في فكرة برنامج عندي مبنية كلها على موضوع شبه كده ولما ملقتش حل غيرت طريقة العمل خالص

فياريت اي حد يلاقي حل يفيدنا

وجزاكم الله خيرا

هل تريد كود جاهز أم تريد الفكرة ؟

/index.ph...st&id=35086

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

أخي الكريم لا بد من الفكرة قبل الكود الجاهز

حسن الفكرة يا أخي سهلة

وكل ما تحتاجه هو دالة واحدة صغيرة وLoop

الدالة هي InStr

وسأقتبس من برنامج المرجع للدوال البرمجية لــمحمد سامي

يمكنك بواسطة هذه الدالة معرفة أول مكان يظهر فيه نص ما ضمن نص آخر أكبر منه. الوسيطة الأولى هي وسيطة اختيارية تحدد مكان بدء البحث، أما الوسيطة الثانية string1 فتحدد السلسلة النصية التي سيتم البحث فيها، والوسيطة الثالثة string2 تحدد السلسلة النصية التي سيتم البحث عنها في السلسلة الأولى، أما الوسيطة الأخيرة فهي اختيارية أيضا وتحدد نوع المقارنة التي يجب إجرائها وهي تأخذ أحد الثوابت التالية :
vbTextCompare=0
vbBinaryCompare=1
والفرق بينهما هو أن الأولى تراعي حالة الأحرف والثاني لا تراعي حالة الأحرف.

آمل أن يفيدك الكود المرفق

Between_Arc.rar

بصراحة حاولت اساعدك بتجربة لكن لم استطع

اريد من الاخوان يقولو هل كودي خطا ؟؟

Dim s As String
Label1.Caption = Left(s, 2

)

i'm sorry that i'm going to write in english

i donot know what you mean by

Dim s As String
Label1.Caption = Left(s, 2

and what to do with the topic

but your code will take the two letters from the left of the string

Means:

Dim s As String
s="Visul basic"
Label1.Caption = Left(s, 2)

that will return "Vb"

StrFun.rar

اقتباس

that will return "Vb"

vb or Vi

مشكووور على العموووم لكن اريد معنى string و long و .... لا تقل لي انه متغيير من نوع .....

انا لا افهم هذا اريد شرحا وافي

مع شكري

السلام عليكم ورحمة الله تعالى وبركاته ولا أحلى ولا أجمل من تحية الاسلام

خطأ غير مقصود والله أخي لم أنتبه فهي "vi" وليس vb

آسف أخي والله آسف

أما بخصوص سؤالك

اقتباس

مشكووور على العموووم لكن اريد معنى string و long و .... لا تقل لي انه متغيير من نوع .....

انا لا افهم هذا اريد شرحا وافي

هذا الرابط

قد يفيدك جدا وأخص بالذكر هذا الكلام

اقتباس

معناه اصدار أمر للفيجول بيسك تخبره باسم المتغير ونوعه مثل

DIM NAME AS STRING

اقتباس

يقوم الفيجول بيسك بناء على هذا الأمر بحجز الذاكرة اللازمة لذلك المتغير . ولكن

عملية الاعلان ليست مفروضه على المبرمج وإنما اختيارية ويمكنك ان تضع عدة متغيرات بدون تعريفها .

حسن السؤال الان ماهي الذاكرة اللازمة لكل متغير

حسن أنت تعرف أن أي شيء يشتغل عندما يكون النظام شغال فنظام التشغيل لابد ولابد ثم لابد أن يقوم بوضعه في الذاكرة RAM إن كان ما كان

Random Access Memary

وانظر هذه التعريفات فهي مفيدة جدا

here

there

سأجيبك على المثالين الذين أرفقتهما

long هذا المتغير يأخذ من الذاكرة 4kb

:P يعني إذا كان حجم ذاكرتك 8kb فاعلم أنه لا يجب أن تقوم بتعريف متغير آخر من نوع Long :D

ومجاله هو

between –2,147,483,648 and 2,147,483,642

أما String فيأخذ على حسب عدد حروفه* byte

يعني عندك مبرمج مبتدا عندك 11byte

مجاله هو

لست متأكدا من العدد الذي أرفقه الاخ MANSUR
لأنني أعتقد أنه أكبر من الرقم 65.500

وهذا رابط جيد وبه دروس جيدة هنا

آمل أن أكون قد وفقت في الشرح وتقريب المعنى ولو قريبا ويبقى عليك أخي الكريم البحث أكثر وأكثر والجد أكثر

ســــــــــــــــلامي

ولأضف

اقتباس

كل ما يكتب في الموديل يبقى في الذاكرة طوال عمل البرنامج

اما مايكتب الفورم في ينقسم الى

general يبقى في الذاكرة طوال عمل النافذة وهو المكتوب في

subrouten يبقى في الذاكرة طوال عمل الحدث