estendere il like a tutto l'unicode

[simo97]

si ma non capisco il collegamento con il like...

[vuott]

si ma non capisco il collegamento con il like...

...questa tua discussione è un mistero assoluto.  


Ad ogni modo, se elimino tutte le righe dell'intero condizionale IF (anche quelle interne):

Codice: gambas [Seleziona]

Public Sub Form_KeyPress()  
  
     Print "verifica"

End 

ovviamente ad ogni tasto premuto viene stampata in console la stringa stabilita.

[simo97]

nooooooo veramente
 

ci capirò qualcosa prima o poi

[vuott]

..... qualunque riga di comando posta all'interno della verifica condizionale dell'IF mi viene eseguita, se premo un qualunque tasto sulla tastiera, anche combinato, ad eccezione dei numeri, della virgola, del punto, del meno e dei caratteri: è, é, à, °, ù, §, ò, ç, ì.

Ora mi domando  come mai vengono assimilati quei simboli  (è, é, à, °, ù, §, ò, ç, ì) ai caratteri posti nel pattern di Like del tuo esempio. Infatti, come ho già detto, cliccando su un tasto che li rappresenta, la riga di codice condizionta dalla verifica dell'IF, non viene eseguita.... nonostante quei caratteri non siano ricompresi nel pattern. 

[simo97]

semplicemente perchè il like rifiuta totalmente tutti gli altri caratteri dell'unicode
 
mi sono letto tutta la documentazione sul componente Regexp (gb.pcre) e non ci ho capito niente
però ho letto

PCRE Sintassi [...]
CLASSI - corrispondenti a un intervallo o un insieme di caratteri. Ad esempio, "[abc]" sarebbe partita sia a, b o c.[...]
[^ ...] Carattere negativo
[...]

e sarebbe proprio quello che fa al caso mio, ma non dice come usarlo: cosa mettere al posto del like...

[simo97]

in alternativa qualcosa che controlla se è un ASCII oppure appartiene ad un altro set...
qualcosa tipo

Codice: gambas [Seleziona]

If not  isascii(key.Text) Then  
 Stop Event   
Endif  

però cosi dovrei tralasciare alcuni caratteri, tipo le freccie etc...

[pastrank]

in alternativa qualcosa che controlla se è un ASCII oppure appartiene ad un altro set...

Io mi ripeto dicendo che controllare se e' un numero e' piu' semplice che controllare tutto quello che non dovrebbe essere.

[vuott]

in alternativa qualcosa che controlla se è un ASCII oppure appartiene ad un altro set...

però cosi dovrei tralasciare alcuni caratteri, tipo le freccie etc...

Rileggendo un po' tutta la discussione sono scoppiato a ridere   ......perché non ho capito bene ancora con precisione cosa vuoi !  

    

Voglio tenere come base il mio esempio di prima, ossia questo:

Codice: gambas [Seleziona]

Public Sub Form_KeyPress()

   If ............. Then
      Print "Scrivo in console"
   Endif

End

Dunque:
* se vuoi che premendo un numero non venga eseguita l'istruzione all'interno dell'IF, allora va bene il suggerimento di pastrank (ovviamente la soluzione pastrankiana può essere utilizzata - in modo diverso - anche se vuoi che l'istruzione venga eseguita, poiché la funzione IsNumber è comunque relativa ai numeri);

* se vuoi che venga eseguita l'istruzione all'interno dell'IF, soltanto se si preme un tasto avente come simbolo una lettera dell'alfabeto, anche se accentata (quindi niente numeri ed altri simboli), allora puoi fare così:

Codice: gambas [Seleziona]

Public Sub Form_KeyPress()

' In questo caso usiamo il "Select Case":
  Select Case key.Text
    Case "A" To "Z", "a" To "z", "ì", "è", "é", "ò", "à", "ù"
      Print "Scrivo in console"
  End Select

End

[simo97]

l'obbiettivo era e è ancora di essrere sicuro che non vengano inseriti altri caratteri oltre a quelli del like

ora, il like mi gestisce l'acii e fin qui funziona

il not isascii(...) mi gestisce il resto e va bene...

[vuott]

ora, il like mi gestisce l'acii e fin qui funziona

il not isascii(...) mi gestisce il resto e va bene...

...sembrerebbe quindi essere risolto ! 

[simo97]

si il risultato è stato trovato con questa....

Codice: gambas [Seleziona]

'' **filtro caratteri***
'' ***
'' da inserire in un keypress
'' ***
'' **ARGOMENTI:**
'' - stringa: il testo della text box da controllare
'' da inserire!!
Public Function Filtro(stringa As String)  
 If key.Text Like "[^0-9.,-]" Then
   Stop Event
 Endif
If Key.Text = "." Then
  If ricerca(stringa, ".") = 1 Then
    Stop Event
  Endif
Endif
If Key.Text = "-" Then
  If ricerca(stringa, "-") = 1 Then
    Stop Event
  Endif
Endif
If Key.Text = "," Then
  If ricerca(stringa, ".") = 1 Then
    Stop Event
  Endif
Endif
If Not IsAscii(Key.Text) Then
  Select Case Key.Text
    Case Not ""
    Stop Event
  End Select
Endif
End

  ma  
ancora non ho capito come estendere il like
gambas lo permette ma non riesco a capire come

diciamo che è risolto a metà
 

[vuott]

come posso usare le informazioni contenute qui??

Attenzione! LIKE si occupa come solo dei caratteri ASCII. Per ricercare stringhe con il set di caratteri UTF-8, Usare la gb.pcre componenti.

Prova ad attivare innanzitutto il componente in questione: gb.pcre .
Poi, potresti studiarne classi, funzioni e proprietà magari iniziando così:    

Codice: gambas [Seleziona]

Private p As New Regexp


Public Sub Form_Open()

   With p
' qui richiami le risorse della classe ponendo un punto, come di consueto...
   End With

End

[simo97]

io avevo letto tutta la documentazione
farò gli esperimenti