بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم اخوانى الكرام من جديد الجديد
يوجد دالة اسمها LOWER ودى بتخلى كل الاحرف صغيره
ويوجد داله اسمها UPPER ودى بتخلى كل الاحرف كبيره
ويوجد داله اسمها PROPER ودى بقى بتخلى اول حرف من كل كلمة كبير
وجاء السؤال هنا ايها المواطنون جاء من بلاد بعيدة جدا
رايته من بعيد فى احدى جروبات الفيس بوك الاجنبيه
ايوه زى ما بقولكم كدا بالضبط
كان يقول السائل انه يريد جعل اول حرف من كل جمله كبير
يعنى بعد وضع نقطه جمله معينه تبدا جمله جديده سواء بقى اول السطر او بعده
لذلك ولذاك ولهذا تم انشاء الداله UParagraph
والتى تم انشائها من اجود انواع الاكواد من قبل الشركه العالميه المشهوره المســماه
أكـــــــــــــــاديمية الصــقر
تستخدم الدالة كما الـ 3 دوال المذكوره اعلاه
يعنى اكتب الداله دخل النص وبس كدا من الاخر
اليكم صوره كمثال ياصدقاء
اسلام: حلوه الصوره صح
[b]الاعضاء: جميله يابرنس
اسلام: تسلموا ياغاليين تشكرات تشكرات
الكود بقى احلى
وهو كالتالى
CODE
Function UParagraph(text As String) As String
'Developer: Eslam Abdullah
Dim regEx As Object, i%, num%
Set regEx = CreateObject("VBScript.RegExp")
With regEx
.Pattern = "^[a-z]|\.\s+[a-z]": .Global = True
num = .Execute(text).Count: .Global = False
For i = 1 To num
text = .Replace(text, UCase(.Execute(text)(0))): Next
End With
UParagraph = text
End Function
بس كدا قضى الامر الذى فيه تستفيان
اوعى حد يشيل اسمى من الكود دا ختم الجوده خد بالك
اذا قد وصلنا معكم لنهاية المطاف
واحب انا اقول لكم الى لقاء قريب ان شاء الله
كان معكم اخوكم فى الله اســـــلام عبدالله
دمتم فى حفظ الله ورعايته
الدالة المعرفة UParagraph
