تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ -- معلومة -- ] تجريد الكلمة او الجملة من حركات التشكيل
#1
كاتب الموضوع : lo2i


السلام عليكم ورحمة الله وبركاته ..

هذا دالة بسيطة قمت بكتابتها لعمل تجريد للنص او للجملة من حركات التشكيل

الدالة تعتمد على إعدادات اللغة لديك

وسنقوم أولاً باستدعاء مجال الأسماء

كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][COLOR=#0000bb]Globalization  
[/COLOR][/COLOR]

الدالة :_

كود :
[color=#000000][COLOR=#0000bb]    [/color][color=#007700]Public Function [/color][color=#0000bb]txt_with_out_category[/color][color=#007700]([/color][color=#0000bb]ByVal txt [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700]) As [/color][COLOR=#0000bb]String
        Dim str [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][COLOR=#0000bb]txt
        Dim ss [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][COLOR=#0000bb]Nothing
        [/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]0 To str[/color][color=#007700].[/color][color=#0000bb]Length [/color][color=#007700]- [/color][COLOR=#0000bb]1
            [/COLOR][color=#007700]If [/color][color=#0000bb]Char[/color][color=#007700].[/color][color=#0000bb]GetUnicodeCategory[/color][color=#007700]([/color][color=#0000bb]str[/color][color=#007700].[/color][color=#0000bb]Chars[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700])) = [/color][color=#0000bb]UnicodeCategory[/color][color=#007700].[/color][color=#0000bb]OtherLetter [/color][color=#007700]Or [/color][COLOR=#0000bb]_
            Char[/COLOR][color=#007700].[/color][color=#0000bb]GetUnicodeCategory[/color][color=#007700]([/color][color=#0000bb]str[/color][color=#007700].[/color][color=#0000bb]Chars[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700])) = [/color][color=#0000bb]UnicodeCategory[/color][color=#007700].[/color][COLOR=#0000bb]SpaceSeparator Then
                ss [/COLOR][color=#007700]+= [/color][color=#0000bb]str[/color][color=#007700].[/color][color=#0000bb]Chars[/color][color=#007700]([/color][color=#0000bb]i[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
        [/COLOR][COLOR=#0000bb]Next
        [/COLOR][color=#007700]Return [/color][COLOR=#0000bb]ss
    End [/COLOR][COLOR=#007700]Function  
[/COLOR][color=#0000bb][/color][/COLOR]


وطريقة استدعائها ...


كالتالي

كود :
[color=#000000][COLOR=#0000bb]        MsgBox[/color][color=#007700]([/color][color=#0000bb]txt_with_out_category[/color][color=#007700]([/color][color=#dd0000]"مُحَمّدَ صَلَىَ اللهُ عَليهِ وَسَلَم"[/color][COLOR=#007700]))  
[/COLOR][color=#0000bb][/color][/COLOR]



بالتوفيق
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة :: الحصول على الـForms الموجودة في المشروع في هيئة System.Windows.Forms.Form Aly El-Haddad 2 981 12-11-12, 02:22 PM
آخر رد: samielkholy
  معلومة- لطباعة محتويات ملف بمنتها السهولة RaggiTech 0 324 17-10-12, 08:31 PM
آخر رد: RaggiTech
  معلومة ال favicon RaggiTech 0 207 17-10-12, 07:22 PM
آخر رد: RaggiTech
  لعمل نسخة من Class دون استعمال الكلمة new RaggiTech 0 294 17-10-12, 06:14 PM
آخر رد: RaggiTech
  معلومة ::: How to Trigger Button Click Event ::: RaggiTech 0 343 17-10-12, 05:49 PM
آخر رد: RaggiTech
  معلومة ::: How to change the color of the regions ::: RaggiTech 0 226 17-10-12, 05:47 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم