01-08-24, 10:34 AM
السلام عليكم
ولتعم الفائدة توجد دالة انا أستخدمها في عملي وهي:
يتم استدعائها بهذا الشكل
ولتعم الفائدة توجد دالة انا أستخدمها في عملي وهي:
PHP كود :
Private Function RemoveDiacritics(input As String) As String
' تطبيع النص ليفصل الأحرف عن علامات التشكيل الخاصة بها
Dim normalizedString As String = input.Normalize(NormalizationForm.FormD)
Dim stringBuilder As New StringBuilder()
' تكرار كل حرف في النص المطبع
For Each c As Char In normalizedString
' التحقق مما إذا كانت فئة اليونيكود للحرف ليست من فئة NonSpacingMark (أي ليست علامة تشكيل)
If CharUnicodeInfo.GetUnicodeCategory(c) <> UnicodeCategory.NonSpacingMark Then
' إضافة الحرف إلى السلسلة الجديدة إذا لم يكن علامة تشكيل
stringBuilder.Append(c)
End If
Next
' إرجاع السلسلة الجديدة بدون علامات التشكيل
Return stringBuilder.ToString()
End Function
يتم استدعائها بهذا الشكل
PHP كود :
TextBox_Out.Text = RemoveDiacritics(TextBox_Input.Text)

