تقييم الموضوع :
  • 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]



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



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


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