Tác giả: tungcan5diop
Mô tả: Chuyển chữ Tiếng Việt có dấu thành không dấu
đang làm cái máy in POS nên viết hàm này.các bạn xem thử
Mã: Chọn hết
- ''' <summary>
- ''' Hàm chuyển chữ Tiếng Việt có dấu sang không dấu
- ''' </summary>
- ''' <param name="mystr"> nhập chuỗi cần chuyển</param>
- ''' <returns></returns>
- ''' <remarks></remarks>
- Function chuyensangkhongdau(ByVal mystr As String) As String
- Dim myChar() As String = {"aàáảãạăằắẳẵặâầấẩẫậ", "AÀÁẢÃẠĂẰẮẲẴẶÂẦẤẨẪẬ", "ÒÒÓỎÕỌÔỒỐỔỖỘƠỜỚỞỠỢ", "EÈÉẺẼẸÊỀẾỂỄỆ", "UÙÚỦŨỤƯỪỨỬỮỰ", "IÌÍỈĨỊ", "YỲÝỶỸỴ", "Đ", "oòóỏõọôồốổỗộơờớởỡợ", "eèéẻẽẹêềếểễệ", "uùúủũụưừứửữự", "iìíỉĩị", "yỳýỷỹỵ", "đ"}
- Dim myChar1() As String = {"a", "A", "O", "E", "U", "I", "Y", "Đ", "o", "e", "u", "i", "y", "d"}
- Dim str As String = mystr
- Dim strReturn As String = ""
- For i As Int32 = 0 To str.Length - 1
- Dim iStr As String = str.Substring(i, 1)
- Dim rStr As String = iStr
-
- For j As Int32 = 0 To myChar.Length - 1
- If myChar(j).IndexOf(iStr) >= 0 Then
- rStr = myChar1(j)
- Exit For
- End If
- Next
- strReturn += rStr
- Next
- Return strReturn
- End Function