Differenze tra le versioni di "Cercare la seconda occorrenza di una lettera fra tre o più"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Se è necessario cercare la seconda occorrenza di una lettera fra tre o più uguali all'interno di una stringa, si potrà utilizzare la funzione ''InStr()'' come nell'esempio ...') |
|||
| (3 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
Se è necessario cercare la seconda occorrenza di una lettera fra tre o più uguali all'interno di una stringa, si potrà utilizzare la funzione ''InStr()'' come nell'esempio che segue. | Se è necessario cercare la seconda occorrenza di una lettera fra tre o più uguali all'interno di una stringa, si potrà utilizzare la funzione ''InStr()'' come nell'esempio che segue. | ||
| − | Poniamo il caso di trovare all'interno di una parola la seconda occorrenza della lettera "a": | + | Poniamo il caso di trovare all'interno di una parola la seconda occorrenza della lettera "a": |[[#Note|1]]| |
| − | + | Public Sub Main() | |
Dim s As String = "g<B>a</b>mb<FONT color=#B22222><B>a</b></font>si<B>a</b>no" | Dim s As String = "g<B>a</b>mb<FONT color=#B22222><B>a</b></font>si<B>a</b>no" | ||
| + | Dim b As Byte | ||
| + | |||
| + | b = InStr(s, "a", InStr(s, "a") + 1) | ||
| + | |||
| + | Print b | ||
| + | |||
| + | End | ||
| + | Il risultato in console sarà coerentemente: 5 | ||
| + | |||
| + | |||
| + | |||
| + | =Note= | ||
| + | [1] Volendo trovare la terza occorrenza di una lettera fra quattro esistenti all'interno di una parola, si utilizzerà in modo analogo la funzione ''RInStr()': | ||
| + | Public Sub Main() | ||
| + | |||
| + | Dim s As String = "s<B>a</b>l<B>a</b>m<FONT color=#B22222><B>a</b></font>ndr<B>a</b>" | ||
Dim b As Byte | Dim b As Byte | ||
| − | + | b = RInStr(s, "a", RInStr(s, "a") - 1) | |
| − | + | Print b | |
| − | + | End | |
| − | |||
Versione attuale delle 16:45, 23 giu 2023
Se è necessario cercare la seconda occorrenza di una lettera fra tre o più uguali all'interno di una stringa, si potrà utilizzare la funzione InStr() come nell'esempio che segue.
Poniamo il caso di trovare all'interno di una parola la seconda occorrenza della lettera "a": |1|
Public Sub Main() Dim s As String = "gambasiano" Dim b As Byte b = InStr(s, "a", InStr(s, "a") + 1) Print b End
Il risultato in console sarà coerentemente: 5
Note
[1] Volendo trovare la terza occorrenza di una lettera fra quattro esistenti all'interno di una parola, si utilizzerà in modo analogo la funzione RInStr()':
Public Sub Main() Dim s As String = "salamandra" Dim b As Byte b = RInStr(s, "a", RInStr(s, "a") - 1) Print b End
