Xóa toàn bộ các chữ cái (và các nguyên âm, phụ âm)
- Thread starter vandia
- Ngày gửi
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,552
- Được thích
- 3,597
- Donate (Momo)
- Giới tính
- Nam
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:
Gửi bạn @snow25 mong bạn giúp đỡ
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,552
- Được thích
- 3,597
- Donate (Momo)
- Giới tính
- Nam
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
Phuocam
Thành viên mới
- Tham gia
- 16/5/13
- Bài viết
- 4,721
- Được thích
- 7,737
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 Functionsnow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,552
- Được thích
- 3,597
- Donate (Momo)
- Giới tính
- Nam
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 ",".
Lần chỉnh sửa cuối:
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,927
- Được thích
- 11,317
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
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 Functionsnow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,552
- Được thích
- 3,597
- Donate (Momo)
- Giới tính
- Nam
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:
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é!
Đùi gà thả rông bạn ạ.
Không thể có 3 code cùng đúng ý đâu.
Vd. có 100;12-45;20 hoặc 100;12p45;20
Bạn muốn kết quả là bao nhiêu?
1. Kết quả phải là 100,12,45,20. Nếu là tôi tôi cũng muốn thế.
Nếu thế thì hàm của _huuthang_bd đúng, hàm phuocam và snow25 sai.
2. Kết quả phải là 100,1245,20
Nếu thế thì hàm của huuthang_bd sai, hàm phuocam và snow25 đú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Ộ )
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.
Hai bạn được mời đi sờ đùi gà! Hy vọng mấy bà xã chưa biết.
Sờ đùi gà thì đã là gì đâu bác? Tôi thì chả đi làm gì nhưng vài đứa bạn tôi thì ai rủ cũng đi, không ai rủ cũng đi. Nhưng chúng chỉ thích đùi gà ta thôi. Chúng nói: ngày nào cũng ăn khoai tây, giờ chỉ thè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)Sờ đùi gà thì đã là gì đâu bác? Tôi thì chả đi làm gì nhưng vài đứa bạn tôi thì ai rủ cũng đi, không ai rủ cũng đi. Nhưng chúng chỉ thích đùi gà ta thôi. Chúng nói: ngày nào cũng ăn khoai tây, giờ chỉ thèm mỗi khoai lang.
Bài viết mới nhất
- Question
- Đã giải quyết
- Question
- Question
- Question
