Coding là một công việc khá thú vị ngay cả với những người mới. Còn gì tuyệt vời hơn khi bạn tự tay lập trình một chương trình theo ý muốn của mình! Beeseo xin chia sẻ với các bạn mã nguồn (VB Net) của Function chuyển chữ có dấu thành không dấu.

Mã nguồn chương trình VB Net chuyển chữ có dấu thành không dấu

Public Function RemoveUnicode(ByVal s As String) As String
Dim stFormD As String = s.Normalize(System.Text.NormalizationForm.FormD)
Dim sb As New System.Text.StringBuilder
Dim str As String = “” ‘ Khai báo thêm cái này
For ich As Integer = 0 To stFormD.Length – 1
Dim uc As UnicodeCategory = CharUnicodeInfo.GetUnicodeCategory(stFormD(ich))
If uc = UnicodeCategory.NonSpacingMark = False Then
‘Sửa lại đoạn này 1 tý
If stFormD(ich) = “đ” Then
str = “d”
ElseIf stFormD(ich) = “Đ” Then
str = “D”
Else
str = stFormD(ich)
End If
sb.Append(str)
End If
Next
Return (sb.ToString().Normalize(System.Text.NormalizationForm.FormD))
End Function

Dùng VB Net để lập trình khá thú vị, bạn có thể tự tạo một chương trình đơn giản theo ý muốn mà không cần phải quá chuyên sâu về Code, vì Code VB Net khá dễ hiểu. Nhất là đối với những ai đã có nền tảng VB 6.0, bởi VB Net là đời sau của VB 6.0, mang theo “linh hồn” của VB 6.0, kế thừa và phát triển những gì của VB 6.0.

Một cách khác để chuyển chữ có dấu thành không dấu

Đó là sử dụng ngay công cụ của Unikey

Copy đoạn văn bản cần chuyển dấu (Ctrl + C để lưu vào Clipboard)

Bấm Ctrl + Shift + F6:

Hiện chương trình như sau:

Tích vào ô “Loại bỏ dấu” -> Chuyển mã, tìm nơi để Ctrl + V là ra chữ không dấu rồi.

Về hàm thì ta có hàm Bỏ dấu (RemoveUnicode) ở trên, bạn có thể tự sáng tạo ra chương trình của mình theo hướng tiện lợi nhất. Đây là một chương trình tự viết bằng VB 2010: