cercare una stringa all'interno di una stringa

[i legend]

Buon giorno a tutti spero che possiate aiutarmi. vorrei trovare una corrispondenza di una stringa all'interno di una stringamadre. Grazie all'aiuto di joe sono riuscito a costruire una stringa con le figure del 10elotto........................................................................................... esempio:estazione11/11/14:fig............13169125346794462617.................................questa ovviamente ha lunghezza fissa............................... vorrei inserendo tramite inputBox una stringa variabile non fissa 5 ,6, o più caratteri, e cercarli nella stringa madre.esempio:.................................la stringa:253467 devo cercarla senza conoscere il punto di partenza..........................................dovrei risalire alla iSR=len(stringaRicerca) ................................fare 1 ciclo che scorre la stringa madre( che controlli pos dopo posizione le stringhe) scorri stringa madre finche non trovi stringa figlio ,se non c'è esci)......chiedo scusa per la scrittira,nuovamente problemi con la textBox....grazie mille....................cordiali saluti----------------------

 

[Joe91]

Ciao I legend.

Prova con questo schemino ... a complessità incrementale.

Ove ho introdotto in sequenza alcune delle istruzioni con cui si può scrivere un algoritmo risolutore.

Sub Main

'I
L="13169125346794462617"
C="253467"
Scrivi L
Scrivi Len(L)
Scrivi
Scrivi C
Scrivi Len (C)
Scrivi

'II
For X = 1 To Len (L) 
Scrivi Mid (L,X,1) 
Next
Scrivi

'III
For X = 1 To (Len (L) - Len (C)) 
Scrivi Mid(L,X,Len(C))
Next
Scrivi 

'IV
For X = 1 To (Len (L) - Len (C)) 
Scrivi Mid(L,X,Len(C)),0,0
If Mid(L,X,Len(C)) = C Then
Scrivi " Questo pezzo è uguale !!!"
Else 
Scrivi " Diverso ... " 
End If
Next


End Sub

PS: Prova a disabilitare la compatibilità html "A/A" sui bottoni in alto a sinistra sulla "finesta dell' editor".

 

[i legend]

ciao joe grazie mille, sei GRANDE , scusa per il maiuscolo ma è proprio un urlo................................................................Pensavo che avrei dovuto usare un ciclo do invece così è semplice ed elegante.....................................Ho costruito la funzione con i parametri cerca= la stringa madre e trova stringa piccola,che restituisce true se la condizione è rispettata.....,.........Purtroppo nella finestra non compare neanche un bottone, solo una texbox vuota........neanche gli smile...............Grazie mille, per la tua gentilezza e disponibilità

 

[i legend]

comparsa la toolbar miracolosamente, ho cliccato sul primo bottone in alto a sinistra ,vediamo
che succede
Ciao e ancora grazie joe.