Newsgroup: it.hobby.scacchi
Titolo: Due domande su chessbase

1) Come posso associare ad ogni partita di un database pgn il codice ECO
dell'apertura?
2) Come posso esportare i dati delle partite (giocatori, Elo, Data, ECO,
risultato) in una tabella formato Excell o in un database Access?
grazie
d

 ha scritto nel messaggio
news:kfvYa.49368$cl3.1...@news2.tin.it...

Scusa la domanda banale: ma a che ti serve esportare i dati?
Ciro

 Scusa la domanda banale: ma a che ti serve esportare i dati?
Come dicevo un paio di post più sotto vorrei fare delle statistiche, per
monitorare meglio il mio andamento nel tempo e per vedere con quali aperture
o cadenze perdo più spesso.
Insomma è Agosto e non ho nulla da fare :)
ciao
d

 ha scritto nel messaggio
news:kEvYa.49523$cl3.1...@news2.tin.it...

Allora, come sospettavo, non ti serve a nulla esportare i dati. Hai
ChessBase, ci puoi estrapolare tutte le statistiche che vuoi. Basta studiare
un pochino il manuale.
Saluti, Ciro

 un pochino il manuale.
Che non ho.
ciao
d

 ha scritto nel messaggio
news:GWyYa.50526$cl3.1...@news2.tin.it...

Cambia pirata allora, perche' con CB 8.0 come minimo dovresti avere l'help
in linea in formato CHM
Comunque, se proprio vuoi tagliare la testa al toro, dato che sai usare
Access puoi processare direttamente il file PGN per generare le informazioni
che ti interessano
In pratica:
- Converti il PGN nel formato ChessBase (Tasto DX sul file PGN)
- Assegna i codici ECO (menu' Strumenti|Classificazione)
- Esporta nuovamente in PGN (ovvero fai un PGN vuoto e trascinaci sopra il
db convertito)
A questo punto hai un PGN con i codici ECO, con Chessbase hai finito
In Access crea una routine di questo tipo:
Dim ff          As Integer
Dim Line1       As String, Line2 As String
Dim Eco         As String
Dim Result      As String
Dim HasWhite    As Boolean
Dim TempArray() As String
ff = FreeFile
Open "c:\a.pgn" For Input As #ff
Do While Not EOF(ff)
    Line Input #ff, Line1
    If InStr(1, Line1, "[Event ", vbBinaryCompare) Then
        'e' l'inizio di una nuova partita
        'leggiamo tutti gli altri tag per trovare risultato
        'colore e ECO. I PGN generati da CB 8 hanno sempre i
        'tag in questo ordine:
        '[Event *]
        '[Site *]
        '[Date *]
        '[Round *]
        '[White *]
        '[Black *]
        '[Result *]
        '[ECO *]
        '[WhiteElo *]
        '[BlackElo *]
        '[PlyCount *]
        '[EventDate *]
        'Saltiamo da Site a Round
        Line Input #ff, Line2
        Line Input #ff, Line2
        Line Input #ff, Line2
        'leggiamo il nome del Bianco
        Line Input #ff, Line2
        If InStr(1, Line2, "larsenb", vbBinaryCompare) Then
            HasWhite = True
        Else
            HasWhite = False
        End If
        'saltiamo il nero perche' andiamo per esclusione
        Line Input #ff, Line2
        'leggiamo il risultato
        Line Input #ff, Line2
        TempArray = Split(Line2, """")
        'abbiamo trovato i tre token separati da ", il valore e' sempre
quello di mezzo
        Result = TempArray(1)
        'leggiamo il codice ECO, vedi sopra
        Line Input #ff, Line2
        TempArray = Split(Line2, """")
        Eco = TempArray(1)
        'a questo punto hai tutti i dati che cercavi per la singola partita:
        'Risultato, colore con cui giocavi, apertura.
        'Puoi inserire un record nella tua tabella e passare alla prossima
partita
        '[...]
    End If
Loop
Close #ff
Vedi un po' se ne cavi qualcosa...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 ha scritto nel messaggio
news:05BYa.39019$sj6.8...@tornado.fastwebnet.it...
[SNIP]
Una piccola correzione:
in questa istruzione
If InStr(1, Line2, "larsenb", vbBinaryCompare) Then
"larsenb" e' il mio nick su FICS, tu devi inserire il tuo nome cosi' come
compare nel PGN



Grazie infinite! Spero di riuscirci, anche se non uso Access da anni e pure
allora andavo poco oltre il livello utente.
Eventualmente chiederò aiuto alla morosa che è ben più sapiente di me in
materia.
ciao
d


Ho visto questo programma che converte i file in formato Testo da un PGN.
http://membres.lycos.fr/refigny63/pgntxt.zip
E' adatto per importare in Access.
Ciao
Michele