Conversione dati su excel

[phylum]

=CODICE.CARATT(SE(HEX.DECIMALE(SINISTRA($A1;2))>0;HEX.DECIMALE(SINISTRA($A1;2));32)) & CODICE.CARATT(SE(HEX.DECIMALE(DESTRA($A1;2))>0;HEX.DECIMALE(DESTRA($A1;2));32))

Carattere: Terminal

ma questo vale solo a scopo "videoludico" (00 nn e' accettato da Excy )

se ne devi creare un file vero e proprio devi usare winhex o almeno una macro che scriva direttamente su file.

[quenci]

Accidenti, fortissimo. Infinite grazie.

Quindi a me basterebbe copiare ogni risultato di questa formula e salvarli nella sequenza desiderata in un file. E' esatto?

Ora non mi resta che fare una procedurina per creare il file con questi dati e lì sono nei guai, nel senso che nella programmazione sono rimasto fermo ai tempi del QBASIC, TurboPascal e MS-DOS con gli M24 delle superiori, quindi immagino che devo ripartire da zero con un ambiente nuovo.

Che ambiente mi consigli da studiare e per fare una cosa come questa?

[phylum]

beh nn e' che tu debba cercare molto lontano...
in excel puoi usare "quel tuo vecchio" basic

[quenci]

cioè posso fare qualcosa su QBASIC per leggere qualcosa in un file excel?

[phylum]

of course

ma comunque nel tuo caso nn sarebbe nemmeno necessario...(intendo per ricopiare il foglio elaborato su un file di testo basta che scegli salva con nome e formato testo...- il che pero' come detto in precedenza "taglia fuori" 00)

comunque:

in excel puoi usare il VBa(visual basic for application)
che e' molto simile al tuo "vecchio" quickbasic

nel senso che per creare il famoso file...
Open "percorsofile\file.dat" For Output/(o Binary) as #numero...
etc.

mentre se vuoi i riferimenti ai valori nei fogli di calcolo...
Foglio1.Cells(X,Y) X = Riga, Y = Colonna (puoi usare anche le lettere)


il che ti porta anche a

For i = 1 to 100
Foglio1.Cells(i,"A")
Next

che...
volendo interagire col foglio diventa:

Dim Cella As String
Dim PrimoByte As String
Dim SecondoByte As String
dim i as Integer

for i = 1 to 100

Cella = Foglio1.Cells(i, "A") ' leggo i valori
PrimoByte = Chr(Val("&H" & Left(Cella, 2))) ' cerco il carattere associato al numero hex (i primi 2 caratteri a sx)
SecondoByte = Chr(Val("&H" & Right(Cella, 2))) ' cerco il carattere associato al numero hex (e gli ultimi due a dx)
Print #miofile, PrimoByte & SecondoByte ' e mo scrivo

Next

[quenci]

mmmmh! fico! allora ci provo (domani inizio a lavorarci....)

1000 grazie Phylum! Sei stata di grandissimo aiuto

Ciao

Andrea

[phylum]