Continua la battaglia con Gambas3 per fargli digerire la conversione di un progetto in versione Gambas2.
Dopo aver corretto già un bel pò di righe di codice mi sono imbattuto in questa risposta di Gambas3 che non riesco a risolvere
Unexpected Openriferito alla parte di codice della riga 17 (che in Gambas2 è perfettamente funzionante....ma và
)
Public Sub BtnSelFile_Click()
Dim csvFile As File
Dim textLine As String
Dim items As String[]
Dim i As Integer
Dim key As Integer
Dialog.Title = "Selezione tipo File"
' Dialog.Filter = ["Comma Separated Variable files (*.csv *.log)", "All files (*)"]
' Use this in Gambas 2
Dialog.Filter = ["*.csv *.log", "Tipo files", "*", "Tutti i files"]
If Dialog.OpenFile() Then Return
' Open the file as READ only
' This will throw an error if the file does not exist
Open Dialog.Path For Read As #csvFile
CvwDati.Clear
CvwDati.Columns.Count = 1
CvwDati.Columns[0].Text = "Item 1"
' Loop through each line until the end of file.
' Eof() returns true at the end of the file.
While Not Eof(csvFile)
Line Input #csvFile, textLine
' Split each line into fields
' Note that we set the " char as an escape char
items = Split(textLine, ",", ";", "\"")
Inc key
CvwDati.Add(key, items[0])
For i = 1 To items.Count - 1
If CvwDati.Columns.Count <= i Then
CvwDati.Columns.Count = i + 1
CvwDati.Columns[i].Text = "Item " & (i + 1)
End If
CvwDati[key][i] = items[i]
Next
Wend
Close #csvFile
Catch
Message.Info("<b>Cannot load items:</b><br>" & Dialog.Path & "<hr>" & Error.Text)
' Make sure the file is closed. If the file is already closed
' or a null object then TRY will make sure we do not raise an error.
Try Close #csvFile
End
