Luyện tập Code VBA: Lọc ký tự trùng nhau trong chuỗi ! (1 người xem)

  • Thread starter Thread starter HeSanbi
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
HeSanbi

HeSanbi

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨
Tham gia
24/2/13
Bài viết
2,786
Được thích
4,466
Giới tính
Nam
Bài viết này dành cho các bạn đang học hoặc đam mê hoặc đang phát triển ứng Excel với VBA.
Nhằm luyện tập, học hỏi và phát triển thêm kỹ năng viết Code VBA với những bài tập đơn giản.

"Lọc ký tự trùng nhau trong chuỗi".
--------------------------------
Bài tập: Viết một hàm lọc chuỗi bất kỳ loại bỏ các ký tự trùng nhau trả về kết quả là một chuỗi chứa các ký tự duy nhất, phân biệt ký tự hoa thường và không phân biệt ký tự hoa thường. Và hãy tối ưu hàm một cách tốt nhất có thể.

Ví dụ:
1. "abcde" => "abcde"​
2. "tương tư có tương tự suy tư" => ""tương cóựsuy"​
3. "Bài hát: Thanh Xuân Của Tôi (Viral Clip) Ca sĩ: Đan Trường Nhạc Hoa, Lời Việt: Tăng Nhật Tuệ Camera: Kuke Hà - Ngọc Kim Lời bài hát: Cùng nhau ngắm mưa Đoạn đường đón đưa Cười cười nói nói vui như thế Thanh xuân lấp lánh như bụi mưa Cùng nhau đếm sao Một thời huyên náo Giật mình nhìn thời gian đã xoá Thanh xuân như chút gió ngọt ngào Ta đã gặp nhau để nói thương nhau Giữ cho nhau ký ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Tự do hát ca Bụi đường quê nhà Nghiêng nghiêng cánh chim bay trong gió Mưa bay lấp lánh những ngày xanh Thành đô nắng hoa Lòng người băng giá Nhiều lần giật mình trong nước mắt Thanh xuân hôm qua đã nhạt nhoà Ta đã gặp nhau để nói thương nhau Giữ cho nhau kí ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Thương vẫn thương vậy thôi Vì em đó thanh xuân của tôi."​
=> "Bài hát:TanXuâCủô(Vrlp)sĩĐườgNạcHo,LệăậmeKk-ọbùắđóvếxấụMộyêGìãúặểơữýứớầéũẳốDẫổdừqựòềí."​
=> "Bài hát:anXuâCủô(Vrlp)sĩĐườgạo,ệăậmeK-ọùắóếấụộyêìãúặểơữýứớầéũẳốDẫổừqựòềí." (Không phân biệt hoa thường)​

Yêu cầu:
1. Cú pháp phải tối ưu.
2. Bài giải có thể nhiều hàm Sử dụng hàm thuần VBA hoặc thư viện Regular Expressions hoặc một thư viện nào có thể
3. Ưu tiên tốc độ xử lý.

(có hoặc không có giải thích về thuật toán hoặc giải thuật đã sử dụng)


Ứng dụng của hàm: Nhận biết và đếm số ký tự đã sử dụng trong một bài thơ, bài viết, ...
--------------------------------
Mời các bạn tham gia!
 
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Có phần thưởng hông?
"Lọc ký tự trùng nhau trong chuỗi"
mà câu này "tương tư có tương tự suy tư" ==>cóựsuy
Ví dụ 3:"X()ĩ,-ộúýựòềí"
 
Upvote 0
HeSanbi đã viết:
Bài viết này dành cho các bạn đang học hoặc đam mê hoặc đang phát triển ứng Excel với VBA.
Nhằm luyện tập, học hỏi và phát triển thêm kỹ năng viết Code VBA với những bài tập đơn giản.

"Lọc ký tự trùng nhau trong chuỗi".
--------------------------------
Bài tập: Viết một hàm lọc chuỗi bất kỳ loại bỏ các ký tự trùng nhau trả về kết quả là một chuỗi chứa các ký tự duy nhất, phân biệt ký tự hoa thường và không phân biệt ký tự hoa thường. Và hãy tối ưu hàm một cách tốt nhất có thể.

Ví dụ:
1. "abcde" => "abcde"​
2. "tương tư có tương tự suy tư" => ""tương cóựsuy"​
3. "Bài hát: Thanh Xuân Của Tôi (Viral Clip) Ca sĩ: Đan Trường Nhạc Hoa, Lời Việt: Tăng Nhật Tuệ Camera: Kuke Hà - Ngọc Kim Lời bài hát: Cùng nhau ngắm mưa Đoạn đường đón đưa Cười cười nói nói vui như thế Thanh xuân lấp lánh như bụi mưa Cùng nhau đếm sao Một thời huyên náo Giật mình nhìn thời gian đã xoá Thanh xuân như chút gió ngọt ngào Ta đã gặp nhau để nói thương nhau Giữ cho nhau ký ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Tự do hát ca Bụi đường quê nhà Nghiêng nghiêng cánh chim bay trong gió Mưa bay lấp lánh những ngày xanh Thành đô nắng hoa Lòng người băng giá Nhiều lần giật mình trong nước mắt Thanh xuân hôm qua đã nhạt nhoà Ta đã gặp nhau để nói thương nhau Giữ cho nhau kí ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Thương vẫn thương vậy thôi Vì em đó thanh xuân của tôi."​
=> "Bài hát:TanXuâCủô(Vrlp)sĩĐườgNạcHo,LệăậmeKk-ọbùắđóvếxấụMộyêGìãúặểơữýứớầéũẳốDẫổdừqựòềí."​
=> "Bài hát:anXuâCủô(Vrlp)sĩĐườgạo,ệăậmeK-ọùắóếấụộyêìãúặểơữýứớầéũẳốDẫổừqựòềí." (Không phân biệt hoa thường)​

Yêu cầu:
1. Cú pháp phải tối ưu.
2. Bài giải có thể nhiều hàm Sử dụng hàm thuần VBA hoặc thư viện Regular Expressions hoặc một thư viện nào có thể
3. Ưu tiên tốc độ xử lý.

(có hoặc không có giải thích về thuật toán hoặc giải thuật đã sử dụng)

--------------------------------
Mời các bạn tham gia!
Nhấp chuột vào đây để mở rộng...
Bài này tôi làm khá lâu rồi, thậm chí vừa lọc duy nhất vừa sort luôn
Để xem bạn và mọi người làm thế nào, tôi cũng muốn học hỏi thêm
 
Upvote 0
Mình thử nộp bài:
Mã: 
Function Vidu1$(ByVal Str$, Optional ByVal sens As VbCompareMethod = vbTextCompare)
    Dim kq$, s$, i&, n&
    n = Len(Str)
    If n < 2 Then
        Vidu1 = Str
        Exit Function
    End If
    kq = Left(Str, 1)
    For i = 2 To n
        s = Mid(Str, i, 1)
        If InStrRev(kq, s, , sens) = 0 Then kq = kq & s
    Next
    Vidu1 = kq
