Funzione Scan

[Gianluigi]

A proposito della funzione Scan se andate sulla guida in linea attualmente trovate questo esempio:

Codice: [Seleziona]

Dim sRisultato As String
Dim sLinea As String
Dim sElt As String

Exec "df" To sResult

For Each sLinea In Split(sRisultato, "\n")
  For Each sElt In Scan(sLinea, "* * * * *")
    Print sElt; "|";
  Next
  Print
Next

che contiene due errori.
Chi li trova per primo vince un chilo di fieno per capre appenniniche.

 

[vuott]

contiene due errori.

E' vero.
Il secondo è davvero grave.   

Lascio ai nuovi membri del forum la soluzione.

[Gianluigi]

Invero se andiamo a guardare meglio gli errori sono tre 

 

[kicco]

 

Codice: [Seleziona]

Exec ["df"] To sRisultato

Questo è uno?
Poi quel PRINT per andare a capo...

[kicco]

...ma nell'esempio su gambaswiki.org non ci sono errori!
Da dove hai preso l'esempio?

[kicco]

Ho capito hai preso l'esempio in italiano che è "cannato", switch(ia) in inglese e ....
 

[Gianluigi]

  È inutile che fai il furbo per deviare l'attenzione, noi siamo italiani e se diamo un F2 sulla parola chiave otteniamo quell'esempio riportato a inizio Topic.
Tu hai scoperto l'errore più grave ma ce ne sono altri due, se non li scovi niente biada e a letto senza cena 

E comunque un errore c'è pure nell'esempio inglese 
 

[Gianluigi]

Noto una cosa: Ti sei accorto del grave errore su Exec perché lo hai raffrontato con quello in inglese, ma non puoi farlo andare e vedere cosa ti dice Gambas?
Due li indica per il terzo occorre essere Guru Guru e Occhi di Lince 

[kicco]

Ti sei accorto del grave errore su Exec perché lo hai raffrontato con quello in inglese

No! Come puoi notare prima ho trovato l'errore, e l'ho fatto solo controllando la sintassi di EXEC.
Poi mi sono accorto dell'errore nella versione italiana approfondendo la questione (e qua ci sarebbe già un punto in più per la buona volontà!).
più un punto per l'errore grave (il mio primo punto  ) e non me lo porta via nessuno...

Tu hai scoperto l'errore più grave ma ce ne sono altri due, se non li scovi niente biada e a letto senza cena

Intanto apro una bella bottiglia per brindare!!!

noi siamo italiani

io sono italiano professionista...

..ma il codice gira correttamente, gli altri sono solo errori formali?

[kicco]

Codice: [Seleziona]

 For Each sElt In Scan(sLine, "* * * * * *")

mancava un asterisco...
E anche qui un punticino??
...

[Gianluigi]

Codice: [Seleziona]

 For Each sElt In Scan(sLine, "* * * * * *")

mancava un asterisco...
E anche qui un punticino??
...

 

Per un po la biada non mancherà 

Hai vinto, l'altro era un refuso, era rimasta la variabile in inglese sResult nella frase Exec.
Se l'esempio lo si scrive così, si capisce meglio:

Codice: [Seleziona]

Public Sub Main()

  Dim sRisultato As String
  Dim sLinea As String
  Dim sElt As String
  Dim b As Byte
  
  Exec ["df"] To sRisultato
  
  For Each sLinea In Split(sRisultato, "\n")
    Print "-----------------------------------------------------------------------------------------------------"
    For Each sElt In Scan(sLinea, "* * * * * *")
      b = (16 - Len(sElt))
      Print sElt; Space(b); "|";      
    Next
    Print    
  Next

End

  

[kicco]

così, si capisce meglio:

direi proprio di sì

[Gianluigi]

così, si capisce meglio:

direi proprio di sì

Però Fyle | System che scivola di un posto sballa tutto comunque altrimenti potevano andare anche 5 asterischi.
Insomma Scan funziona un po così così

 

[vuott]

Poi quel PRINT per andare a capo...

Perché sarebbe un errore ?

[kicco]

Perché sarebbe un errore ?

non un errore, è usato per andare a capo, stavo cercando qualcosa di più "elegante", Print in effetti funziona!