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

[simo97]

ho trovato qualcosa ma mi danno la posizione mente a me servirebbe qualcosa di boolean..

tipo vogli sapere se in -stringa- è presente la lettera "a"
se è presente true
se non è presente false

esiste o me la creo...

[milio]

Instr() ?


If Instr("Ciccio","u") Then
  Print "C'e'"
Else
  Print "Non c'e'"
EndIf

[vuott]

...oppure anche così:   

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Dim b As Boolean
  
    b = CBool(InStr("alibaba", "i"))
  
' Vedo in console il risultato booleano:
    Print b

End

[simo97]

ok ma non restituisce la posizione della prima "occorrenza"..

è in un change...
dovrebbe servire per var inserire il puntino una volta sola..

Codice: gambas [Seleziona]

 If (InStr(stringa, ".") ) And (Len(stringa) > 1) Then
              lettera = "."
            Else
              lettera = ""
            Endif

non va....

[vuott]

non va....

Non va cosa con precisione ?....  

[simo97]

lo fa inserire più di una volta...(la lettera..)

[vuott]

lo fa inserire più di una volta...(la lettera..)

Perdonami, non capisco.

"Lo fa"... chi ?

Puoi essere più dettagliato e preciso ?


Ad ogni modo a me il tuo codice, posto all'interno di una  semplice Form_Open() funziona:   

Codice: gambas [Seleziona]

Public Sub Form_Open()

  Dim stringa As String = "ali.baba"
  Dim lettera As String
  

   If (InStr(stringa, ".")) And (Len(stringa) > 1) Then  
             lettera = "."  
           Else  
             lettera = ""  
           Endif 

   Print lettera

End

[pastrank]

lo fa inserire più di una volta...(la lettera..)

Se questo riguarda il controllo di cosa scrivi nel formulinux, considera anche di non farlo inserire nel textbox ma in masked edit, di evitare che si possa scrivere 1.1.1 controllando con la funzione Like, e di usare anche isnumber() per controllare alla fine il tutto: non a caso, dicevo che la storia era lunga!

[vuott]

Se questo riguarda il controllo di cosa scrivi nel formulinux, ......... non a caso, dicevo che la storia era lunga!

Ahhh, ma allora la questione è all'interno di una struttura codice ben più complessa !

[milio]

ho trovato qualcosa ma mi danno la posizione mente a me servirebbe qualcosa di boolean..

....

ok ma non restituisce la posizione della prima "occorrenza"..

è in un change...
dovrebbe servire per var inserire il puntino una volta sola..

 

[simo97]

infatti servia proprio a quello...

allora spiego

ho la funzione

Codice: gambas [Seleziona]

Public Function controllo(stringa As String) As String 
  
  Dim lettera As String
  
  lettera = Right(stringa, 1)
  
  If lettera <> "" Then 
      Select Case lettera
      
          Case "0" To "9"
              lettera = lettera
          Case ","
            If InStr(stringa, ",") = 1 And Len(stringa) > 1 Then
              lettera = "." 
            Else
              lettera = ""
            Endif
          Case "."
            If (InStr(stringa, ".")) And (Len(stringa) > 1) Then
              lettera = "." 
            Else
              lettera = ""
            Endif
          Case "-"
            If (Left(stringa, 1) = "-") And (Len(stringa) > 1) Then ''ricontrollare
              lettera = ""
            Else
            lettera = "-"
            Endif
          Case Else 
              lettera = ""
      End Select
   
  stringa = Left(stringa, Len(stringa) - 1) & lettera
  
  Endif
  Return stringa
  
End 

che uso

Codice: gambas [Seleziona]

public sub text_change
text.text=controllo(text.text)
end

(credo che l'abbia scritta vuott..)

doveva servire a confermare che il testo inserito nella text sia veramente un float...
però la funzione non è completa...

[simo97]

Se questo riguarda il controllo di cosa scrivi nel formulinux, ......... non a caso, dicevo che la storia era lunga!

Ahhh, ma allora la questione è all'interno di una struttura codice ben più complessa !

è sempre in qualcosa di più complesso

[milio]

Puoi spiegare a cosa ti serve questo controllo?

[simo97]

lavorando solo con i numeri
doveva servire a limitare l'accesso alle text ai soli numeri e di non permettere di inserire più di un puntino/meno, in quel caso non sarebbe un numero e derebbe errore...

è difficile da spiegare...
forse così va meglio
con formulinux avevo inserito la funzione -controllo-
però non è completa perche ti permette di fare una cosa del genere 1.2.5 oppure 6-9.6.3 e si riuscirebbe anche a fare fg20 scrivendo prima il 20....
ora io dovrei completare la funzione...

[pastrank]

lavorando solo con i numeri

Aspetta (e ricorda che di solito faccio tutt'altre cose, quindi non sono abituato). Intanto guarda qui, ci ho ripensato adesso:
http://gambasdoc.org/help/comp/gb.form/valuebox?show&v3

Poi i controlli li farai in una funzione successiva, per tutte le procedure, magari