End Function
Function Vidu2$(ByVal Str$, Optional ByVal sens As VbCompareMethod = vbTextCompare)
    Static dic As Dictionary
    Dim i&, n&
    If dic Is Nothing Then
        Set dic = New Dictionary
    End If
    dic.CompareMode = sens
    n = Len(Str)
    If n = 0 Then
        Vidu2 = ""
        Exit Function
    End If
    For i = 1 To n
        dic.Item(Mid(Str, i, 1)) = vbNull
    Next
    Vidu2 = Join(dic.Keys, "")
    dic.RemoveAll
End Function
Function Vidu3$(Str$, Optional ByVal sens As VbCompareMethod = vbTextCompare)
    Dim s As String
    Do While Len(Str) > 0
        s = Left(Str, 1)
        Vidu3 = Vidu3 & s
        Str = Join(Split(Str, s, , sens), "")
    Loop
End Function
 

File đính kèm

Upvote 0
Hau151978 đã viết:
Mình thử nộp bài:
Mã: 
Function Vidu1$(ByVal Str$, Optional ByVal sens As VbCompareMethod = vbTextCompare)
    Dim kq$, s$, i&, n&
    n = Len(Str)
    If n < 2 Then
        Vidu1 = Str
        Exit Function
    End If
    kq = Left(Str, 1)
    For i = 2 To n
        s = Mid(Str, i, 1)
        If InStrRev(kq, s, , sens) = 0 Then kq = kq & s
    Next
    Vidu1 = kq
End Function
Function Vidu2$(ByVal Str$, Optional ByVal sens As VbCompareMethod = vbTextCompare)
    Static dic As Dictionary
    Dim i&, n&
    If dic Is Nothing Then
        Set dic = New Dictionary
    End If
    dic.CompareMode = sens
    n = Len(Str)
    If n = 0 Then
        Vidu2 = ""
        Exit Function
    End If
    For i = 1 To n
        dic.Item(Mid(Str, i, 1)) = vbNull
    Next
    Vidu2 = Join(dic.Keys, "")
    dic.RemoveAll
End Function
Function Vidu3$(Str$, Optional ByVal sens As VbCompareMethod = vbTextCompare)
    Dim s As String
    Do While Len(Str) > 0
        s = Left(Str, 1)
        Vidu3 = Vidu3 & s
        Str = Join(Split(Str, s, , sens), "")
    Loop
End Function
Nhấp chuột vào đây để mở rộng...
Rất cảm ơn bạn đã tham gia.
 
Lần chỉnh sửa cuối:
Upvote 0
HeSanbi đã viết:
Bài viết này dành cho các bạn đang học hoặc đam mê hoặc đang phát triển ứng Excel với VBA.
Nhằm luyện tập, học hỏi và phát triển thêm kỹ năng viết Code VBA với những bài tập đơn giản.

"Lọc ký tự trùng nhau trong chuỗi".
--------------------------------
Bài tập: Viết một hàm lọc chuỗi bất kỳ loại bỏ các ký tự trùng nhau trả về kết quả là một chuỗi chứa các ký tự duy nhất, phân biệt ký tự hoa thường và không phân biệt ký tự hoa thường. Và hãy tối ưu hàm một cách tốt nhất có thể.

Ví dụ:
1. "abcde" => "abcde"​
2. "tương tư có tương tự suy tư" => ""tương cóựsuy"​
3. "Bài hát: Thanh Xuân Của Tôi (Viral Clip) Ca sĩ: Đan Trường Nhạc Hoa, Lời Việt: Tăng Nhật Tuệ Camera: Kuke Hà - Ngọc Kim Lời bài hát: Cùng nhau ngắm mưa Đoạn đường đón đưa Cười cười nói nói vui như thế Thanh xuân lấp lánh như bụi mưa Cùng nhau đếm sao Một thời huyên náo Giật mình nhìn thời gian đã xoá Thanh xuân như chút gió ngọt ngào Ta đã gặp nhau để nói thương nhau Giữ cho nhau ký ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Tự do hát ca Bụi đường quê nhà Nghiêng nghiêng cánh chim bay trong gió Mưa bay lấp lánh những ngày xanh Thành đô nắng hoa Lòng người băng giá Nhiều lần giật mình trong nước mắt Thanh xuân hôm qua đã nhạt nhoà Ta đã gặp nhau để nói thương nhau Giữ cho nhau kí ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Thương vẫn thương vậy thôi Vì em đó thanh xuân của tôi."​
=> "Bài hát:TanXuâCủô(Vrlp)sĩĐườgNạcHo,LệăậmeKk-ọbùắđóvếxấụMộyêGìãúặểơữýứớầéũẳốDẫổdừqựòềí."​
=> "Bài hát:anXuâCủô(Vrlp)sĩĐườgạo,ệăậmeK-ọùắóếấụộyêìãúặểơữýứớầéũẳốDẫổừqựòềí." (Không phân biệt hoa thường)​

Yêu cầu:
1. Cú pháp phải tối ưu.
2. Bài giải có thể nhiều hàm Sử dụng hàm thuần VBA hoặc thư viện Regular Expressions hoặc một thư viện nào có thể
3. Ưu tiên tốc độ xử lý.

(có hoặc không có giải thích về thuật toán hoặc giải thuật đã sử dụng)

--------------------------------
Mời các bạn tham gia!
Nhấp chuột vào đây để mở rộng...
Cũng tham gia cho vui
- Không phân biệt tốc độ có thể dùng regex như vậy:
Mã: 
Sub a()
Dim str As String
str = [a1]
With CreateObject("vbscript.regexp")
    .ignorecase = True 'Không phân bi?t hoa thu?ng
    .Pattern = "((.).*)\2"
    Do While .test(str)
        str = .Replace(str, "$1")
    Loop
    MsgBox str
End With
End Sub
- Xét chuỗi bình thường dùng replace
Mã: 
Sub b()
Dim str As String, i As Long
str = [a1]
For i = 1 To Len(str)
    str = Mid(str, 1, i) & Replace(Mid(str, i + 1, Len(str)), Mid(str, i, 1), "", , , 1) 'Không phân bi?t hoa thu?ng
Next
MsgBox str
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
excel_lv1.5 rất cảm ơn bạn đã tham gia

------------------------
Bài viết có yêu cầu cú pháp tuy nhiên khi nhìn qua code của hai bạn thì tôi nhận thấy khi viết hàm VBA thì các bạn lại bỏ qua lớp của Hàm, Hằng:
Ví dụ:
Left <= VBA.Left
Mid <= VBA.Mid
(Có hai dạng Mid tồn tại trong VBA, Mid nằm trước dấu bằng (=) là một phương thức và VBA.Mid là một hàm)
VbNullstring <= VBA.Constans.VbNullstring
Join <= VBA.Join
Dictionary <= Scripting.Dictionary
(Tất cả các code nên hoặc là luôn luôn phải đưa về Late Binding khi đến người dùng cuối - CreateObject("Scripting.Dictionary") )
....
Giải thích điểm này: Nếu các bạn đã viết thêm một hàm mới tương đương trả về kết quả tương đương thì viết là "Left" thì không sao.

