17-10-12, 08:20 PM
كاتب الموضوع : 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]
بالتوفيق