Conoscere in un array di tipo Stringa l'elemento che contiene la quantità maggiore di caratteri
Da Gambas-it.org - Wikipedia.
Versione del 4 mag 2022 alle 18:58 di Vuott (Discussione | contributi)
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