Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Hàm tách lấy số trong một chuỗi cho trước
#11
(21-08-15, 02:16 PM)paulsteigel Đã viết:
(21-08-15, 12:29 PM)ongke0711 Đã viết: .....

Xin gửi thêm vào rừng cho các cụ một công cụ mạnh với việc xử lý số liệu đó là RegEx.
Về mặt khoa học, RegEx gần to bằng SQL và được sử dụng rất phổ biến trong các ứng dụng liên quan đến xử lý chuỗi.
Với riêng tình huống tách lấy số trong chuỗi thì có thể dùng code sau đây.
Ở đây ta cần chú ý đến đoạn
Optional InputPattern As String = "[\D]"
Mặc định tôi truyền tham số là tìm kiếm tất cả những gì không phải là số.
Sau đó sử dụng regex để thay thế chúng bằng chuỗi rỗng.

Các bạn có thể tham khảo nhiều trang về RegEx để biết thêm nhé.
https://www.google.com/webhp?sourceid=ch...x+tutorial


Mã:
Function GetOnlyNumber(InputText As String, Optional InputPattern As String = "[\D]") As String
    Dim regObj As Object
    Set regObj = CreateObject("VBScript.RegExp")
    With regObj
        .Global = True
        .MultiLine = False
        .IgnoreCase = False
        .Pattern = InputPattern
        If .Test(InputText) Then GetOnlyNumber = .Replace(InputText, "")
    End With
    Set regObj = Nothing
End Function

 Bác  ơi cái này nó tách số ra rồi nhưng cái số được tách ra đó nó vẫn hiểu như là chuỗi nhỉ, bác có cách nào biến nó thành số không (Mục đích tôi để sắp xếp lại bảng danh mục khách hàng : M01,M02,...M100 . Tôi sẽ tách ra thành M và 01,02,...100 và sắp xếp theo số 01,02... vừa tách)
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(12-10-15, 09:40 PM)ledangvan Đã viết:  Bác  ơi cái này nó tách số ra rồi nhưng cái số được tách ra đó nó vẫn hiểu như là chuỗi nhỉ, bác có cách nào biến nó thành số không (Mục đích tôi để sắp xếp lại bảng danh mục khách hàng : M01,M02,...M100 . Tôi sẽ tách ra thành M và 01,02,...100 và sắp xếp theo số 01,02... vừa tách)

Bạn đưa hàm GetOnlyNumber() vào trong hàm Val()
Val(GetOnlyNumber([Text]))
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ledangvan , Noname


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 291 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  Hướng Dẫn Tổng hợp hàm xử lý văn bản và chuỗi ( Có ví dụ) maidinhdan 0 315 16-04-16, 01:17 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Một số hàm D trong Access Xuân Thanh 12 6,645 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,327 21-01-16, 11:06 AM
Bài mới nhất: khanghychu
  Hướng Dẫn Demo Code Xếp hạng trong Query giống như hàm Rank trong Excel maidinhdan 0 1,190 02-03-15, 01:01 AM
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ơ