Trường hợp gặp phải, VBA6 không có hàm Split:
#If VBA6 Then
Function Split()

End Function
#End If

Nếu bạn vô tình viết một hàm Left mới: nhưng kết quả trả về khác hàm Left VBA, nhưng trong toàn bộ dự án đều viết "Left" mà không phải "VBA.Left" thì sẽ lỗi.

------------------------


Tôi xin đưa ra giải thuật của mình để các bạn tham khảo


1. Sử dụng hàm căn bản trong VBA:
Giải thuật: Nhận ký tự đầu tiên, và thay thế ký tự đó trong chuỗi thành rỗng, cho đến khi chuỗi rỗng.​
Lúc này số vòng lặp sẽ tương đương với độ dài chuỗi kết quả.​
Hàm sử dụng:​
+ Hàm VBA Len: Để đếm độ dài chuỗi​
+ Hàm VBA Left: Để nhận ký tự đầu​
+ Hàm VBA Replace: Để xóa ký tự​
​
Giải thuật này bạn Hau151978 cũng đã sử dụng ở ví dụ 3, bạn ấy đã sử dụng Split để xóa ký tự và Join để nối chuỗi lại. Tuy nhiên thiếu "Byval" ở chuỗi đầu vào sẽ khó kiểm soát chuỗi khi ứng dụng thực tế.​

PHP: 
Private Sub test_CharDuplicates()
  Dim I&, S$, T#
  On Error Resume Next
  For I = 0 To 65535
    If I <> 10 And I <> 13 Then S = S & VBA.ChrW$(I)
    DoEvents
  Next I
  Debug.Print VBA.Len(S)
  On Error GoTo 0
  T = Timer
  For I = 1 To 1
    Call CharDuplicates(S)
    DoEvents
  Next I
  Debug.Print Round(Timer - T, 5)
  T = Timer
  For I = 1 To 1
    'Call CharDuplicatesRE(S)'
    DoEvents
  Next I
  Debug.Print Round(Timer - T, 5)
End Sub
'Cách 1:'
Function CharDuplicates(ByVal Text As String, _
               Optional ByVal Compare As VBA.VbCompareMethod =  VBA.VbCompareMethod.vbBinaryCompare) As String
  Dim K As Long, s As String
  Do Until VBA.Len(Text) <= K
    s = VBA.Left$(Text, 1) 'VBA.Right$(Text, 1)'
    Text = VBA.Replace$(Text, s, VBA.Constants.vbNullString, , , Compare) & s 'Right => Text = s & ...'
    K = K + 1
  Loop
  CharDuplicates = Text
End Function
'Cách 2:
'Function CharDuplicates(ByVal Text As String, _
'               Optional ByVal Compare As VBA.VbCompareMethod = VBA.VbCompareMethod.vbBinaryCompare) As String
'  Dim T As String, S As String
'  Do While Text <> VBA.Constants.vbNullString
'    S = VBA.Left$(Text, 1) 'VBA.Right$(Text, 1)'
'    Text = VBA.Replace$(Text, S, VBA.Constants.vbNullString, , , Compare)
'    T = T & S 'Right => T = S & T'
'  Loop
'  CharDuplicates = T
'End Function
Function CharDuplicatesSort(ByVal Text As String, _
                Optional ByVal Compare As VBA.VbCompareMethod = VBA.VbCompareMethod.vbBinaryCompare) As String
  Dim S As String, P$(), K As Long
  ReDim P$(65535)
  Do While Text <> VBA.Constants.vbNullString
    S = VBA.Left$(Text, 1)
    Text = VBA.Replace$(Text, S, VBA.Constants.vbNullString, , , Compare)
    K = VBA.AscW(S)
    If K >= 0 Then
      P(K) = S
    Else
      ReDim Preserve P$(UBound(P) + 1)
      P(UBound(P)) = S
    End If
    DoEvents
  Loop
  CharDuplicatesSort = VBA.Join(P, "")
End Function
------------------------


2. Sử dụng thư viện Regular Expressions:
Giải thuật: sử dụng cú pháp "(?=.*\1)" - Có nhưng không lấy bất cứ ký tự nào kết hợp với Nhóm 1.​
Ví dụ:​
Pattern là "(a)(?=.*\1)"​
Thì ("a") chính là nhóm một, \1 là cú pháp đại diện cho nhóm 1​
Tương ứng: Pattern là "(a)(b)(?=.*\1\2)"​
PHP: 
Function CharDuplicatesRE(ByVal Text As String, _
                 Optional ByVal IgnoreCase As Boolean = False, _
                 Optional ByVal Terminate As Boolean = False) As String
  Static RE As Object
  If RE Is Nothing Then
    Set RE = CreateObject("VBScript.RegExp")
  Else
    If Terminate Then Set RE = Nothing: Exit Function
  End If
  With RE
    .Global = True: .IgnoreCase = IgnoreCase: .MultiLine = True
    .Pattern = "(.)(?=.*\1)"
    CharDuplicatesRE = .Replace(Text, "")
  End With
End Function
---------------------------



Gợi ý thêm hàm Sắp xếp chuỗi:
---------------------------
PHP: 
Public Function CharsSort(ByVal Text As String, _
                 Optional ByVal iDesc As Boolean = False, _
                 Optional ByVal Compare As  VbCompareMethod = vbCompareText) As String
  Dim i As Long, J As Long, L As Long, T1 As String, T2 As String, B As Variant
  L = VBA.Len(Text): If L < 2 Then GoTo Ends
  For i = 1 To L - 1: For J = i + 1 To L
    T1 = VBA.Mid$(Text, i, 1): T2 = VBA.Mid$(Text, J, 1)
    B = VBA.StrComp(T1,T2, Compare)
    If (Not iDesc And B = 1) Or (iDesc And B = -1) Then
      Mid(Text, J, 1) = T1: Mid(Text, i, 1) = T2
    End If
  Next J, i
Ends: CharsSort = Text
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
Thực ra bài không khó. Cứ làm theo cách cần cù là sẽ ra kết quả. Vậy vấn đề nằm ở chỗ tốc độ. Thử sức với code tốc độ cao nhất có thể thôi.

Tôi hiểu là chủ thớt sẽ có trách nhiệm test tất cả các code và công bố kết quả cho "đám hiếu kỳ" biết. Tôi hiểu đúng?

Tôi thấy có lẽ các "các bạn đang học" sẽ ít tham gia. Ít ra là tới thời điểm bây giờ.

Nên test trên tập tin khủng một chút, vd. như tập tin tôi đính kèm, cỡ vài MB.
 

File đính kèm

Upvote 0
Hehe de chúc em ngồi máy tính đưa file lên test tốc độ thử. Chủ topic cho vi dụ nào dài dài xíu
 
Upvote 0
Mạnh học được nhiều thứ còn cái món mì tôm cua này mấy lần quậy mà cứ tịt vậy đặt gạch lót dép ngồi nghe các sư phụ đàm đạo
 
Upvote 0
batman1 đã viết:
Thực ra bài không khó. Cứ làm theo cách cần cù là sẽ ra kết quả. Vậy vấn đề nằm ở chỗ tốc độ. Thử sức với code tốc độ cao nhất có thể thôi.

