Nhờ giúp tách lấy số trong chuổi

[muaphonui_2010]

Nhờ các bạn chỉ giúp :
Giả sử mình có chuổi : "BH00123" hoặc "BH0123N" hoặc "B123NH0" hoặc "1234567" hoặc "0001234" ==> nói chung là 1 chuỗi gồm số không theo quy luật nào cả.
Vậy có hàm nào lấy được các số trong các chuổi trên không
Làm thế nào để có dc kết quả như sau :
"BH00123" = 123
"BH0123N" =123
"B123NH0" =1230
"1234567" =1234567
"0001234" =1234
Mong đựoc giúp đỡ. Xin cảm ơn

[xuanha]

Code: [Select all] [Expand/Collapse]

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2.         TextBox2.Text = Tachso(TextBox1.Text)
3.     End Sub
4.     Private Function Tachso(ByVal x As String) As String
5.         Dim i%  Dim xau$ = ""
6.         For i = 1 To x.Length
7.             If IsNumeric(Mid(x, i, 1)) Then xau = xau & Mid(x, i, 1)
8.         Next
9.         Tachso = xau
10.     End Function

GeSHi © Codebox Plus Extension

Untitled.png (10.78 KiB) Viewed 3709 times

[vuathongtin]

Cách 2: Dùng Regular Expression
(Sơ lược lý thuyết: \d : ký tự chữ số tương đương [0-9] ; \D : ký tự ko phải chữ số)

B1: Nhúng thư viện: Imports System.Text.RegularExpressions
B2:

Code: [Select all] [Expand/Collapse]

1.     Public Function loclayso(ByVal chuoi As String) As String
2.         Dim myRegex As Regex = New Regex("\D")  Dim Result = ""
3.         For Each subString As String In myRegex.Split(chuoi)
4.             Result += subString
5.         Next
6.         Return Result
7.     End Function

GeSHi © Codebox Plus Extension

[70hungpc]

Anh Xuanha và Vuathongtin cùng các Pro giúp em về phần tách số trong chuỗi với:
Vấn đề của em là: hiện đang có một chuỗi trong RichtextBox dạng : ND123 AC4054 15/10/2012...
Bây giờ cần lọc ra nhóm số sau ND (tức 123) đưa vào textbox1
lọc nhóm số sau AC (tức 4054) đưa vào textbox2
các số khác không quan tâm.
Em đã tìm hiểu các bài về tách số trong chuỗi trên diễn đãn nhưng vẫn bó tay
Mong các Pro giúp.

[xuanquy_th]

Code: [Select all] [Expand/Collapse]

1. Dim s() As String = "ND123 AC4054 15/10/2012".Split(" ")
2.         TextBox1.Text = s(0).Replace("ND", "")
3.         TextBox2.Text = s(1).Replace("AC", "")

GeSHi © Codebox Plus Extension

[70hungpc]

Cảm ơn bác xuanquy_th nhé.
sao thấy đơn giản thế, để thử xem thế nào...

[minhsonx87]

em co van de nay rat can a giup do: e co chuoi "gh78.9h" tach ra la 78.9 a giup e voi!

[1045007]

em co van de nay rat can a giup do: e co chuoi "gh78.9h" tach ra la 78.9 a giup e voi!

Code: [Select all] [Expand/Collapse]

1.  String number = Regex.Match("gh78.9h", @"\d+\.\d+").Value;

GeSHi © Codebox Plus Extension

[hapvn]

Update ham chay duoc so nguyen va so thuc

Code: Select all

Function TachSoThapPhan(ChuoiSo As String) As Double
        Dim ViTriDau, ViTriCuoi As Integer
        ViTriDau = 0
        ViTriCuoi = 0
        For i As Integer = 0 To Len(ChuoiSo)
            If ViTriDau = 0 Then
                If IsNumeric(ChuoiSo(i)) = True Then
                    ViTriDau = i
                End If
            Else
                If IsNumeric(ChuoiSo(i)) = False And ChuoiSo(i) <> "." Then
                    ViTriCuoi = i
                    Exit For
                End If
            End If
        Next
        TachSoThapPhan = Microsoft.VisualBasic.Mid(ChuoiSo, ViTriDau + 1, ViTriCuoi - ViTriDau)
    End Function