Titolo: Esportazione dati in formato testo
Categoria: Codice |
|
Ultimo Aggiornamento: 28/04/09 |
Ecco un metodo per esportare i dati di una tabella "Tabella" in formato solo testo, con conversione del set di caratteri in formato Windows:
$vhDocRef:=Open Document("")
If (ok=1)
$tableptr:=->[Tabella]
$tablenum:=Table($tableptr->)
`prima creo la testata con i nomi dei campi
For ($j;1;Count fields($tableptr))
GET FIELD PROPERTIES($tablenum;$j;$fieldType;$fieldLength;$indexed;$unique;$invisible)
$nome:=Field name($tablenum;$j)
If ($invisible=
False)
SEND PACKET($vhDocRef;Mac to Win($nome))
SEND PACKET($vhDocRef;Char(
Tab))
End if End for SEND PACKET($vhDocRef;Char(
Carriage return))
`seleziono tutti i record
ALL RECORDS($tableptr->)
ARRAY LONGINT($arrRecNum;0)
SELECTION TO ARRAY($tableptr->;$arrRecNum)
`esporto tutto, tranne i campi Invisibili
For ($i;1;Size of array($arrRecNum))
GOTO RECORD($tableptr->;$arrRecNum{$i})
$rigadaesportare:=""
For ($j;1;Count fields($tableptr))
GET FIELD PROPERTIES($tablenum;$j;$fieldType;$fieldLength;$indexed;$unique;$invisible)
If ($invisible=
False)
$pointer:=Field($tablenum;$j)
$testodaesportare:=""
Case of : (($fieldType=Is Alpha Field ) | ($fieldType=Is Text ))
$testodaesportare:=$pointer->
$testodaesportare:=Replace string($testodaesportare; Char(
Carriage return);" ")
: ($fieldType=Is Boolean )
If ($pointer->)
$testodaesportare:="Vero"
Else $testodaesportare:="Falso"
End if Else $testodaesportare:=String($pointer->)
End case $rigadaesportare:=$rigadaesportare+Mac to Win($testodaesportare)+Char(
Tab)
End if End for SEND PACKET($vhDocRef;$rigadaesportare;Char(
Carriage return))
End for CLOSE DOCUMENT($vhDocRef)
End if
| Inviato da: PierPaolo Sichera |
|
Visite: 10541 |
Se accedi con utente e password, puoi aggiungere dei commenti.
