Differenze tra le versioni di "Conoscere in un array di tipo Stringa la quantità maggiore di caratteri contenuta nei suoi elementi"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per sapere in un array di tipo <SPAN Style="text-decoration:underline">Stringa</span> la quantità maggiore di caratteri contenuta nei suoi elementi, potremo usare questo algo...")
 
 
Riga 3: Riga 3:
  
 
Mostriamo un esempio pratico:
 
Mostriamo un esempio pratico:
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim ss As String[] = ["123", "1234567890", "àèéìòù", "1234567", "12345"]
 
   Dim ss As String[] = ["123", "1234567890", "àèéìòù", "1234567", "12345"]
Riga 22: Riga 22:
 
   Print "\n\n\e[31m\e[1m", cc[0]
 
   Print "\n\n\e[31m\e[1m", cc[0]
 
   
 
   
  '''End'''
+
  End

Versione attuale delle 04:06, 10 giu 2024

Per sapere in un array di tipo Stringa la quantità maggiore di caratteri contenuta nei suoi elementi, potremo usare questo algoritmo: prima assegneremo ad un vettore di tipo Short i valori delle quantità dei caratteri contenuti da ciascun elemento del vettore Stringa, poi ordinando il vettore di tipo Short in ordine "discendente" individueremo il valore superiore, che sarà ora contenuto nel primo elemento del vettore di tipo Short.
Tale valore rappresenterà la quantità maggiore di caratteri contenuta negli elementi del vettore di tipo String.

Mostriamo un esempio pratico:

Public Sub Main()

 Dim ss As String[] = ["123", "1234567890", "àèéìòù", "1234567", "12345"]
 Dim s As String
 Dim cc As New Short[]
 
 For Each s In ss
' Mostra in console semplicemente le quantità di caratteri contenute da ciascun elemento del vettore di tipo Stringa:
   Print String.Len(s),
' 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)
 
' Mostra il valore più alto, ossia la quantità superiore di caratteri contenuta dal vettore di tipo Stringa:
 Print "\n\n\e[31m\e[1m", cc[0]

End