Visual Basic 6 - ricerca nella stringa

Forum - Visual Basic 6 - ricerca nella stringa

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 10:39
Mercoledì, 01/08/2007

ciao a tutti, vorrei chiedervi una cosa

praticamente io ho una label con dentro una string del tipo    "abac"
detto questo, vorrei sapere come posso dire al programma di verificare se all'interno di questa stringa sono presenti due "a"  (come in abac) per poi mettere un ciclo if del tipo

If  'label1.caption contiene due "a"'  (hiihhi) then
msgbox "ciao"
end if

grazie mille per le risposte

c.ronaldo (Ex-Member)
Pro

Messaggi: 121
Iscritto: 05/07/2007

Postato alle 13:27
Mercoledì, 01/08/2007

Devi usare la funzione InStr..

es:

Codice sorgente - presumibilmente Visual Basic 6

InStr("StRINGA IN CUI CERCARE","Stringa da cercare!")

E potresti tenere il conto di quante volte dice si.... :k:

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 15:38
Mercoledì, 01/08/2007

ma se io metto

Private Sub Command1_Click()
Dim x As String
x = InStr("abac", "a")
MsgBox x
End Sub

mi esce 1, anche se in "abac" ci sono 2 "a"
mi potresti spiegare meglio questa funzione XD?

c.ronaldo (Ex-Member)
Pro

Messaggi: 121
Iscritto: 05/07/2007

Postato alle 17:38
Mercoledì, 01/08/2007

Ma non ti dice quante volte si ripete un carattere bensi la posizione...quindi tu fai un conto...Di tutte le volte che ti dice la posizione(Che c'è il carattere "a"),se nn c'è ti dice false!

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 21:41
Mercoledì, 01/08/2007

Testo quotato

Postato originariamente da c.ronaldo:

Ma non ti dice quante volte si ripete un carattere bensi la posizione

e non ce una funzione per sapere quante volte si ripete un carattere XD?

c.ronaldo (Ex-Member)
Pro

Messaggi: 121
Iscritto: 05/07/2007

Postato alle 23:02
Mercoledì, 01/08/2007

Usa la fantasia e la funzione detta scusa....

Tieni un conto di quante volte ti dice che esiste il carattere,incrementando un avariabile ogni volta...non è difficile dai!

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 10:49
Giovedì, 02/08/2007

forse sono diventato scemo io XD
ma non capisco una cosa

se io ho questo codice

Private Sub Command1_Click()
Dim x As String
x = InStr("abac", "a")
MsgBox x
End Sub

lui nel messaggio mi dice solo 1 volta che c'è il carattere "a", non due volte (mi dice "1", cioe sarebbe la posizione del primo carattere "a", ma poi non dice piu niente)

booh

c.ronaldo (Ex-Member)
Pro

Messaggi: 121
Iscritto: 05/07/2007

Postato alle 13:33
Giovedì, 02/08/2007

Ma il conto lo devi creare tu ....
Per esempio:

Codice sorgente - presumibilmente VB.NET

Dim str as string
Dim x1,x2 As Boolean
Dim cont as integer
Dim forcount as integer
str = "AER"
For forcount = 1 to 2
x1 = instr(str,"A")
x2 = instr(str,"B")
next
if x1 and x2 then 
MSgBox "Nella stringa è presente sia il carattere a che b!",vbokoonly + vbinformation,"Stringa"
end if
 
Questo è da quello che ho capito io