Mencari text atau angka di dalam text

Mencari angka di dalam text

Option Explicit

Private Sub Form_Load()
    Text1.Text = "Terima kasih anda sudah membantu saya silahkan hubungi 0212345678 untuk info lebih lanjut"
    Text2.Text = "0212345678"
    Text3.Text = ""
End Sub

Private Sub Command1_Click()
    Dim i   As Integer
    Dim j   As Integer
    Dim t() As String
    Dim v() As String
   
    If Len(Text1.Text) > 0 Then
        j = -1
        t = VBA.Split(Text1.Text)
               
        For i = LBound(t) To UBound(t)
            If VBA.IsNumeric(t(i)) Then
                j = j + 1
               
                ReDim Preserve v(j)
                v(j) = t(i)
            End If
        Next
       
        If j >= 0 Then Text3.Text = VBA.Join(v)
       
        Erase v
        Erase t
    End If
End Sub

Mencari Text di dalam Text

Option Explicit

    Private Sub Form_Load()
        Text1.Text = "Terima kasih anda sudah membantu saya silahkan hubungi 0212345678 untuk info lebih lanjut"
        Text2.Text = "0212345678"
        Text3.Text = ""
    End Sub

    Private Sub Command1_Click()
        Dim i   As Integer
        Dim j   As Integer
        Dim t() As String
        Dim v() As String
       
        If Len(Text1.Text) > 0 Then
            j = -1
            t = VBA.Split(Text1.Text)
                   
            For i = LBound(t) To UBound(t)
                'If VBA.IsNumeric(t(i)) Then                                             '--> Ini untuk berupa angka
                If VBA.Trim$(VBA.UCase$(t(i))) = VBA.Trim$(VBA.UCase$(Text2.Text)) Then '--> Ini untuk berupa karakter
                    j = j + 1
                   
                    ReDim Preserve v(j)
                    v(j) = t(i)
                End If
            Next
           
            If j >= 0 Then Text3.Text = VBA.Join(v)
           
            Erase v
            Erase t
        End If
    End Sub

Link : http://www.i-bego.com/visual-basic/mencari-kata-angka-didalam-teks-string-t1451.html

Posted in: VB