FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<?xml version="1.0" encoding="ISO-8859-1" ?>  
<sqlview-run> 
  <run connection="La connexion sur la base paradox">   
    <query>  
      select *  
      from latable  
    </query>  
    <output>  
      <file filename="c:\fichier.csv"  
            rewrite="true"  
            separator=";"  
            header="true"/>  
    </output>  
  </run> 
</sqlview-run>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
@Echo off  
 rem ImportPdx.cmd  
 rem Le nom du répertoire doit se terminer par un backslash '\'  
Set DirPDXExport=C:\Temp\SqlView\  
  
 rem Traiter tous les fichiers Paradox  
For %%I in (%DirPDXExport%\*.db) do call ::Traite "%%I"  
goto end  
  
:Traite  
 rem exécute le SqlView pour le fichier courant  
Call MakeXML.cmd %1 "%DirPDXExport%"  
  
SqlView.exe /run="%XmlFile%" /quit=yes  
  
:end  
rem debug  
rem echo %FileDir%@  
rem echo %FileName%@  
rem echo %DirExport%@  
rem echo %FileExport%@  
rem echo %XmlFile%@  
rem echo %DirPDXExport%@  
  
set FileDir=  
set FileName=  
set DirExport=  
Set FileExport=  
set XmlFile=  
Set DirPDXExport=

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
@echo off  
 rem MakeXML.cmd  
 rem Construit un fichier XML pour SQl-View dans le répertoire courant.  
 rem %1 = le nom du fichier de la table concernée.  
 rem %2 = le nom du répertoire où écrire le fichier CSV  
  
 rem Récupère le nom du fichier sans extension  
For /F "tokens=*" %%I in ('echo %1') do set FileDir=%%~dpI& set FileName=%%~nI  
  
 rem Supprime les guillemets du paramètre 2  
For /F "tokens=*" %%I in ('echo %2') do set DirExport=%%~dpI  
  
 rem Construit le nom du fichier XML  
set XmlFile=%FileDir%%FileName%.XML  
  
 rem Le nom fichier du fichier CSV utilisé par Sqlview  
Set FileExport=%DirExport%%FileName%.CSV  
  
 rem Supprime l'ancien fichier s'il existe  
if exist "%XmlFile%" Del "%XmlFile%" /F  
set StrConnexion=ExportPDX  
  
 rem génère le fichier XML pour la table courante  
 rem le caractère ^ permet de ne pas interpréter les symboles de redirection ^< et ^>  
echo ^<?xml version="1.0" encoding="ISO-8859-1" ?^>>>"%XmlFile%"  
echo ^<sqlview-run^>>>"%XmlFile%"  
echo  ^<run connection="%StrConnexion%"^>>>"%XmlFile%"  
echo   ^<query^>>>"%XmlFile%"  
echo    select *>>"%XmlFile%"  
rem ici on insére le nom du fichier de la table paradox concernée  
echo    from %FileName%>>"%XmlFile%"  
echo   ^</query^>>>"%XmlFile%"  
Echo    ^<output^>>>"%XmlFile%"  
Echo     ^<file filename="%FileExport%">>"%XmlFile%"  
Echo       rewrite="true">>"%XmlFile%"  
Echo       separator=";">>"%XmlFile%"  
Echo       header="true"/^>>>"%XmlFile%"  
Echo   ^</output^>>>"%XmlFile%"  
Echo  ^</run^>>>"%XmlFile%"  
Echo ^</sqlview-run^>>>"%XmlFile%"