Matrice di caratteri di una stringa di testo

[vuott]

https://foro.gambas-es.org/viewtopic.php?f=5&t=7148

[Gianluigi]

Fermo restando, a mio avviso, l'impossibilità di non ricorrere a un loop per ottenere una matrice di caratteri, prendendo spunto da questa lezione, 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

 

[Gianluigi]

E ora abbiamo nuove chance:
https://lists.gambas-basic.org/pipermail/user/2018-September/065515.html