Importare dati da un file di testo e popolare un array a 2 dimensioni

[vuott]

https://lists.gambas-basic.org/pipermail/user/2021-August/074140.html

[Gianluigi]

Se io creo un file di testo con le caratteristiche comunicate da Roberto ottengo un file di 1,5 MB.
Se cerco di leggerlo Gambas si ferma alla ventesima tupla.
Era successo ieri con un mio modo e succede anche con il metodo Jussi

Forse sbaglio a creare il file magari ho frainteso, l'ho creato così:

Codice: [Seleziona]

Private Sub creoFile()
  
  Dim sPath As String = User.Home &/ "MyField.txt"
  Dim s As String = "["
  
  For r As Integer = 0 To 6000
    s &= "{"
    For c As Integer = 0 To 19
      If c = 19 Then 
        s &= "Campo " & CStr(r + 1) & c
      Else 
        s &= "Campo " & CStr(r + 1) & c & ","
      Endif
    Next
    If r = 6000 Then 
      s &= "}}"
    Else 
      s &= "}},"
    Endif
  Next
  s &= "]"
  File.Save(sPath, s)
  
End

[Gianluigi]

Ho capito dove era l'errore, io usavo per le righe:

Codice: [Seleziona]

For r As Integer = 0 To dd[0].Max

che ritorna 19 e non 6000 come erroneamente pensavo *
Se uso questo codice funziona:

Codice: [Seleziona]

Public Sub Main()

  Dim sData As String = Trim(File.Load("/home/gian/MyField.txt"))
  Dim dd As String[][]
  
  dd = ParseData(sData)
  For r As Integer = 0 To dd.Max
    For c As Integer = 0 To dd[0].Max
      Print dd[r][c];;
    Next
    Print
  Next
  Print "ROWS "; dd.Max '' è corretto !!!
End

* P.S. Pertanto il bug era solo nei miei pensieri errati, pensare troppo a volte fa male 
dd[0].Max non può che restituire le colonne o se preferite il numero dei dati presenti in quella particolare posizione dell'array di array.
Naturalmente il tutto funziona se ogni array all'interno dell'array ha un numero identico di dati.

[vuott]

...continua:

   https://lists.gambas-basic.org/pipermail/user/2021-September/074148.html

[Gianluigi]

La confusione nei miei pensieri è scaturita probabilmente dal fatto che stavo provando un altro approccio rispetto al solito Split.

Cercavo un modo per far digerire a un array 2D una stringa. 

Cerco di spiegarmi, il problema qui era: Ho un file di testo che contiene una stringa del genere:

[{Campo 10,Campo 11,Campo 12,Campo 13}},{Campo 20,Campo 21,Campo 22,Campo 23}},{Campo 30,Campo 31,Campo 32,Campo 33}},{Campo 40,Campo 41,Campo 42,Campo 43}},{Campo 50,Campo 51,Campo 52,Campo 53}},{Campo 60,Campo 61,Campo 62,Campo 63}},{Campo 70,Campo 71,Campo 72,Campo 73}}]

Visto che in Gambas si può creare un array in linea ( http://gambaswiki.org/wiki/lang/array?l=it ) volevo vedere se cambiando la stringa così:

[["Campo 10","Campo 11","Campo 12","Campo 13"],["Campo 20","Campo 21","Campo 22","Campo 23"],["Campo 30","Campo 31","Campo 32","Campo 33"],["Campo 40","Campo 41","Campo 42","Campo 43"],["Campo 50","Campo 51","Campo 52","Campo 53"],["Campo 60","Campo 61","Campo 62","Campo 63"],["Campo 70","Campo 71","Campo 72","Campo 73"]]

sarei poi riuscito a passarla ad un array 2D.

Per ottenere ciò, dato 's' come prima stringa, ho usato:

Codice: [Seleziona]

  s = Replace(s, "{", "[\"")
  s = Replace(s, ",C", "\",\"C")
  s = Replace(s, "}}", "\"]")

Val() è limitato e non adatto allo scopo, purtroppo i miei sforzi si sono infranti contro la mia ignoranza :-(

Col solo risultato di distrarmi sull'altro fronte... 

[Gianluigi]

Mentre scrivevo mi è venuto in mente gb.eval, ma sono dovuto uscire.
Ora ho provato e sembra funzionare:
 

Codice: [Seleziona]

  dd = Eval(s)
  Print dd[3][3]

Restituisce 'Campo 43'

Notte 

P.S. Ma è sconsigliato usarlo in quanto non sopporta oltre le 45 tuple (Espressione troppo complessa)
Niente male però...