تقييم الموضوع :
  • 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 1,043 12-11-12, 02:22 PM
آخر رد: samielkholy
  معلومة- لطباعة محتويات ملف بمنتها السهولة RaggiTech 0 355 17-10-12, 08:31 PM
آخر رد: RaggiTech
  معلومة ال favicon RaggiTech 0 238 17-10-12, 07:22 PM
آخر رد: RaggiTech
  لعمل نسخة من Class دون استعمال الكلمة new RaggiTech 0 330 17-10-12, 06:14 PM
آخر رد: RaggiTech
  معلومة ::: How to Trigger Button Click Event ::: RaggiTech 0 369 17-10-12, 05:49 PM
آخر رد: RaggiTech
  معلومة ::: How to change the color of the regions ::: RaggiTech 0 254 17-10-12, 05:47 PM
آخر رد: RaggiTech

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


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