Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Hàm chuyển từ có dấu sang không dấu trong Tiếng Việt
#1
Đã có khi nào, bạn cần chuyển một đoạn văn bản Tiếng Việt từ có dấu sang không dấu chưa? Ví dụ đoạn văn bản sau :
"Chào mừng Thủ Thuật Access. Chúc các thành viên năm mới có nhiều điều mới và luôn gắn bó với Thủ Thuật Access"
chuyển thành :
"Chao mung Thu Thuat Access. Chuc cac thanh vien nam moi co nhieu dieu moi va luon gan bó voi Thu Thuat Access"

Tôi xin giới thiệu với các bạn hàm ConvertToNotSign sau đây sẽ giúp làm việc đó

Mã PHP:
Function ConvertToNotSign(ByVal sContent As String) As String
     Dim i 
As Long
     Dim intCode 
As Long
     Dim sChar 
As String
     Dim sConvert 
As String
     ConvertToNotSign 
AscW(sContent)   
     For 
1 To Len(sContent)
        
sChar Mid(sContenti1)
        If 
sChar <> "" Then
            intCode 
AscW(sChar)
        
End If
        
Select Case intCode
            
Case 273
                sConvert 
sConvert "d"
            
Case 272
                sConvert 
sConvert "D"
            
Case 224225226227259784178437845784778497851785378557857785978617863
                sConvert 
sConvert "a"
            
Case 192193194195258784078427844784678487850785278547856785878607862
                sConvert 
sConvert "A"
            
Case 23223323478657867786978717873787578777879
                sConvert 
sConvert "e"
            
Case 20020120278647866786878707872787478767878
                sConvert 
sConvert "E"
            
Case 23623729778817883
                sConvert 
sConvert "i"
            
Case 20420529678807882
                sConvert 
sConvert "I"
            
Case 242243244245417788578877889789178937895789778997901790379057907
                sConvert 
sConvert "o"
            
Case 210211212213416788478867888789078927894789678987900790279047906
                sConvert 
sConvert "O"
            
Case 2492503614327909791179137915791779197921
                sConvert 
sConvert "u"
            
Case 2172183604317908791079127914791679187920
                sConvert 
sConvert "U"
            
Case 2537923792579277929
                sConvert 
sConvert "y"
            
Case 2217922792479267928
                sConvert 
sConvert "Y"
            
Case Else
                
sConvert sConvert sChar
        End Select
     Next
     ConvertToNotSign 
sConvert
  End 
Function 

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu , MatTroiNguQuen , maidinhdan , bvchauthanh
#2
Thanks bác phát! 014

Hàm này rất hữu ích cho việc tạo mã (mã học sinh , mã khách hàng...) và tìm kiếm (giống như Google vậy) 015
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Xuân Thanh
#3
Sẽ có rất nhiều ứng dụng cần đến nó đấy. Tùy vào việc người sử dụng dùng vào mục đích gì. chính vì thế tôi mới chia sẻ hàm này
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , vulhu06
#4
(15-01-14, 05:21 PM)Xuân Thanh Đã viết: Sẽ có rất nhiều ứng dụng cần đến nó đấy. Tùy vào việc người sử dụng dùng vào mục đích gì. chính vì thế tôi mới chia sẻ hàm này
Thân mến

Cám ơn Xuân Thanh, em chưa hình dung hàm này nó làm việc ra sao và áp dụng vào bài toán của em ra sao nhưng em sẽ cố gắng tìm hiểu
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 290 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  Hướng Dẫn Một số hàm D trong Access Xuân Thanh 12 6,620 22-01-16, 01:55 PM
Bài mới nhất: khanghychu
  Hướng Dẫn Một số hàm C... trong Access Xuân Thanh 2 1,324 21-01-16, 11:06 AM
Bài mới nhất: khanghychu
  [Hàm] Hàm tách lấy số trong một chuỗi cho trước Xuân Thanh 11 2,124 13-10-15, 10:08 AM
Bài mới nhất: tranthanhan1962
  [Hàm] Hàm buộc trường Email phải có @, không có ký tự đặc biệt maidinhdan 1 540 07-03-15, 03:32 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