منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [ -- معلومة -- ] تجريد الكلمة او الجملة من حركات التشكيل

كاتب الموضوع : 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]

بالتوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech