خدمات مركز الخوارزمى

خريطة الموقع	معرض الصور	مركز تحميل الصور و الملفات	القرآن الكريـــم
تفسير القرآن الكريــم	المرجع الدينى الشامل	مكتبة البرامج	مكتبة الدروس

« آخـــر الــمــواضــيــع »
:: الإضاءة فى غرف النوم (آخر رد :كوكو مان) :: باصرك وشاهدك وسامعك ومطلع عليك و ....ولا يزال يسترك (آخر رد :د شكرى) :: كل نفس ذائقة الموت (آخر رد :د شكرى) :: اليكم تلك الضحكات (آخر رد :تبارك) :: أخذر!!! من اخطر ثلاثة اعضاء في جسدك!! (آخر رد :تبارك) :: !؟! هل سترافقني إلى قبري !؟! (آخر رد :تبارك) :: يا محمد سلام غير مطبخ حواء ........خليه لادم احسن (آخر رد :عصفورة الجنة) :: دقيقة فقط... لتنقذ روح (آخر رد :محمد سلاَّم) :: العزاء (آخر رد :عصفورة الجنة) :: والآخرة خير وأبقى صدق الله العظيم (آخر رد :عصفورة الجنة) :: يرسل لك كل يوم أو يومين حديث نبوي لبريدك الإلكتروني مع الشرح (آخر رد :عصفورة الجنة) :: ثلاث ضيوف يأتون بلا موعد مسبق (آخر رد :تبارك) :: تحية تقدير (آخر رد :محمد سلاَّم) :: الدرس الثالث "حاب تعلم ابنك الفرنسية !!" (آخر رد :chaima8) :: الدرس الثالث "حاب تعلم ابنك الفرنسية !!" (آخر رد :chaima8) :: شوفو القرد وهو يربي نمر (آخر رد :محمد سلاَّم) :: مترجم فوري (آخر رد :عصفورة الجنة) :: مسجد الكرستال روعة التصميم (آخر رد :تبارك) :: Tv quran (آخر رد :domokh) :: نصائح طبية وغذائية لتفادي متاعب الحمل الشائعة (آخر رد :عصفورة الجنة)

		:: مركز الخوارزمى للترجمة وخدمات الإنترنت ركن الكمبيوتر و الإنترنت قسم البرمجة وقواعد البيانات
داله لاستخراج امتداد الملف من مساره

قسم البرمجة وقواعد البيانات ASP.net SQL, ADO.net, C#, PHP , CGI , MySQL , JavaScript , Html , Delphi , Ajax ...

اجعل كافة الأقسام مقروءة

داله لاستخراج امتداد الملف من مساره

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

أدوات الموضوع

انواع عرض الموضوع

24-07-2006, 12:28 AM

رقم المشاركة : 1

معلومات العضو

عضو

نحن نتطلع الى التميز

إحصائية العضو

آخر مواضيعي

0 برامج هاك اوبن سورس
0 الدرس الثانى-ادوات التحكم
0 داله Draw Text الكاتب ReadOnly
0 كيف تعمل مكتبه Dll
0 كود لقفل الكيبورد

FemTo متواجد حالياً

داله لاستخراج امتداد الملف من مساره

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

كود

     Public Function ext(ByVal k As String) As String
Dim z As Byte
Dim q, x As String
For z = 1 To Len(k)
x = Right(k, 1)
If x = "." Then GoTo 10
q = x + q
w = Len(k) - 1
k = Left(k, w)
Next z
10:

ext = q

End Function

ومثال على استخدامها

كود

Text2.Text = ext(Text1.Text)

« مكتبه بها حوالى 1000 دالهapi مع الشرح | ابطال عمل مفاتيح Alt+ctrl+del »

مواقع النشر

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
شرح تغيير مسمى الكونفيج مع تغيير مساره بالصور	mito_alex	ركـــن تطوير منتديـــــvb3.6.0ــات	3	14-12-2007 12:50 PM
حين قاربت مشاركاتي الألف	حسناء	الركن الدينى	4	11-12-2007 05:24 AM
نبذه عن أسماك البياح	فيورى	ركن تربية أسماك الزينة و الأحياء المائيه الاخرى	6	07-10-2007 02:57 AM
داله Draw Text الكاتب ReadOnly	FemTo	قسم البرمجة وقواعد البيانات	1	25-07-2006 02:56 AM
حاله الصدر فى الطبقات العليا	mito_alex	المنتدى الإسلامى العام	0	09-02-2006 02:21 PM

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق
انواع عرض الموضوع
الانتقال إلى العرض العادي الانتقال إلى العرض المتطور العرض الشجري

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة لا تستطيع الرد على المواضيع لا تستطيع إرفاق ملفات لا تستطيع تعديل مشاركاتك الابتسامات متاحة كود [IMG] متاحة كود HTML معطلة