الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بعض دوال التعامل مع النصوص

مغلق
بدأه FemTo في 25 يوليو 2006 · 14 رد · 2,532 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

1-Len():……

فائدتها :

الداله ديه بتحسب عدد العناصر الموجوده فى متغير او صنوق حوار ,

او اى حاجه ممكن يكتب فيها..وخلى بالك انا قولت عنصر مش حروف او ارقام,

يعنى لو فى مسافه فيها حتتحسب معانا.

مثال :

لو انا بصمم مثلا اى حاجه ...و احتاجت ان المستخدم يدخل اسمه مثلا فى اللعبه...

وانا مثلا عامل ليبل علشان يطلع فيه اسمه..فانا شرطت عليه ان اسمه لا يزيد عن 5 حروف.

وهنا تاتى اهميه الداله ديه فى التاكد من عدد الحروف.

تطبيق:حنعمل المثال اللى قولناه فوق....

p1.JPGونتيجه تنفيذ الكود بعد ادخال اكثر من خمسه حروف:

p2.JPG

2- ucase$() , lcase$() :……

فائدتها :

الدالتين دول اختصار للكلمتين upper و lower وهما بيحولو الحروف فى اى مكان نصى الى حروف capital وحروف small على الترتيب ..

مثال :لو انا مثلا عامل برنامج بندخله كلمه سر مثلا ..وعايز المستخدم ميتلخبطش او لتسهيل العمليه البرمجيه..يمكن عمل خطوه لتحويل كل المدخل او المخرج لاحدى الحالتين.

تطبيق :

حنعمل مثلا برنامج بينقل اى كلام مكتوب فى تيكست الى تيكست تانيه ويخلى الحروف كلها small....واعمل انتا واحد بينقل الحروف ويخليها كلها CAPITAL..

الكود :

p3.JPG

وبعد تنفيذ البرنامج :

P4.JPG

3- Trim() , Ltrim() ,Rtrim() :…

فائدتها:

امر تريم فى العاده هو "عدو" المسافات...يعنى فائته هيا حذف المسافه من اى مدخل نصى –يعنى معنى الكلام ده- انه بيحذف المسافات اللى على الجنب اليمين والجنب اليسار للكلام ولا يفعل اى شى للمسافات بين الحروف او الارقام..والامر الثانى والثالث هما مجرد تعديل بسيط على الامر واحد بيخلى يحذف المسافات فقط من على يمين الكلام وواحد يخليه يحذف المسافات فقط من على يسار الكلام..

مثال :

فاكر المثال بتاع len انا قلتلك هناك ان الامر ده حيحسب المسافه كانها عنصر.وبكده لو المستخدم كتب مسافتين الجهاز حيسكت وشكلنا حيبقى "وحش" فاحنا نستخد امر تريم لحذف المسافات ولاجبار المستخدم على ادخل حروف..

تطبيق :

شوف المثال ده ولاحظ الفرق...ونفذه مره باستخدام تريم ومره لا...واكتب كل مره 6 مسافات...

p5.JPG

4- Right() , Left() , Mid():……………………………

فائدتها :

الدوال ديه تتخلص فائدتها فى استخلاص العناصر من الصناديق النصيه.. مع اختلاف الطريق , فمثلا : Right() تتستخلص عدد من الحروف –حسب الامر- من اليمين, وLift() تستخلص عدد من الحروف من اليسار اما Mid() فتستخلص الحروف بداء من الرقم المعطى.....

طريقه كتابه الكود :

Right (Variable ,Number )

حيث الVariable هو المتغير اللى فيه الحروف او الارقام اللى عايزين نستخلص منها...

مع ملاحظه انه ممكن نكتب بدل من المتغير Text1.text مثلااا .

ملاحظه : مع Mid بنحدد عدد العناصر اللى حناخدها ....

وسيصبج شكلها .....

Mid(variable ,starting, Length )

مثال:

p6.JPG

p7.JPG

وبتطبيق البرنامج :

p8.JPG

مدونة مهندس ميكانيكى

“Any fool can make things bigger, more complex, and more violent”

#2

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

وكثر الله من امثالك ،، حقيقه دوال مفيده ويجب تعلمها فعلاً

تحياتي

#3

جزاك الله خيراً أخي FemTo

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#4

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

ادعو لي بالهداية فأنا أحتاج هذا الدعاء بشدة

منتدى تصميم التطبيقات (و يشمل نظم التشغيل) و تعريبها. <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

بعض ردودي ومشاراكاتي في المنتدى:

1- هل تريد التحكم بجهازك كأنك محترف, ( إذاً تعال معي وتعلم الرجستري Registry ).

...|-->> فكرة عامة عن الرجستري وكيفية التعامل معه ( رقم المشاركة 1 - 4 )

...|-->> كتابة ملف رجستري

...|-->> تشغيل الرجستري دون رسائل( في الخفاء )

...|-->> بعض التحكمات التي يقدمها الرجستري

...|-->>=>> إيقاف عمل Ctrl+Alt+delete ( Task Manager )

...|-->>=>> إخفاء قائمة ملف file وبذلك لن ترى قائمة file

...|........... في مشاركة أخرى >> حتى ولو قمت بالضغط على أي ملف أو مجلد بزر الفأرة الأيمن

...|-->>=>> لإيقاف وإخفاء عمل البحث Find من على الجهاز

...|-->> بعض المعلومات التي يقدمها الرجستري

...|-->>=>> معرفة الأجهزة المتصلة بالـIDE ورقم السريال الخاص لكل جهاز

