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

• #2411 bepken veterán bepken #2405

  Új Válasz 2014-03-11 11:39:40 #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...

  [ Szerkesztve ]

  ╔═══════ "Csak egy visszatérés létezik és az nem a királyé...hanem a JEDIÉ!" ═════╗ ╚════════════════ Xiaomi Mi A1 ═════ Huawei Nova 5T ═════════════╝

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