Tôi hiểu là chủ thớt sẽ có trách nhiệm test tất cả các code và công bố kết quả cho "đám hiếu kỳ" biết. Tôi hiểu đúng?

Tôi thấy có lẽ các "các bạn đang học" sẽ ít tham gia. Ít ra là tới thời điểm bây giờ.

Nên test trên tập tin khủng một chút, vd. như tập tin tôi đính kèm, cỡ vài MB.
Nhấp chuột vào đây để mở rộng...
Load cái file của anh là muốn hết giờ rồi còn thi thố gì nữa

kieu manh đã viết:
Mạnh học được nhiều thứ còn cái món mì tôm cua này mấy lần quậy mà cứ tịt vậy đặt gạch lót dép ngồi nghe các sư phụ đàm đạo
Nhấp chuột vào đây để mở rộng...
Cái này nó cũng cần trong Delphi của anh đó, do anh chưa đụng tới thôi hàm Replace trong Delphi mà Text lớn rất là chậm hehehehe. Có một số hàm phải viết lại mà dùng
 
Upvote 0
HeSanbi đã viết:
excel_lv1.5 rất cảm ơn bạn đã tham gia

------------------------
Bài viết có yêu cầu cú pháp tuy nhiên khi nhìn qua code của hai bạn thì tôi nhận thấy khi viết hàm VBA thì các bạn lại bỏ qua lớp của Hàm, Hằng:
Ví dụ:
Left <= VBA.Left
Mid <= VBA.Mid
(Có hai dạng Mid tồn tại trong VBA, Mid nằm trước dấu bằng (=) là một phương thức và VBA.Mid là một hàm)
VbNullstring <= VBA.Constans.VbNullstring
Join <= VBA.Join
Dictionary <= Scripting.Dictionary
(Tất cả các code nên hoặc là luôn luôn phải đưa về Late Binding khi đến người dùng cuối - CreateObject("Scripting.Dictionary") )
....
Giải thích điểm này: Nếu các bạn đã viết thêm một hàm mới tương đương trả về kết quả tương đương thì viết là "Left" thì không sao.

Trường hợp gặp phải, VBA6 không có hàm Split:
#If VBA6 Then
Function Split()

End Function
#End If

Nếu bạn vô tình viết một hàm Left mới: nhưng kết quả trả về khác hàm Left VBA, nhưng trong toàn bộ dự án đều viết "Left" mà không phải "VBA.Left" thì sẽ lỗi.

------------------------


Tôi xin đưa ra giải thuật của mình để các bạn tham khảo


1. Sử dụng hàm căn bản trong VBA:
Giải thuật: Nhận ký tự đầu tiên, và thay thế ký tự đó trong chuỗi thành rỗng, cho đến khi chuỗi rỗng.​
Lúc này số vòng lặp sẽ tương đương với độ dài chuỗi kết quả.​
Hàm sử dụng:​
+ Hàm VBA Len: Để đếm độ dài chuỗi​
+ Hàm VBA Left: Để nhận ký tự đầu​
+ Hàm VBA Replace: Để xóa ký tự​
​
Giải thuật này bạn Hau151978 cũng đã sử dụng ở ví dụ 3, bạn ấy đã sử dụng Split để xóa ký tự và Join để nối chuỗi lại. Tuy nhiên thiếu "Byval" ở chuỗi đầu vào sẽ khó kiểm soát chuỗi khi ứng dụng thực tế.​

PHP: 
Private Sub test_CharDuplicates()
  Dim I&, S$, T#
  On Error Resume Next
  For I = 1 To 65535
    S = S & VBA.ChrW$(I)
    DoEvents
  Next I
  Debug.Print VBA.Len(S)
  On Error GoTo 0
  T = Timer
  For I = 1 To 1
    Call CharDuplicates(S)
    DoEvents
  Next I
  Debug.Print Round(Timer - T, 5)
  T = Timer
  For I = 1 To 1
    'Call CharDuplicatesRE(S)'
    DoEvents
  Next I
  Debug.Print Round(Timer - T, 5)
End Sub
'Cách 1:'
Function CharDuplicates(ByVal Text As String, _
               Optional ByVal Compare As VBA.VbCompareMethod =  VBA.VbCompareMethod.vbBinaryCompare) As String
  Dim K As Long, s As String
  Do Until VBA.Len(Text) <= K
    s = VBA.Left$(Text, 1)
    Text = VBA.Replace$(Text, s, VBA.Constants.vbNullString, , , Compare) & s
    K = K + 1
  Loop
  CharDuplicates = Text
End Function
'Cách 2:
'Function CharDuplicates(ByVal Text As String, _
'               Optional ByVal Compare As VBA.VbCompareMethod = VBA.VbCompareMethod.vbBinaryCompare) As String
'  Dim T As String, S As String
'  Do While Text <> VBA.Constants.vbNullString
'    S = VBA.Left$(Text, 1)
'    Text = VBA.Replace$(Text, S, VBA.Constants.vbNullString, , , Compare)
'    T = T & S
'  Loop
'  CharDuplicates = T
'End Function
------------------------


2. Sử dụng thư viện Regular Expressions:
Giải thuật: sử dụng cú pháp "(?=.*\1)" - Có nhưng không lấy bất cứ ký tự nào kết hợp với Nhóm 1.​
Ví dụ:​
Pattern là "(a)(?=.*\1)"​
Thì ("a") chính là nhóm một, \1 là cú pháp đại diện cho nhóm 1​
Tương ứng: Pattern là "(a)(b)(?=.*\1\2)"​
PHP: 
Function CharDuplicatesRE(ByVal Text As String, _
                 Optional ByVal IgnoreCase As Boolean = False, _
                 Optional ByVal Terminate As Boolean = False) As String
  Static RE As Object
  If RE Is Nothing Then
    Set RE = CreateObject("VBScript.RegExp")
  Else
    If Terminate Then Set RE = Nothing: Exit Function
  End If
  With RE
    .Global = True: .IgnoreCase = IgnoreCase: .MultiLine = True
    .Pattern = "(.)(?=.*\1)"
    CharDuplicatesRE = .Replace(Text, "")
  End With
End Function
---------------------------



Gợi ý thêm hàm Sắp xếp chuỗi:
(Lưu ý: Hãy tạo hai hàm như này ở hai Module khác nhau để vận dụng hai cách so sánh ở dạng Text hoặc dạng Binary - Option Compare Text hoặc Binary)
---------------------------
PHP: 
Public Function CharsSort(ByVal Text As String, _
                 Optional ByVal iDesc As Boolean = False) As String
  'Create:'
  'CharsSortT in Module "Option Compare Text"'
  'CharsSortB in Module "Option Compare Binary"'
  'CharsSort - Add parameters: Optional ByVal CompareText As Boolean = False'
  Dim i As Long, J As Long, L As Long, T1 As String, T2 As String
  L = VBA.Len(Text): If L < 2 Then GoTo Ends
  For i = 1 To L - 1: For J = i + 1 To L
    T1 = VBA.Mid$(Text, i, 1): T2 = VBA.Mid$(Text, J, 1)
    If (Not iDesc And T1 > T2) Or (iDesc And T1 < T2) Then
      Mid(Text, J, 1) = T1: Mid(Text, i, 1) = T2
    End If
  Next J, i
Ends: CharsSort = Text
End Function
Nhấp chuột vào đây để mở rộng...
Hàm CharDuplicatesRE chắc chắn sai. Hãy chạy CharDuplicatesRE và CharDuplicates với dữ liệu lấy từ tập tin của tôi thì thấy 2 kết quả khác nhau. Vậy một trong 2 hàm là sai. Cụ thể hàm sai là CharDuplicatesRE.

Thấy mọi người gửi bài mà mình hoang mang quá. :D Thôi thì cũng rụt rè dự thi.

Mã: 
Function batman1(ByVal text As String) As String
Dim k As Long, count As Long, kytu As String, result As String, dic As Object
    If Len(text) = 0 Then Exit Function
    result = String(Len(text), Chr(0))
    kytu = String(1, Chr(0))
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = vbTextCompare ' khong phan biet hoa thuong
    For k = 1 To Len(text)
        Mid(kytu, 1, 1) = Mid(text, k, 1)
        If Not dic.Exists(kytu) Then
            count = count + 1
            Mid(result, count, 1) = kytu
            dic.Add kytu, ""
        End If
    Next k
    batman1 = Left(result, count)
    Set dic = Nothing
End Function
 
Upvote 0
Cùi bắp lót gạch
Mã: 
Sub Test()
Dim Str_
Dim i, j, k, Tm
Dim Res
Tm = Timer
Str_ = Sheet1.Range("A1")
ReDim Res(65535)
For i = 1 To 65535
    j = ChrW(i)
    k = InStr(Str_, j)
    If k Then Res(k) = j
Next i
j = ""
For i = 0 To 65535
    If Res(i) <> "" Then
        j = j & Res(i)
    End If
Next i
With Sheet2
    .UsedRange.Clear
    .Range("A3") = j
    .Range("A1") = Timer - Tm
End With
End Sub
 
Upvote 0
HeSanbi đã viết:
Bài viết này dành cho các bạn đang học hoặc đam mê hoặc đang phát triển ứng Excel với VBA.
Nhằm luyện tập, học hỏi và phát triển thêm kỹ năng viết Code VBA với những bài tập đơn giản.

"Lọc ký tự trùng nhau trong chuỗi".
--------------------------------
Bài tập: Viết một hàm lọc chuỗi bất kỳ loại bỏ các ký tự trùng nhau trả về kết quả là một chuỗi chứa các ký tự duy nhất, phân biệt ký tự hoa thường và không phân biệt ký tự hoa thường. Và hãy tối ưu hàm một cách tốt nhất có thể.

Ví dụ:
1. "abcde" => "abcde"​
2. "tương tư có tương tự suy tư" => ""tương cóựsuy"​
3. "Bài hát: Thanh Xuân Của Tôi (Viral Clip) Ca sĩ: Đan Trường Nhạc Hoa, Lời Việt: Tăng Nhật Tuệ Camera: Kuke Hà - Ngọc Kim Lời bài hát: Cùng nhau ngắm mưa Đoạn đường đón đưa Cười cười nói nói vui như thế Thanh xuân lấp lánh như bụi mưa Cùng nhau đếm sao Một thời huyên náo Giật mình nhìn thời gian đã xoá Thanh xuân như chút gió ngọt ngào Ta đã gặp nhau để nói thương nhau Giữ cho nhau ký ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Tự do hát ca Bụi đường quê nhà Nghiêng nghiêng cánh chim bay trong gió Mưa bay lấp lánh những ngày xanh Thành đô nắng hoa Lòng người băng giá Nhiều lần giật mình trong nước mắt Thanh xuân hôm qua đã nhạt nhoà Ta đã gặp nhau để nói thương nhau Giữ cho nhau kí ức nhiệm màu Nước mắt có lần ướt khoé mi Cũng chẳng muốn rời tay người Tay cầm tay để nói thương nhau Dẫu mai sau vật đổi sao dời Thương vẫn thương vậy thôi Đừng quên nhé thanh xuân của tôi Thương vẫn thương vậy thôi Vì em đó thanh xuân của tôi."​
=> "Bài hát:TanXuâCủô(Vrlp)sĩĐườgNạcHo,LệăậmeKk-ọbùắđóvếxấụMộyêGìãúặểơữýứớầéũẳốDẫổdừqựòềí."​
=> "Bài hát:anXuâCủô(Vrlp)sĩĐườgạo,ệăậmeK-ọùắóếấụộyêìãúặểơữýứớầéũẳốDẫổừqựòềí." (Không phân biệt hoa thường)​

Yêu cầu:
1. Cú pháp phải tối ưu.
2. Bài giải có thể nhiều hàm Sử dụng hàm thuần VBA hoặc thư viện Regular Expressions hoặc một thư viện nào có thể
3. Ưu tiên tốc độ xử lý.

(có hoặc không có giải thích về thuật toán hoặc giải thuật đã sử dụng)


Ứng dụng của hàm: Nhận biết và đếm số ký tự đã sử dụng trong một bài thơ, bài viết, ...
--------------------------------
Mời các bạn tham gia!
Nhấp chuột vào đây để mở rộng...
Thấy đông vui, cũng ráng góp code
Mã: 
Function ABC(ByVal iText As String, Optional TextCompare As Boolean = False) As String
  'Mac dinh TextCompare= False: Phan biet ky tu Hoa va Thuong
  'TextCompare= True: Khong Phan biet ky tu Hoa va Thuong
  If Len(iText) = 0 Then Exit Function
  Dim j&, k&, sCol&, iChr$, tmp$
  If TextCompare = False Then bl = 0 Else bl = 1 
  sCol = Len(iText)
  k = 1
  tmp = Mid(iText, 1, 1)
  For j = 2 To sCol
    iChr = Mid(iText, j, 1)
    If InStr(1, tmp, iChr, bl) = 0 Then
      k = k + 1
      Mid(iText, k, 1) = iChr
      tmp = Mid(iText, 1, k)
    End If
  Next j
  ABC = Mid(iText, 1, k)
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
CHAOQUAY đã viết:
Cùi bắp lót gạch
Mã: 
...
ReDim Res(65535)
For i = 1 To 65535
    j = ChrW(i)
    k = InStr(Str_, j)
    If k Then Res(k) = j
Next i
j = ""
For i = 0 To 65535
    If Res(i) <> "" Then
        j = j & Res(i)
    End If
Next i
Nhấp chuột vào đây để mở rộng...
Code của rất kém hiệu quả về năng lượng.
Search: Số ký tự sử dụng trong chuỗi chỉ có khoảng hơn trăm nhưng code sẽ phải search chuỗi hơn 60 ngàn lần.
Ghép: nếu có 100 ký tự thì code phải ghép 100 lần.
Chú thích: nếu máy có cache tốt thì dùng mảng để search là điều đúng. Nhưng bạn làm ngược. Đáng lẽ dùng ký tự lấy ra từ chuỗi và search mảng theo chỉ số thì nhanh hơn nhiều.
Tóm lại thì bài này mang tiếng "đơn giản" nhưng thực tế vì những điều kiện nó đưa ra khiến nó trở thành sân chơi của dân xịn. Và tôi không tin là ở đây người ta chịu khó giải thích những điểm yếu của dân mới vào nghề đâu.
Những code xịn mà ngừoi ta đăng lên sẽ là thành quả của kinh nghiệm nhiều năm. Những người mới vào nghề xem để mà biết chứ không học được gì đâu. Muốn học các giải thuật chiến, bạn không thể học "người ta làm như thế nào"; mà phải học "tại sao người ta làm thế"
Nếu là bài học thực sự thì điều kiện của nó phải có phần giải thích "sau khi thực hiện điều a, b, c,... thì bạn đã học được gì"

batman1 đã viết:
Thấy mọi người gửi bài mà mình hoang mang quá. :D Thôi thì cũng rụt rè dự thi.

Mã: 
Function batman1(ByVal text As String) As String
Dim k As Long, count As Long, kytu As String, result As String, dic As Object
    If Len(text) = 0 Then Exit Function
    result = String(Len(text), Chr(0))
    kytu = String(1, Chr(0))
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = vbTextCompare ' khong phan biet hoa thuong
    For k = 1 To Len(text)
        Mid(kytu, 1, 1) = Mid(text, k, 1)
        If Not dic.Exists(kytu) Then
            count = count + 1
            Mid(result, count, 1) = kytu
            dic.Add kytu, ""
        End If
    Next k
    batman1 = Left(result, count)
    Set dic = Nothing
End Function
Nhấp chuột vào đây để mở rộng...
Về giải thuật không kể, nhưng về "sử dụng hàm thư viện" thì Bác có 95% khả năng thua tôi rồi.
Nếu tôi copy code của Bác, và nghe theo lời của anh chàng "viết lại hàm Microsoft" kia. Tôi dùng các hàm thời thượng (Q)BASIC thì cứ mỗi lượt gọi hàm string, tôi nhanh hơn bác vài na-nô giây. :p:p:p
 
Upvote 0
CHAOQUAY đã viết:
Cùi bắp xếp gạch mà bác.
Nhấp chuột vào đây để mở rộng...
Bạn cũng chả học được gì cả, bởi vì như tôi đã nói, "đây là sân chơi của dân xịn":

VetMini đã viết:
... Và tôi không tin là ở đây người ta chịu khó giải thích những điểm yếu của dân mới vào nghề đâu...
Nhấp chuột vào đây để mở rộng...
Người ta để giành năng lượng để chiến đấu, suy diễn những giải thuật ngặt nghèo.
 
Upvote 0
VetMini đã viết:
Bạn cũng chả học được gì cả, bởi vì như tôi đã nói, "đây là sân chơi của dân xịn":


Người ta để giành năng lượng để chiến đấu, suy diễn những giải thuật ngặt nghèo.
Nhấp chuột vào đây để mở rộng...
Giả sử như file bài 8 của @batman1 là 1 chuỗi liền thì theo bác code nào trong các code trên là phù hợp?
 
Upvote 0
CHAOQUAY đã viết:
Giả sử như file bài 8 của @batman1 là 1 chuỗi liền thì theo bác code nào trong các code trên là phù hợp?
Nhấp chuột vào đây để mở rộng...
Tôi có lý do riêng để không lý giải gì thêm.

Tôi chỉ lấy code của bạn ra là vì giải thuật hoàn toàn không phù hợp. Và tôi e rằng sẽ không ai giải thích cho bạn điểm ấy để có thể học hỏi.
Cách làm ngược lại mà tôi nói (dùng chỉ số mảng) nó cũng giống như Dictionary. Nếu ngôn ngữ khác thì nó sẽ nhanh hơn Dictionary. Nhưng vì VBA phải gọi hàm AscW để tính chỉ số của mỗi ký tự cho nên sẽ chậm đi. Cuối cùng thì là sự chạy đua giữa hàm AscW và hàm hash ký tự của Dictionary.
 
Lần chỉnh sửa cuối:
Upvote 0
VetMini đã viết:
Tôi có lý do riêng để không lý giải gì thêm.

Tôi chỉ lấy code của bạn ra là vì giải thuật hoàn toàn không phù hợp. Và tôi e rằng sẽ không ai giải thích cho bạn điểm ấy để có thể học hỏi.
Nhấp chuột vào đây để mở rộng...
Viết bài cho vui thôi bác ạ, tôi không có cần học hỏi.
Có lẽ bác không giải thích cũng được nhưng mà như vậy tức là bác không bảo vệ được quan điểm của mình.
Vậy đánh giá của bác về code bài 15 đâu có cơ sở.
Bài đã được tự động gộp:

VetMini đã viết:
Tôi có lý do riêng để không lý giải gì thêm.

Tôi chỉ lấy code của bạn ra là vì giải thuật hoàn toàn không phù hợp. Và tôi e rằng sẽ không ai giải thích cho bạn điểm ấy để có thể học hỏi.
Cách làm ngược lại mà tôi nói (dùng chỉ số mảng) nó cũng giống như Dictionary. Nếu ngôn ngữ khác thì nó sẽ nhanh hơn Dictionary. Nhưng vì VBA phải gọi hàm AscW để tính chỉ số của mỗi ký tự cho nên sẽ chậm đi. Cuối cùng thì là sự chạy đua giữa hàm AscW và hàm hash ký tự của Dictionary.
Nhấp chuột vào đây để mở rộng...
Nếu file bài 8 của @batman1 là 1 chuỗi, chiều dài có lẽ phải vài trăm ngàn ký tự.

Nếu quét qua từng ký tự cũng phải vài trăm ngàn lần, trong khi tính theo chỉ số bài 15 chỉ có khoảng vài chục ngàn lần.
Để đánh giá cũng cần có 1 vài con số cụ thể, áng chừng có lẽ không thuyết phục bác ạ.
 
Lần chỉnh sửa cuối:
Upvote 0
Tôi xin lỗi. Tôi ngỡ bạn thích học code thì tôi mách. Nhưng tôi đã chủ quan và đã lầm to.
Về việc cần thuyết phục thì xin miễn. Tôi chỉ dạy học trò chứ không bảo vệ quan điểm.
Tôi thà xếp giáo chịu thua chứ không cố gắng giải thích để được hơn.

Nếu cần xin lỗi chính xác hơn thì cứ cho biết, tôi sẵn sàng trở lại bài #17 để chú thích:
"Tôi chấp nhận lý luận của mình không đủ thuyết phục. Tôi xin rút lại lời phê bình bài #15 và gởi lời xin lỗi chủ code bài #15.
 
Upvote 0
VetMini đã viết:
Tôi xin lỗi. Tôi ngỡ bạn thích học code thì tôi mách. Nhưng tôi đã chủ quan và đã lầm to.
Về việc cần thuyết phục thì xin miễn. Tôi chỉ dạy học trò chứ không bảo vệ quan điểm.
Tôi thà xếp giáo chịu thua chứ không cố gắng giải thích để được hơn.

Nếu cần xin lỗi chính xác hơn thì cứ cho biết, tôi sẵn sàng trở lại bài #17 để chú thích:
"Tôi chấp nhận lý luận của mình không đủ thuyết phục. Tôi xin rút lại lời phê bình bài #15 và gởi lời xin lỗi chủ code bài #15.
Nhấp chuột vào đây để mở rộng...
Có lỗi gì ở đây đâu bác.
Vấn đề ở đây là bảo vệ quan điểm, vậy thôi. Bác không muốn bảo vệ quan điểm mình đã đưa ra thì tùy, không có vấn đề gì ở đây hết cả.
 
Upvote 0
Tôi xin lỗi tất cả 3 chỗ:
1. với bạn, vì tôi đã hiểu lầm
2. với mọi bạn khác, vì tôi đã khơi một câu hỏi mà không có can đảm đi đến câu trả lời.
3. với chính mình, từng trải bao nhiêu năm mà còn chủ quan.
 
Upvote 0
VetMini đã viết:
Về giải thuật không kể, nhưng về "sử dụng hàm thư viện" thì Bác có 95% khả năng thua tôi rồi.
Nếu tôi copy code của Bác, và nghe theo lời của anh chàng "viết lại hàm Microsoft" kia. Tôi dùng các hàm thời thượng (Q)BASIC thì cứ mỗi lượt gọi hàm string, tôi nhanh hơn bác vài na-nô giây. :p:p:p
Nhấp chuột vào đây để mở rộng...
Thế thì bác không đọc các bài của tôi rồi. Tôi đã nói rất rõ: tôi rất muốn tiết kiệm vài giây, thậm chí vài phần nghìn giây. Nhưng tôi không chắt chiu từng nhịp đồng hồ, từng phần nghìn, phần trăm của na nô giây.

Bác về đọc lại tác giả batman1 đi nhé. :D
 
Upvote 0
batman1 đã viết:
Hàm CharDuplicatesRE chắc chắn sai. Hãy chạy CharDuplicatesRE và CharDuplicates với dữ liệu lấy từ tập tin của tôi thì thấy 2 kết quả khác nhau. Vậy một trong 2 hàm là sai. Cụ thể hàm sai là CharDuplicatesRE.
Nhấp chuột vào đây để mở rộng...
Hai hàm hoàn toàn không sai.

Bác batman1 thử xử lý ký tự xuống dòng trước xem sao
 
Upvote 0
batman1 đã viết:
Bạn xem video thì thấy A1 sai. Tức CharDuplicatesRE sai.
Nhấp chuột vào đây để mở rộng...
Sao Bác không Sort rồi hãy so sánh

Ý của Bác là muốn kết quả của hai Hàm phải thật giống nhau, trong khi em viết code hai hàm chứa ký tự như nhau.

Trong Regex thì hàm Replace xử lý theo Group có thứ tự: Text = S & Text
Đơn giản chỉ cần sửa trong CharDuplicates: Left thành Right và Text = S & Text

PHP: 
Function CharDuplicates6(ByVal Text As String, _
               Optional ByVal Compare As VBA.VbCompareMethod = VBA.VbCompareMethod.vbBinaryCompare) As String
  Dim K As Long, S As String
  Do Until VBA.Len(Text) <= K
    DoEvents
    S = VBA.Right$(Text, 1)
    Text = S & VBA.Replace$(Text, S, VBA.Constants.vbNullString, , , Compare)
    K = K + 1
  Loop
  CharDuplicates6 = Text
End Function
 
Lần chỉnh sửa cuối:
Upvote 0
HeSanbi đã viết:
Sao Bác không Sort rồi hãy so sánh

Ý của Bác là muốn kết quả của hai Hàm phải thật giống nhau, trong khi em viết code hai hàm chứa ký tự như nhau.

Trong Regex thì hàm Replace xử lý theo Group có thứ tự: Text = S & Text
Đơn giản chỉ cần sửa trong CharDuplicates: Left thành Right và Text = S & Text

PHP: 
Function CharDuplicates6(ByVal Text As String, _
               Optional ByVal Compare As VBA.VbCompareMethod = VBA.VbCompareMethod.vbBinaryCompare) As String
  Dim K As Long, S As String
  Do Until VBA.Len(Text) <= K
    DoEvents
    S = VBA.Right$(Text, 1)
    Text = S & VBA.Replace$(Text, S, VBA.Constants.vbNullString, , , Compare)
    K = K + 1
  Loop
  CharDuplicates6 = Text
End Function
Nhấp chuột vào đây để mở rộng...
Tôi lấy ví dụ không chuẩn.

Tôi không nói tới ông CharDuplicates, vì ông ta là cao thủ rồi. Tôi nói tới ông CharDuplicatesRE cơ.

Bạn đã chạy với dữ liệu vài MB mà tôi đính kèm chưa? Chắc chắn 2 hàm của bạn cho 2 kết quả khác nhau. Không còn là thứ tự nữa mà là khác nhau cả về độ lớn (LEN) 2 kết quả, và cả về các ký tự cụ thể trong 2 kết quả đó.

2 kết quả khác nhau thì ít nhất phải có một ông sai. Và tôi khẳng định là ông CharDuplicatesRE sai.

Tôi đã biết 1 trong các (?) nguyên nhân.

Khi tập tin text copy từ đâu đó thì rất nhiều khi gặp trường hợp ký tự xuống dòng chỉ là Char(10). Mà nói đâu xa, trong Excel sảy ra như cơm bữa.

Thí nghiệm:

- Gõ ở ô E1: ngay mai -> nhấn Alt + Enter để xuống dòng -> gõ tiếp em di

- chạy code
Mã: 
Sub test()
Dim text As String, s As String
    text = Range("E1").Value
    s = CharDuplicatesRE(text, True)
    [a1] = s
End Sub

Trong A1 có:

ngy mai
em di

Rõ ràng "m" và "i" xuất hiện 2 lần, tức không duy nhất.

Như thế nếu hàm của bạn lấy dữ liệu nguồn từ các ô trên trang tính Excel có xuống dòng, hoặc lấy từ các tập tin được copy từ web về như tập tin của tôi, thì kết quả sẽ sai.
--------------
Nếu bạn gọi ông CharDuplicates thì ông ta nói: Êêê, với bậc cao thủ như tôi thì không có việc gì khó ... Và ông ta trả về

ngay mi
ed

Tức ông ta mọi text đều chơi tuốt, và làm được, làm chuẩn.
 
Upvote 0
Không biết bác @batman1 đang đề cập đến điều gì.

Đơn giản chỉ cần bác xóa ký tự xuống dòng ở File của bác và xử lý chuỗi là xong.
Xử lý chuỗi thì ký tự xuống dòng cần được xử lý trước.

Ký tự xuống dòng nó là ký tự đặt biệt để con người có thể viết ở một số trường hợp cần thiết. Chứ nó không phải là nhất thiết phải có.

Như viết thơ thì phải xuống dòng để biết rằng thơ có thơ 6-8, 7, ...
Hoặc màn hình có chiều ngang có 1270 pixel nên phải xuống dòng để có thể dễ dàng nhìn được hết câu văn.
Rất nhiều tình huống xuống dòng.

Tuy nhiên ở vấn đề bài viết này, không ai đi hỏi rằng "câu kia có xuống dòng hay không?"

Tình huống File của Bác chỉ cần bỏ đi kí tự xuống dòng sau đó vận dụng hàm.

Bác để ý 3 ví dụ của em nêu ra không có ví dụ nào có xuống dòng cả.

Vấn đề này em chưa đề cập đến trong bài viết.

Việc xử lý xuống dòng là một vấn đề khác nữa.

Chẳn hạn như là "dòng 8 của bài thơ ABC chứa những ký tự nào?"

Do file của Bác đưa ra vào trường hợp bài viết này không phù hợp. Chứ không phải Hàm viết sai.

Em xin gửi Bác file của Bác đã được xử lý loại bỏ xuống dòng để Bác kiểm tra hàm.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
HeSanbi đã viết:
Không biết bác @batman1 đang đề cập đến điều gì.

Đơn giản chỉ cần bác xóa ký tự xuống dòng ở File của bác và xử lý chuỗi là xong.
Xử lý chuỗi thì ký tự xuống dòng cần được xử lý trước.

Ký tự xuống dòng nó là ký tự đặt biệt để con người có thể viết ở một số trường hợp cần thiết. Chứ nó không phải là nhất thiết phải có.

Như viết thơ thì phải xuống dòng để biết rằng thơ có thơ 6-8, 7, ...
Hoặc màn hình có chiều ngang có 1270 pixel nên phải xuống dòng để có thể dễ dàng nhìn được hết câu văn.
Rất nhiều tình huống xuống dòng.

Tuy nhiên ở vấn đề bài viết này, không ai đi hỏi rằng "câu kia có xuống dòng hay không?"

Tình huống File của Bác chỉ cần bỏ đi kí tự xuống dòng sau đó vận dụng hàm.

Bác để ý 3 ví dụ của em nêu ra không có ví dụ nào có xuống dòng cả.

Vấn đề này em chưa đề cập đến trong bài viết.

Việc xử lý xuống dòng là một vấn đề khác nữa.

Chẳn hạn như là "dòng 8 của bài thơ ABC chứa những ký tự nào?"

Do file của Bác đưa ra vào trường hợp bài viết này không phù hợp. Chứ không phải Hàm viết sai.

Em xin gửi Bác file của Bác đã được xử lý loại bỏ xuống dòng để Bác kiểm tra hàm.
Nhấp chuột vào đây để mở rộng...
Tôi không chỉ nói về tập tin của tôi. Tôi cho vd. về text lấy từ các cell của Excel mà.

1. Xử lý thế nào thì bạn phải xử lý thì mới nói chuyện tiếp được. Mà ở đây tôi nói xử lý code của hàm chứ không phải xử lý dữ liệu đầu vào bởi người dùng.

2. Tôi không dùng hàm của bạn thì tại sao tôi phải xử lý? Tôi chỉ góp ý thôi.

Không ai viết code mà lại bắt người dùng phải xử lý dữ liệu trước khi chạy code cả. Nhất là khi dữ liệu đó hoàn toàn hợp lệ trong Excel. Dữ liệu chỉ có 0A là dữ liệu hàng ngày trên Excel. Bạn muốn người dùng hàm của bạn sau khi đọc dữ liệu từ cell phải xử lý nó trước khi gọi hàm của bạn? Thế nếu người ta không biết xử lý thì sao? Nếu người ta là "cao thủ" thì có lẽ họ sẽ tự viết code chứ không dùng hàm của bạn.

Tôi nói về vấn đề khi mà tập tin có thể chứa 0D0A hoặc chỉ chứa 0A lẫn lộn. Chả nhẽ mỗi tập tin lại kiểm tra rồi mới chạy code? Mà việc sửa hàm là việc của tác giả code chứ không phải việc của người dùng là lại phải viết code xử lý dữ liệu rồi mới gọi hàm của tác giả. Góp ý thôi chứ không ai bắt bạn phải làm gì cả. Bạn mở chủ đề cho cả những người đang học chứ không phải chỉ cho những người đã có mặt trong chủ đề này. Người ta có khi thử chạy code và thấy lỗi như tôi, thì làm sao người ta biết phải viết thêm đoạn code xử lý như thế nào? Hay là bạn muốn người ta mở từng tập tin rồi xử lý bằng tay vụ 0A (nếu có) rồi mới chạy code? Còn nếu bạn mặc định là chỉ có tôi dùng code của bạn, và tôi đủ sức xử lý, thì xin thưa: tôi không có ý định dùng code của bạn.
-----------------------------------------------------------------------------------------------
Về tập tin đính kèm thì không cần thiết. Có mỗi việc "xử lý" mà bạn nghĩ tôi không làm được sao? Tôi góp ý cho code của bạn thôi.
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL (2 người xem)
Trả lời
0
Đọc
27
danhpheo
D
H
Tự động cập nhật dữ liệu từ 2 file word (1 người xem)
Trả lời
1
Đọc
56
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới.
Trả lời
7
Đọc
230
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter (2 người xem)
Trả lời
8
Đọc
116
eagle12
E
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ.
Trả lời
4
Đọc
102
HieuCD
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
436
Đọc
57K
hangiang
H
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
8
Đọc
367
ongke0711
ongke0711
befaint
[ Python và ứng dụng ] Công cụ trích xuất hàng loạt hóa đơn điện tử XML vào bảng Excel
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
9K
Hoale85
H
Nam168
Không mở được file excel
Trả lời
2
Đọc
71
Nam168
Nam168
V
Quản lý xuất nhập vật tư trong kho
Trả lời
14
Đọc
536
LOGANWover
L
phuongnam366377
Sử dụng COM DLL **không cần đăng ký** với Delphi 12 / C++ Builder
    • Thích
Trả lời
0
Đọc
85
phuongnam366377
phuongnam366377
N
Định mức nguyên vật liệu
Trả lời
49
Đọc
5K
ntan50
N
H
  • Question Question
Dò tìm giá trị từ bảng khác theo cột
Trả lời
6
Đọc
289
Chả_biết_gì
C
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
26
Đọc
1K
haitien123
H
ongke0711
Truy cập trang GPE chậm
    • Thích
Trả lời
3
Đọc
200
Hai Lúa Miền Tây
Hai Lúa Miền Tây
V
Gộp File Từng File Excel vào 1 File
Trả lời
16
Đọc
494
ptm0412
ptm0412
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
10
Đọc
802
Zizi One
Zizi One
I
Phân bổ số lượng xuất kho trong kỳ theo từng mã nguyên vật liệu
Trả lời
6
Đọc
214
IrisQ
I
L
Các bạn giúp mình hoàn thiện công thức hàm sumif nhé
Trả lời
5
Đọc
178
lequang_qn
L
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom