أكواد معاملة النصوص هنا - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111) +---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116) +---- الموضوع : أكواد معاملة النصوص هنا (/showthread.php?tid=6045)

أكواد معاملة النصوص هنا - RaggiTech - 17-10-12 كاتب الموضوع : sniperser بسم الله الرحمن الرحيم أكواد معاملة النصوص 1/وضع عدد من حروف معين من النص: Rueslt =mid(Source,1,Number) بحيث Rueslt هي المتغير الذي سيظهر في الحروف و Source هو المصدر و 1 ترتيب الحرف الأول(الذي يبدأ منه عدد الحروف 1 إذا كنت تريد أن يقرأ من الأول) و Number هو عدد الحروف المراد قراءتها 2/قراءة عدد الحروف في النص : Rueslt=Len(Text1) 3/قراءة عدد من الحروف تحددها أنت إبتداء من اليمين: Rueslt=Right(Text1,2) 4/قراءة عدد من الحروف تحددها أنت إبتداء من اليسار: Rueslt=Left(Text1,2) 5/كود لقلب نص : Rueslt=StrReverse(Text1) 6/إستبدال كلمة بكلمة : Replace(Text1,txtFinded,txtReplace,1,-1,3) Text1 ا:لنص المراد البحث فيه txtFinded :الكلمة المراد البحث عنها txtReplace :الكلمة المستبدل بها 1 :نقصد بها رقم حرف بداية البحث -1 :عدد مرات الإستبدال إذا أردتها لانهائية إجعلها -1 3 :هل البحث يتتبع حالة الأحرف صغيرة أم كبيرة __________________________________ ترقبوا أكواد الرياضيات وشرحهم ومزيد من الأكواد إنشاء الله