2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Új hozzászólás Aktív témák

  • #2411 bepken veterán bepken #2405
    Új Válasz #2411
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    bepken

    veterán

    válasz bepken #2405 üzenetére

    azt hiszem, a telefonszám "konvertálást" is sikerült megoldani, bár a gyakorlatban még csak pár példával próbálkoztam:

    Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click

    txtFind.Paste()
    txtFind.Text = Replace(txtFind.Text, " ", "")
    txtFind.Text = Replace(txtFind.Text, "/", "")
    txtFind.Text = Replace(txtFind.Text, "(", "")
    txtFind.Text = Replace(txtFind.Text, ")", "")
    txtFind.Text = Replace(txtFind.Text, "-", "")
    txtFind.Text = Replace(txtFind.Text, "+", "")

    If txtFind.TextLength > 7 Then

    If txtFind.Text.StartsWith("06") Then
    txtFind.Text = txtFind.Text.Substring(2)
    End If
    If txtFind.Text.StartsWith("36") Then
    txtFind.Text = txtFind.Text.Substring(2)
    End If

    End If

    TelBindingSource.Filter = "[tel] = '" & Me.txtFind.Text & " ' "
    End Sub

    így elviekben a vágólapra vett (legtöbbször keszekusza formátumú) számokat szépen "letisztítja" és ezután keres az adatbázisban

    mennyire elegáns ez így szerintetek?

    illetve arra nem jöttem még rá, hogyan lehetne megoldani, hogy a TextBox-ban található értéket minden alkalommal alapból felülírja.
    nem hozott megoldást az sem, ha beállítottam, hogy 7 karakter hosszú legyen a TextBox, mert ekkor alapból az első 7 karaktert kezdte vizsgálni, ami meg ugye esetemben nem igazán előnyös...

Új hozzászólás Aktív témák