Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Transform a txt file to xml
Message
 
À
26/09/2006 03:53:09
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01157163
Message ID:
01157170
Vues:
26
Hello tore,
SELECT  PADL( ALLTRIM( Tempx.cnosecretariat) ,7 , "0" ) AS 'cnosecretariat',;
  TRANSFORM( Tempx.iemployeid , "@L 9999999" ) AS 'iemployeid',;
  Tempx.ddate,;
  Tempx.iplanpauseid,;
  SurSalaire,;
  PADL( TRANSFORM( INT( SUM( totheure ) * 100 )), 4  , "0" ) AS 'TotHo' ,;
  MAX( Planpause.cnom ) AS 'cnomPlanpause',;
  MAX( PADL( Planpause.cnomsecsocial , 4 , "0" ) ) AS 'cnomsecsocial',;
  SPACE(4) AS cSdCode ,;
  MAX( IIF( ISNULL( D.djour ) , .F. , .T. )) AS 'jf',;
  MAX( Planpause.lnuit ) AS 'lnuit',;
  MAX( 'K' ) AS 'cType',;
  PADL( ALLTRIM( ls_numdossier ) ,7 , "0" ) AS 'cSdNummer';
  FROM Tempx ;
  INNER JOIN Planpause	ON  Tempx.iplanpauseid = Planpause.iid ;
  INNER JOIN Securit ON  Securit.itelephoneid = Tempx.itelephoneid ;
  LEFT JOIN DatesFiltred D ON D.djour = Tempx.ddate ;
  GROUP BY 1,2,3,4,5 READWRITE INTO CURSOR CursorFinal

SELECT cursorfinal

*-- Transforme éventuellement un code de centralisation
*-- en fonction d'un sursalaire. Ex : 0010 devient 0011 le samedi.
UPDATE cursorfinal SET cSdCode = THIS.cSdCodeFind()

SET SAFETY OFF

clocToExport = "c:\"
cNameToExport = "ExportSd.txt"
THIS.cNameToExport = clocToExport  + cNameToExport
*-- 08/2006 Le nom du fichier est à modifier ?
COPY TO ( THIS.cNameToExport )  TYPE SDF FIELDS ;
  cSdNummer,;
  cnosecretariat ,;
  cType,;
  ddate,;
  cSdCode,;
  TotHo
This file is on http://www.Amline.be/Ng/ExportSd.txt


>>Hi all,
>>
>>i want to transform a txt file to xlm file.
>>is ' t possible ?
>>I search a sample...( with xlmadapter if possible ...)
>>
>>Thankin advance for the answer...
>>
>>bernhart
>
>What is the contents of the txt like, is it plain text or some sort of tables?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform