Xóa toàn bộ các chữ cái (và các nguyên âm, phụ âm) (1 người xem)

vandia · 2/8/19

Chào các bạn
các bạn giúp mình chư file đính kèm
Cảm ơn các bạn nhé!

snow25 · 2/8/19

vandia đã viết:
Chào các bạn
các bạn giúp mình chư file đính kèm
Cảm ơn các bạn nhé!

Bạn cho cái kết qua xem sao ta.

vandia · 2/8/19

snow25 đã viết:
Bạn cho cái kết qua xem sao ta.

Bạn ơi, cứ xóa toàn bộ chữ đi hết và thay thế nó bằng dấu ","
liệu có cần file không hả bạn?

Bài đã được tự động gộp: 2/8/19

snow25 đã viết:
Bạn cho cái kết qua xem sao ta.

Gửi bạn @snow25 mong bạn giúp đỡ

snow25 · 2/8/19

vandia đã viết:
Bạn ơi, cứ xóa toàn bộ chữ đi hết và thay thế nó bằng dấu ","
liệu có cần file không hả bạn?

Bài đã được tự động gộp: 2/8/19

Gửi bạn @snow25 mong bạn giúp đỡ

Bạn thử.

Mã:

Function layso(ByVal dulieu As String)
        Dim i As Integer, s As String, dks As String, dk As String, s1 As String
        dk = Replace(dulieu, ";", ",")
        For i = 1 To Len(dk)
            dks = Mid(dk, i, 1)
            If IsNumeric(dks) Then
                 s = s & dks
                 s1 = dks
            ElseIf dks = "," And s1 <> "," Then
                 s = s & dks
                 s1 = dks
            End If
         Next i
         If Right(s, 1) = "," Then s = Left(s, Len(s) - 1)
         layso = s
End Function

=layso(C5)

Phuocam · 2/8/19

Thử:

Mã:

Function TachSo(s As String)
Dim temp As String
temp = Replace(s, ";", ",")
   With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = "[^\d,]"
      temp = .Replace(temp, "")
      TachSo = Replace(Application.Trim(Replace(temp, ",", " ")), " ", ", ")
   End With
End Function

snow25 · 2/8/19

phuocam đã viết:

Thử:

Mã:

Function TachSo(s As String)
Dim temp As String
temp = Replace(s, ";", ",")
   With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = "[^\d,]"
      temp = .Replace(temp, "")
      TachSo = Replace(Application.Trim(Replace(temp, ",", " ")), " ", ", ")
   End With
End Function

Em tìm hiểu cái này nhưng nó khó kiểu gì ấy.Rất khó để ứng dụng.
CreateObject("vbscript.regexp")
.Pattern = "[^\d,]"
Em hiểu câu lệnh này là tìm ký tự không thuộc dạng số,và khác dâu ",".

huuthang_bd · 2/8/19

Không cần hàm Trim

Mã:

Function RemoveLetter(sText As String)
   With CreateObject("VBScript.RegExp")
      .Global = True
      .Pattern = "(\d+)\D+"
      RemoveLetter = Mid(.Replace("0 " & sText & " ", ",$1"), 4)
   End With
End Function

vandia · 2/8/19

Cảm ơn tất cả các bạn @snow25 ;
phuocam
huuthang_bd
Chúc các bạn mạnh khỏe và luôn thành đạt
Các bạn cho mình hỏi ngu một cái là
Hàm của bạn nào dùng ngon nhất được không?
Mong các bạn không tự ái!

snow25 · 2/8/19

vandia đã viết:
Cảm ơn tất cả các bạn @snow25 ;
phuocam
huuthang_bd
Chúc các bạn mạnh khỏe và luôn thành đạt
Các bạn cho mình hỏi ngu một cái là
Hàm của bạn nào dùng ngon nhất được không?
Mong các bạn không tự ái!

Hàm nào chẳng dùng được.Ngon nhất thì bạn tự kiểm tra thôi.

befaint · 2/8/19

Hàm chỉ ngon khi được nhai đùi gà thôi.

vandia · 2/8/19

snow25 đã viết:
Hàm nào chẳng dùng được.Ngon nhất thì bạn tự kiểm tra thôi.

Khổ lỗi là mình không am hiểu
Mình muốn là dùng hàm của bạn nào hiệu quả và nhanh gọn bạn @snow25
Tất nhiên cả 3 bạn đều chuẩn kết quả
Vì vậy mình mới xin ý kiến của các bạn có chuyên môn giải đáp

Bài đã được tự động gộp: 2/8/19

befaint đã viết:
Hàm chỉ ngon khi được nhai đùi gà thôi.

Có ngay đùi gà cho bác
befaint
Bác thích đùi gà Mỹ hay công nghiệp VN, đùi gà di, gà đi bộ thì bảo mình sẽ she luôn cho bạn
Đùi gà tây nhé!

batman1 · 2/8/19

vandia đã viết:
Bác thích đùi gà Mỹ hay công nghiệp VN, đùi gà di, gà đi bộ thì bảo mình sẽ she luôn cho bạn
Đùi gà tây nhé!

Đùi gà thả rông bạn ạ.

batman1 · 2/8/19

vandia đã viết:
Tất nhiên cả 3 bạn đều chuẩn kết quả

Không thể có 3 code cùng đúng ý đâu.

Vd. có 100;12-45;20 hoặc 100;12p45;20

Bạn muốn kết quả là bao nhiêu?

1. Kết quả phải là 100,12,45,20. Nếu là tôi tôi cũng muốn thế.
Nếu thế thì hàm của _huuthang_bd đúng, hàm phuocam và snow25 sai.

2. Kết quả phải là 100,1245,20
Nếu thế thì hàm của huuthang_bd sai, hàm phuocam và snow25 đúng.

vandia · 2/8/19

batman1 đã viết:
Không thể có 3 code cùng đúng ý đâu.

Vd. có 100;12-45;20 hoặc 100;12p45;20

Bạn muốn kết quả là bao nhiêu?

1. Kết quả phải là 100,12,45,20. Nếu là tôi tôi cũng muốn thế.
Nếu thế thì hàm của _huuthang_bd đúng, hàm phuocam và snow25 sai.

2. Kết quả phải là 100,1245,20
Nếu thế thì hàm của huuthang_bd sai, hàm phuocam và snow25 đúng.

Cảm ơn bạn
batman1
đã phân tích, đúng là theo kết quả 1 bạn à
Đấy. phải người có chuyên môn giải thích thì mới hiểu lễ đúng và sai của nó
Bạn cho địa chỉ
Mình sẽ she mời bạn đùi gà THẢ RÔNG (TỨC GÀ ĐI BỘ )

vandia · 2/8/19

Nhân tiện các bác giúp tôi và mọi người loại số
rất nhiệt tình cảm ơn các bạn

VetMini · 2/8/19

Lúc đầu tôi cứ ngỡ từ "she" là gõ nhầm. Nhưng gõ tới hai lần thì khó nhầm.
Hai bạn được mời đi sờ đùi gà! Hy vọng mấy bà xã chưa biết.

vandia đã viết:
...
Có ngay đùi gà cho bác
befaint
Bác thích đùi gà Mỹ hay công nghiệp VN, đùi gà di, gà đi bộ thì bảo mình sẽ she luôn cho bạn
Đùi gà tây nhé!

vandia đã viết:
Cảm ơn bạn
batman1
đã phân tích, đúng là theo kết quả 1 bạn à
Đấy. phải người có chuyên môn giải thích thì mới hiểu lễ đúng và sai của nó
Bạn cho địa chỉ
Mình sẽ she mời bạn đùi gà THẢ RÔNG (TỨC GÀ ĐI BỘ )

vandia · 2/8/19

VetMini đã viết:
Lúc đầu tôi cứ ngỡ từ "she" là gõ nhầm. Nhưng gõ tới hai lần thì khó nhầm.
Hai bạn được mời đi sờ đùi gà! Hy vọng mấy bà xã chưa biết.

Tôi thì không hiểu về thuật ngữ TÂY VÀ TA ĐÂU, đây là học mót thì nói như vậy
Mong bác @VetMini thông cảm
Tổi chỉ hiểu mang máng là (Tôi gửi đến địa chỉ của bạn)
Liệu sự hiểu bieetsw của tôi có vấn đề gì không @VetMini

batman1 · 3/8/19

VetMini đã viết:
Hai bạn được mời đi sờ đùi gà! Hy vọng mấy bà xã chưa biết.

Sờ đùi gà thì đã là gì đâu bác? Tôi thì chả đi làm gì nhưng vài đứa bạn tôi thì ai rủ cũng đi, không ai rủ cũng đi. Nhưng chúng chỉ thích đùi gà ta thôi. Chúng nói: ngày nào cũng ăn khoai tây, giờ chỉ thèm mỗi khoai lang.

VetMini · 3/8/19

batman1 đã viết:
Sờ đùi gà thì đã là gì đâu bác? Tôi thì chả đi làm gì nhưng vài đứa bạn tôi thì ai rủ cũng đi, không ai rủ cũng đi. Nhưng chúng chỉ thích đùi gà ta thôi. Chúng nói: ngày nào cũng ăn khoai tây, giờ chỉ thèm mỗi khoai lang.

Mấy người bạn bác có khi nào nhắc đến loại gà ba đùi hôn? Loại này nó Xà Rông thay vì Thả Rông. (cũng là she nhưng mà là shemale)

vandia · 3/8/19

Bạn @snow25 @batman1 @VetMini
huuthang_bd
phuocam
Giúp mình ý 2 với
Cảm ơn các bạn

batman1 · 3/8/19

VetMini đã viết:
Mấy người bạn bác có khi nào nhắc đến loại gà ba đùi hôn? Loại này nó Xà Rông thay vì Thả Rông. (cũng là she nhưng mà là shemale)

Đang ăn sáng mà đọc bài của của bác hết muốn ăn nữa. Ọe ọe

vandia · 3/8/19

batman1 đã viết:
Đang ăn sáng mà đọc bài của của bác hết muốn ăn nữa. Ọe ọe

Có gì không phải bạn @batman1 bỏ quá cho nhé

CHAOQUAY · 3/8/19

vandia đã viết:
Nhân tiện các bác giúp tôi và mọi người loại số
rất nhiệt tình cảm ơn các bạn

Chữ "pha" cũng bị loại?

vandia · 3/8/19

CHAOQUAY đã viết:
Chữ "pha" cũng bị loại?

Mình bị nhầm bạn
CHAOQUAY
xem lại giúp (Nguyên tắc là loại tất cả các số chữ số)
Cảm ơn bạn!

CHAOQUAY · 3/8/19

vandia đã viết:
Mình bị nhầm bạn
CHAOQUAY
xem lại giúp (Nguyên tắc là loại tất cả các số chữ số)
Cảm ơn bạn!

Bài này nếu số lượng mẫu lớn sẽ test lại.
Giờ bạn dùng tạm code này, các số xóa hết nhưng một vài chỗ thiếu dấu ","

Mã:

Function TachSo(s As String)
With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "(\W+\d+)+"
   TachSo = .Replace(s, "")
End With
End Function

vandia · 3/8/19

CHAOQUAY đã viết:
Bài này nếu số lượng mẫu lớn sẽ test lại.
Giờ bạn dùng tạm code này, các số xóa hết nhưng một vài chỗ thiếu dấu ","

Mã:

Function TachSo(s As String) With CreateObject("vbscript.regexp") .Global = True .Pattern = "(\W+\d+)+" TachSo = .Replace(s, "") End With End Function

Cảm ơn bạn @CHAOQUAY , thật sự bài toán này mình muốn các bạn am hiểu VBA viết để mọi người tham khảo thuật toán xóa số và chữ cho nó tổng quát để mọi người áp dụng cho tất cả các tình huống.
Vẫn bị lỗi chút bạn nhỉ.

VetMini · 3/8/19

vandia đã viết:
Cảm ơn bạn @CHAOQUAY , thật sự bài toán này mình muốn các bạn am hiểu VBA viết để mọi người tham khảo thuật toán xóa số và chữ cho nó tổng quát để mọi người áp dụng cho tất cả các tình huống.
Vẫn bị lỗi chút bạn nhỉ.

Một khi diễn tả được chính xác mình muốn gì thì thuật toán không có gì khó cả.
Muốn "tổng quát" sao không nói từ đầu?

Bạn chịu khó đọc lại từ bài #2, đến bài số #13 bạn sẽ thấy là người viết bài #13 vạch rõ là bạn chưa nắm vững đề tài của mình; nói chuyện thuật toán làm chi.

vandia · 3/8/19

VetMini đã viết:
Một khi diễn tả được chính xác mình muốn gì thì thuật toán không có gì khó cả.
Muốn "tổng quát" sao không nói từ đầu?

Bạn chịu khó đọc lại từ bài #2, đến bài số #13 bạn sẽ thấy là người viết bài #13 vạch rõ là bạn chưa nắm vững đề tài của mình; nói chuyện thuật toán làm chi.

Vâng, vì mình là dân 1 mùa, làm sao mà hiểu hết như các bạn được.
Vì vậy mới cần nhừng người am hiểu như các bạn mách bảo
Kể cả kết quả lẫn hướng giải quyết

CHAOQUAY · 3/8/19

vandia đã viết:
Cảm ơn bạn @CHAOQUAY , thật sự bài toán này mình muốn các bạn am hiểu VBA viết để mọi người tham khảo thuật toán xóa số và chữ cho nó tổng quát để mọi người áp dụng cho tất cả các tình huống.
Vẫn bị lỗi chút bạn nhỉ.

Bạn có thể lập file với vài ngàn dòng mẫu thì có lẽ kết quả thu được sẽ tốt hơn.

Phuocam · 3/8/19

... .

vandia · 3/8/19

phuocam đã viết:
... .

Không thấy gì bạn
phuocam

batman1 · 1/9/19

vandia đã viết:
Có gì không phải bạn @batman1 bỏ quá cho nhé

Tôi có chỉ trích gì bạn đâu? Tôi nói với bác VetMini. Tôi có trích lời bác VetMini đàng hoàng mà.

Xóa toàn bộ các chữ cái (và các nguyên âm, phụ âm) (1 người xem)

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

Thành viên mới

File đính kèm

Thành viên gạo cội

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên gạo cội

Chuyên gia GPE

Thành viên mới

Thành viên gạo cội

|||||||||||||

Thành viên mới

Thành viên gạo cội

Thành viên gạo cội

Thành viên mới

Thành viên mới

File đính kèm

Đang đi tìm hòn đá

Thành viên mới

Thành viên gạo cội

Đang đi tìm hòn đá

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gắn bó

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Đang đi tìm hòn đá

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên gạo cội

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