ledangvan > 12-10-15, 09:40 PM
(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
tranthanhan1962 > 13-10-15, 10:08 AM
(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)