...|-->> من أحسن مواقع الرجستري

...|-->>=>> http://technet2.microsoft.com/WindowsServe...3.mspx?mfr=true

منتدى مبرمجي لغة Microsoft Visual Basic <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

برامج من صنعي:

1- لعبة (من صنعي ), جربها وقول رأيك

2- ساعة حائط, من صنعي

بعض ردودي ومشاراكاتي في المنتدى:

1- طريقتان لفتح ملف معين وليكن بامتداد SWF ببرنامجك [ الطريقة الأولى - الطرقة الثانية ]

2- هل تريد ألا يتحكم أحد في الجهاز غيرك؟

3- كود ايقاف عمل زر الاغلاق x بزاوية الفورم

4- عرض صورة متحركة بالكود , أي بدون استخدام أدوات

5- اجعل الـComboBox [ تنسدل - لما تكتب فيا تنسدل وتظهر الاسماء التى تبدأ بالحرف اللي كتبته فى الكومبو ]

6- إنشاء مكون أثناء تشغيل البرنامج ثم إدخاله تحت نطاق مكون آخر مثلاً إدخاله داخل نطاق microsoft tabbed dialog control

أسئلتي في المنتدى التي تم الإجابة عليها:

1- كيف يمكن قراءة الإشارات الصوتية الخارجة من الميكروفون أو السماعات ( لرسمها أو العبث بها ) ؟ أرجو المزيد من الردود ...

2- إيقاف عمل الرجستري

أسئلتي في المنتدى التي لم يتم الإجابة عليها:

اقتباس
ردك يعطي حافذ للإجابة على أسئلتك
#5

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

اريد منك كود صغير او دالة تعمل تحديد لكل اللي مكتوب في التيكست

بعنى انا دلوقتي كاتب نص في مربع نصي

عاوز اول لما ادوس على زر امر يعنل تحديد لكل اللي مكتوب في هذا المربع ( تظليل الكلام يعني ) حتى استطيع بعد ذلك عمل نسخ هذا النص

وشكرا

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#6

موضوع رائع

متميز كالعاده أخى FemTo

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

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#7
MohamedAliSalim كتب:
جزاك الله كل خير

اريد منك كود صغير او دالة تعمل تحديد لكل اللي مكتوب في التيكست

بعنى انا دلوقتي كاتب نص في مربع نصي

عاوز اول لما ادوس على زر امر يعنل تحديد لكل اللي مكتوب في هذا المربع ( تظليل الكلام يعني ) حتى استطيع بعد ذلك عمل نسخ هذا النص

وشكرا

اول حاجه تعملها : تجعل خاصيه Hide Selection للتيكست بوكس =false حتى يظهر التظليل

واتبع الخطوات :

1- اول حاجه عاوزين نعرفها هيا عدد العناصر اللى فى التيكست فتعمل متغير وتضع فى عدد العناصر فى التيكست بوكس وستحصل عليها من الداله Len كما فى الدرس

   Dim f As Integer
f = Len(Text1.Text)

2- نحدد اول عنصر لبدء التظليل وهو العنصر الاول - لاننا سنظلل كله - وهو على فكره بيكون ترتيبه zERO

  Text1.SelStart = 0

3- ونحدد عدد عناصر التظليل وهى عدد العناصر اللى فى التيكست بوكس كلها

 Text1.SelLength = f

فسيكون الكود النهائى

					  
Private Sub Command1_Click()
Dim f As Integer
f = Len(Text1.Text)
Text1.SelStart = 0
Text1.SelLength = f
End Sub

مدونة مهندس ميكانيكى

“Any fool can make things bigger, more complex, and more violent”

#8

up

مدونة مهندس ميكانيكى

“Any fool can make things bigger, more complex, and more violent”

#9

مشكور اخي احمد وجزاك الله خيراً

Linux System Admin

#10

---------------------------------------------------------------------------

مشكور مشكور

مشكور مشكور مشكور مشكور

مشكور مشكور مشكور مشكور

مشكور مشكور مشكور مشكور

مشكور مشكور مشكور مشكور

مشكور مشكور مشكور مشكور

مشكور مشكور مشكور

مشكور مشكور

مشكور مشكور

مشكور مشكور

---------------------------------------------------------------------------

الكود بتاع تحديد كل النص اشتغل

تحياتي لك

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#11

جزاك الله خير

وكثر الله من امثالك

تقبل مرورى

عاشقه الفيجول

#12

جزاكم الله خيراً أخى FemTo

av-83656.jpg

600x600.gif

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

راسلنى على

osa3_12@yahoo.com

#13

يعطيك العافيه اخ FemTo

اذا لم تكن هناك اضافات في الموضوع ... بلغني ليتم نقله الى قسم الدروس

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#14

جزاك الله خير

#15

اخواني الاعزاء......

عندي سؤال في دوال التعامل مع النصوص

كيف بدي اخلي عنصر text يكتب بالعربي مباشرة

يعني اريد لما المستخدم يشغل البرنامج في عنصر النص البحث مثلاً يكتب عربي مباشرة دون الحاجة

للضغط على shift+ alt للتحويل للعربي

ارجو ان يكون شرح السؤال واضح

ارجو لمن عنده الجواب ان يفيدني جزاكم الله خير

ايميلي هو : the_hardman@hotmail.com

سبحان الله والحمد لله ولا اله الا الله و الله اكبر

اللهم صلي وسلم وبارك على سيدنا محمد وعلى اله وصحبه وسلم

هذا الموضوع مغلق.

مواضيع مشابهة