دالة Proper النصية

[أبو هادي]

السلام عليكم

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

Capitalizes the first letter in a text string and any other letters in text that follow any character other than a letter. Converts all other letters to lowercase letters.

أمثلة قبل المعالجة :

this is a TITLE

2-cent's worth

76BudGet

نتائج الأمثلة بعد المعالجة :

This Is A Title

2-Cent'S Worth

76Budget

Function Proper(Text As Variant) As Variant
  Dim K As Integer
  Dim NewText As String
  Dim Found As Boolean

  Proper = Text
  If VarType(Text) <> vbString Then Exit Function

  Found = True
  For K = 1 To Len(Text)
    Select Case Mid(Text, K, 1)
      Case "A" To "Z", "a" To "z"
        If Found Then
          NewText = NewText & UCase(Mid(Text, K, 1))
          Found = False
        Else
          NewText = NewText & LCase(Mid(Text, K, 1))
        End If
      Case Else
        NewText = NewText & Mid(Text, K, 1)
        Found = True
    End Select
  Next K

  Proper = NewText
End Function

تحياتي .

تم تعديل نوفمبر 8, 2004 بواسطه أبو هادي

[أمجد جمالي]

السلام عليكم

بارك الله فيك استاذ ابو هادي على هذا المجهود

تحياتي لك

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

أستاذنا أبو هادي بأعتبرها هدية العيد للمنتدى جزاك الله خيرا

أخيك سهل أحمد ( ابو نعيم )

[رضا عقيل]

جزاك الله خيراً أبو هادي

[حاكم]

سلمت الأيادي ... أبو هادي

يعطيك العافيه دائماً مبدع ..

[ashraf]

دائما الجديد تجده لدى أبو هادي . وعيد سعيد عليكم جميعا إن شاء الله

[أبو هادي]

السلام عليكم

أمجد جمالي

سهل احمد العريشي

رضا عقيل

أبو يعلى

ashraf

أعزائي .. أشكركم على مروركم الكريم ، تقبل الله طاعاتكم وكل عام وأنتم بخير

ملاحظة :

أنا أستخدم هذه الدالة لإصلاح أسماء الموظفين بالإنجليزي حيث يختلف المستخدمين وقليل منهم من يلتزم بالتعليمات فترى أحدهم يستخدم الحروف الصغيرة دون اعتبار للحرف الأول من كل إسم حيث يجب أن يكون كبيرا وآخر يدخل الأسماء بالحروف الكبيرة مما يجعلها تطول وتأخد مساحة أكبر طولا .

كما أن اختلاف الإدخالات تجعل شكل الأسماء غير مقبول فترى بعضها بحروف صغيرة والأخرى بحروف كبيرة ، ولكن عندما تكون كلها بنسق واحد تكون أجمل وأكثر قبولا .

تحياتي .

تم تعديل نوفمبر 10, 2004 بواسطه أبو هادي

[essam rabea]

اخى الكريم ابو هادى .. كل عام وانت بخير

رجوعا الى مشروع القران الكريم فقد حاولت اضافة خانة اختيار لنموذج البحث بحث تمكننى ان احصر مثلا الآيات التى تبدأ بحرف معين ولكنى فشلت .فهل اطمع ان تدلنى على طريقة فعل هذا بحيث نضيف لنموذج البحث ما يلى:

خانة اختيار بعنوان ( تبدأ بـ )

خانة اختيار بعنوان ( تتضمن )

خانة اختيار بعنوان ( تطابق )

ولك جزيل الشكر والاحترام .. واعتذر ان طرحت هذا الموضوع هنا وذلك بسبب اعتقادى ان المشروع الجماعى للقران الكريم تم هجرته من شهر اغسطس تقريبا