Hàm tách số từ trong chuỗi

[PhanTuHuong]

Trong một chuỗi gồm cả số và chữ, hàm RemoveNonNumeric dưới đây sẽ tách các số đó. Các số rời rạc được sắp xếp với nhau thành một con số để có thể tính toán được. Hàm này ngắn gọn hơn hàm trong sách Lập trình VBA

'Nguồn từ tác giả Andrew Baker trang www.vbusers.com'
Function RemoveNonNumeric(sNumberToClean As String) As String
  Const NUMERIC_CHARS = "0123456789.,"
  Dim lThisChar As Long 
  Dim sResult As String
  For lThisChar = 1 To Len(sNumberToClean)
    If InStr(1, NUMERIC_CHARS, Mid$(sNumberToClean, lThisChar, 1)) > 0 Then
       'Found a numeric character'
       sResult = sResult + Mid$(sNumberToClean, lThisChar, 1)
    End If
  Next
  Return the result
  RemoveNonNumeric = sResult
End Function 

Kết quả như ở hình 18-16 dưới đây:

[ndu96081631]

Thầy ơi! Tôi nghĩ cái này mới là vô địch đây:
Tách số không dùng vòng lặp

[hoangdanh282vn]

Function StrNonNum(Str As String) As String
Dim i as long
For i = 1 To Len(Str)
If IsNumeric(Mid(Str, i, 1)) Then StrNonNum = StrNonNum + Mid(Str, i, 1)
Next
End Function 

Và đây là hàm ngược lại với hàm trên :

Function StrNonText(Str As String) As String
StrNonText = Replace(Replace(Replace(Replace(Replace(Replace _
(Replace(Replace(Replace(Replace(Str, "0", ""), "1", ""), "2", "") _
, "3", ""), "4", ""), "5", ""), "6", ""), "7", ""), "8", ""), "9", "")
End Function 

[tudong]

Bạn có thể giúp mình cách cài hàm tách số từ trong chữ hay không

[Nguyễn Duy Tuân]

Thầy ơi! Tôi nghĩ cái này mới là vô địch đây:
Tách số không dùng vòng lặp

Function TachSo(Cell As Range) As Double
  Set Temp = CreateObject("VBScript.RegExp")
  Temp.Global = True
  Temp.Pattern = "[^0-9]"
  TachSo = Temp.Replace(Cell, "")
End Function

Trên là code sử dụng thư viện của VBScript với ứng dụng Class của nó là RegExp. Đứng về góc độ lập trình thì để làm được việc ngắn gọn trên, các nhà lập trình cũng phải viết những mã lệnh xử lý và có lẽ vẫn là dùng vòng lặp. Quá trình làm việc đó được gói trong một Class với hàm Replace. Việc ngắn gọn đó là do ta nhìn về hình thức thôi. Việc tốc độ chạy nhanh hay không em chưa có dịp so sánh nhưng VBScript được lập trình bằng C++ bởi các chuyên gia MS thì chắc tốc độ là rất nhanh.

Nếu hàm trên anh Hướng viết trong DLL rồi nó cài vào máy, người ta chỉ cần viết thế này

Function TachSo(Cell As Range) As Double
  Set Temp = CreateObject("VB6DLL.TACHGIATRI")
  Temp.RemoveNonNumeric(Cell)
  Set Temp = Nothing
End Function

Một người nào đó nhìn vào code trên lại thấy "ngắn gọn quá, không dùng vòng lặp".

Nói vậy chứ em quan điểm vẫn thích áp dụng tối đa những thư viện đã có trong hệ thống, hoặc các thư viện được cung cấp free mà nó đã được thừa nhận là tốt. Mình tận dụng nó để làm ra những cái có một giá trị mới. Cần viết riêng trong trường hợp tin rằng cái của mình là tối ưu hơn hoặc để học tập.

[tipil]

Nếu em muốn tách số trong dãy ký tự này thì sao ạ?
12/03/2010

[hoangminhtien]

Nếu em muốn tách số trong dãy ký tự này thì sao ạ?
12/03/2010

Trong trường hợp của bạn, bạn chọn toàn bộ vùng cần chuyển, vào Format Cells...(Ctr+1) chọn tab number, chọn Custom rồi định dạng ddmmyyyy trong hộp Type. Sau đó nhấn OK

[tuandovn]

Em có một dãy ký tự gồm cả số và chữ vd: mã thẻ bảo hiểm 52300725716TC52117. Giờ em muốn tách lấy thành 1 cột có 2 ký tự chữ trong chuỗi trên. Xin được giúp đỡ.

[hoanggiaovien]

Trong trường hợp của bạn, bạn chọn toàn bộ vùng cần chuyển, vào Format Cells...(Ctr+1) chọn tab number, chọn Custom rồi định dạng ddmmyyyy trong hộp Type. Sau đó nhấn OK

Nhờ Bác hướng dẫn cụ thể cho em với. em muốn tách: 23/03/2011 thành cột ngày 23 tháng 03 và năm 2011 riêng để tính nhưng không được. Cứ lớn hơn 12 là báo lỗi

[adua29]

Nhờ Bác hướng dẫn cụ thể cho em với. em muốn tách: 23/03/2011 thành cột ngày 23 tháng 03 và năm 2011 riêng để tính nhưng không được. Cứ lớn hơn 12 là báo lỗi

Bạn dùng các hàm day(), month(), year cho từng cột, ví dụ: A1= 23/3/2001 (định dạng ngày)
B1=day($A1); C1=month($A1); D1=year($A1)