Gambas-it

Gambas dal mondo esterno => Spagna => Topic aperto da: vuott - 13 Settembre 2018, 18:59:55

Titolo: Matrice di caratteri di una stringa di testo
Inserito da: vuott - 13 Settembre 2018, 18:59:55
https://foro.gambas-es.org/viewtopic.php?f=5&t=7148

Titolo: Re:Matrice di caratteri di una stringa di testo
Inserito da: Gianluigi - 18 Settembre 2018, 22:00:57
Fermo restando, a mio avviso, l'impossibilità di non ricorrere a un loop per ottenere una matrice di caratteri, prendendo spunto da questa lezione (http://www.gambas-it.org/wiki/index.php?title=Verifica_%22passo-passo%22_di_ciascun_carattere_in_una_data_stringa#Conoscere_ciascun_carattere_di_una_stringa_mediante_la_funzione_String.Code.28.29), forse il seguente codice offre più possibilità:
Codice: [Seleziona]
Public Sub Main()

  Dim s As String = "Nicolò è stato impertinente 12 volte questa settimana"
  Dim ss As String[]

  Print CharForNumber(s, 6)
  Print
  ss = SerialString(s)
  For Each s In ss
    Print s
  Next
  s = "Pippo pippò molto"
  Print CharForNumber(s, 5)
  Print
  ss = SerialString(s)
  For Each s In ss
    Print s
  Next

End

Private Function SerialString(s As String) As String[]

  Dim i As Integer, ss As New String[]

  For i = 1 To Len(s)
    ss.Push(String.Chr(String.Code(s, i)))
  Next
  Return ss

End

Private Function CharForNumber(s As String, i As Integer) As String

  Return String.Chr(String.Code(s, i))

End

 :ciao: :ciao:
Titolo: Re:Matrice di caratteri di una stringa di testo
Inserito da: Gianluigi - 23 Settembre 2018, 12:14:09
E ora abbiamo nuove chance:
https://lists.gambas-basic.org/pipermail/user/2018-September/065515.html

 :ciao: