Comunque ho dovuto fare un programma che legge, elabora e riscrive file .csv (quelli di excel per intenderci). Il modulo che presento qui contiene 2 funzioni: la prima serve a importare un file .csv all’interno di un array bidimensionale per permetterne l’elaborazione mentre, la seconda, serve a prendere i dati di un array bidimensionale e esportarlo come file .csv . Non posto spiegazioni per il momento, ma se vi interessa sarò felice di rispondere alle vostre domande sui commenti (il codice comunque è semplice e si dovrebbe spiegare da se anche se purtroppo non posso inserire le indentature).

Imports System.IO

Module Module2

 Public Sub csv_parsing(ByVal csv_file As String, ByVal array(,) As String)

 Dim riga As String = ""
 Dim testo As String = ""
 Dim lettera As String
 Dim k As Integer
 Dim x As Integer
 Dim y As Integer

 Dim readFile As System.IO.TextReader = New StreamReader(csv_file)

 While True
 riga = readFile.ReadLine()
 If riga Is Nothing Then
 Exit While
 Else
 k = 1
 While True
 lettera = Mid(riga, k, 1)
 If lettera = "" Then
 array(y, x) = testo
 testo = ""
 x = 0
 Exit While
 Else
 If lettera = ";" Then
 array(y, x) = testo
 testo = ""
 k = k + 1
 x = x + 1
 Else
 testo = testo + lettera
 k = k + 1
 End If
 End If

 End While
 y = y + 1
 End If
 End While
 readFile.Close()

 End Sub

 Public Sub csv_write(ByVal array(,) As String, ByVal nomefile As String)

 Dim cella As String = "asd"
 Dim k As Integer
 Dim linea As String
 Dim correggi As Integer = 0

 Using writer As StreamWriter = New StreamWriter(nomefile)
 Do While cella <> Nothing

 linea = ""
 cella = array(k, 0)
 For x = 0 To array.GetUpperBound(0)
 linea = linea & array(k, x) & " ; "
 Next
 writer.WriteLine(linea)
 k = k + 1
 Loop
 writer.Close()
 End Using

 End Sub

End Module

No related posts.

Articoli correlati elaborati dal plugin Yet Another Related Posts.

Related posts:

1. CaveRun: Implementato l’accelerometro Ho implementato l’accelerometro per tutti i 3rd FP1 grazie al...
2. Porting di CaveRun su S60 Finalmente ho un pò ti tempo per provare a giocare...

Articoli correlati elaborati dal plugin Yet Another Related Posts.

Related posts:

1. CaveRun ha una Grafica! E dopo aver capito per bene come disegnare sui canvas...
2. Porting di CaveRun su S60 Finalmente ho un pò ti tempo per provare a giocare...

Articoli correlati elaborati dal plugin Yet Another Related Posts.

Oggi in un ora circa ho realizzato la base di un idea che ho in testa da tempo: il porting di CaveRun. In questo semplice gioco lo scopo è quello di condurre una specie di serpente attraverso una grotta 2d evitando tutti gli ostacoli. Il sistema di controllo è molto semplice perchè si gioca con un solo tasto ( in questo caso il tasto centrale) e se premuto il serpente sale, altrimenti scende. Per ora ho realizzato il controllo del serpente ( approsimativo quindi sicuramente lo migliorerò ).

Il gioco per ora è molto fludio anche se nel video non sembra perchè ho dovuto registrare lo schermo con remote s60 professional e poi catturare la porzione di schermo del pc con Camstasia recorder, quindi ho perso qualche frame per strada

Cosa ne pensate? può andare come progettino per il prossimo periodo xD

Aggiornamento:

Ecco qui il primo semplice ed incompleto algoritmo per la creazione e animazione degli ostacoli!

Altro aggiornamento:

Ho modificato il codice del serpente per avere un movimento più fluido e scriptato un piccolo algoritmo per la collisione con gli ostacoli…tutto abbozzato ancora e so già come migliorarlo però purtroppo ora non ho tempo

Related posts:

1. CaveRun: Implementato l’accelerometro Ho implementato l’accelerometro per tutti i 3rd FP1 grazie al...
2. CaveRun ha una Grafica! E dopo aver capito per bene come disegnare sui canvas...

Articoli correlati elaborati dal plugin Yet Another Related Posts.