[risolto[...]]esiste una funzione che cerca un crt all'interno di una stringa

[simo97]

non ne conosco le proprietà...
mai usata...
vedrò..ma non mi piace limitarmi la vita...
alla fine si dovra comunque lavorare con le stinge...

in teoria solo l'utente non può inserire le lettere il programma volendo dovrebbe poterlo fare...

grazie per i molti consigli pastrano...

[pastrank]

non ne conosco le proprietà...
mai usata...
vedrò..ma non mi piace limitarmi la vita...
alla fine si dovra comunque lavorare con le stinge...
in teoria solo l'utente non può inserire le lettere il programma volendo dovrebbe poterlo fare...

Non e' che l'uso sia cosi' difficile, se dopo 20 secondi che la stavo usando l'avevo capito io. Ne pare una limitazione, non sei obbligato a usarla ovunque ma solo dove serve, e dubito anche che appesantisca il programma, visto che e' solo una textbox "filtrata"

[simo97]

hai anche ragione....

ma tornando al principio....

allora non c'è un funzione di ricerca e alla fine mi dà il numero di caratteri trovati in una stringa...
ne creo una...

[vuott]

allora non c'è un funzione di ricerca e alla fine mi dà il numero di caratteri trovati in una stringa...

A me non risulta.

ne creo una...

E' la cosa più sensata. 

[Picavbg]

Se non ho capito male, si vuole limitare l'input ai soli caratteri numerici dentro una TextBox.
Il controllo si risolve assai facilmente, facendo intervenire l'evento "KeyPress", al cui interno si può testare il singolo crt(carattere) digitato e scartare tutti i caratteri diversi dai numeri:

Codice: gambas [Seleziona]

$Como = Key.Text
 Select Case $Como
              Case "a" to "z", "A" to "Z",".", ",", ecc.....
                    Stop Event
 End Select

Attenzione perchè oltre ai crt alfanumerici, esistono anche i Key.Code corrisoppondenti ai tasti funnzione, ai tasti "Invio", "Tab",...
 

[9bit]

Oppure:

Codice: gambas [Seleziona]

Public Sub Filtro()
  If Key.Text Like "[^0-9.]" And Asc(Key.Text) > 31 Then
    Stop Event
  Else If Key.Text Like "." And InStr(text.Text, ".") Then
    Stop Event
  End If
End

Inserisce numeri e un solo punto (.)

Ps: da inserire nell'evento _KeyPress()

[Picavbg]

Oppure:

Codice: gambas [Seleziona]

Public Sub Filtro()
  If Key.Text Like "[^0-9.]" And Asc(Key.Text) > 31 Then
    Stop Event
  Else If Key.Text Like "." And InStr(text.Text, ".") Then
    Stop Event
  End If
End

Inserisce numeri e un solo punto (.)

Ps: da inserire nell'evento _KeyPress()

l'istruzione successiva alla if ... Else
 

Codice: [Seleziona]

Else If Key.Text Like "." And InStr(text.Text, ".") Then
    Stop Event

mi sembra ridondante rispetto alla precedente, in quanto già la

Codice: [Seleziona]

 If Key.Text Like "[^0-9.]" And Asc(Key.Text) > 31 Then
    Stop Event

è sufficiente a trascurare il "."

Non vengono però trascurati tutti i crt digitati con CTRL+tasto-qualsiasi. Quindi bisogna estendere il controllo anche su combinazioni come quella appena indicata.
 

[simo97]

 
dovevo crearla io!!!
grazie per le "soluzioni"...

ok ma avevo qualcosa di diverso in mente...

[simo97]

Codice: gambas [Seleziona]

Public Function ricerca(testo As String, lettera As String) As Integer
Dim count, lef, righ, l As Integer
Dim lung As Integer = Len(testo)
Dim lett, par As String
count = 0
lef = 0
righ = lung
For l = 1 To lung
  lef += 1
  righ -= 1
  par = Left(testo, lef)
  lett = Right(par, righ)
  If lett = lettera Then
    count += 1
  Endif
Next
  Return count
End

perchè non funziona

comunque et voila!!

[vuott]

ok ma avevo qualcosa di diverso in mente...

...oddio, la ceskhonite ! 

[simo97]

...cronica

[vuott]

perchè non funziona

Comunque, io non ho capito soprattutto una cosa: sei partito con il cercare semplicemente una lettera all'interno di una riga, e che il risultato fosse di tipo booleano.... poi........    

[simo97]

poi sono finito a creare una funzione che restituisce il numero di caratteri trovati in un qualunque testo...

[vuott]

poi sono finito a creare una funzione che restituisce il numero di caratteri trovati....

Quindi in quest'ultimo codice l'obiettivo vuoi raggiungere è conoscere il numero complessivo dei caratteri trovati ?

Ma sembra che la variabile di tipo stringa lettera verrà sempre a contenere un carattere da cercare... e quindi il risultato sarà sempre 1 !  

...o forse tu vuoi sapere quante volte la medesima lettera è presente in una riga ?!

[simo97]

vuott non ti seguo....

la variabile lettera è il carattere da cercare all'interno del testo....
la variabile lett invecie dovrebbe essere un carattere singolo del testo