Differenze tra le versioni di "Conoscere in un array di tipo Stringa l'elemento che contiene la quantità maggiore di caratteri"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per conoscere in un array di tipo ''Stringa'' l'elemento che contiene la quantità maggiore di caratteri, si potrà utilizzare il seguente codice: '''Public''' Sub Main()...") |
|||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 16: | Riga 16: | ||
Print | Print | ||
For c = 0 To cc.Max | For c = 0 To cc.Max | ||
+ | <FONT Color=gray>' ''Individua l'indice dell'elemento contenente la maggiore quantità di caratteri:''</font> | ||
If cc[0] == String.Len(ss[c]) Then Break | If cc[0] == String.Len(ss[c]) Then Break | ||
Next | Next | ||
<FONT Color=gray>' ''Mostra l'indice dell'elemento contenente la maggiore quantità di caratteri, nonché la sua stringa:''</font> | <FONT Color=gray>' ''Mostra l'indice dell'elemento contenente la maggiore quantità di caratteri, nonché la sua stringa:''</font> | ||
− | Print "\n\ | + | Print "\n\nIndice:\e[31m\e[1m "; c, ss[c] |
'''End''' | '''End''' |
Versione attuale delle 18:58, 4 mag 2022
Per conoscere in un array di tipo Stringa l'elemento che contiene la quantità maggiore di caratteri, si potrà utilizzare il seguente codice:
Public Sub Main() Dim ss As String[] = ["1234567890", "123", "àèéìòù", "1234567", "12345"] Dim s As String Dim cc As New Short[] Dim c As Short For Each s In ss ' Assegna il valore di ciascuna quantità di caratteri: cc.Push(String.Len(s)) Next ' Ordina in modo "discendente" i valori presenti nel vettore di tipo "Short": cc.Sort(gb.Descent) Print For c = 0 To cc.Max ' Individua l'indice dell'elemento contenente la maggiore quantità di caratteri: If cc[0] == String.Len(ss[c]) Then Break Next ' Mostra l'indice dell'elemento contenente la maggiore quantità di caratteri, nonché la sua stringa: Print "\n\nIndice:\e[31m\e[1m "; c, ss[c] End