From: olivier <olivier@3bf09e05-f825-4182-b9bc-eedd7160adf0>
Date: Tue, 17 Jun 2008 15:18:19 +0000 (+0000)
Subject: merging last minute fixes into import raw conversion 0.1 tags
X-Git-Url: https://git.parisson.com/?a=commitdiff_plain;h=155c479d68d5159f568b366b036ebde32fa28e99;p=telemeta-data.git

merging last minute fixes into import raw conversion 0.1 tags

git-svn-id: http://svn.parisson.org/svn/crem@44 3bf09e05-f825-4182-b9bc-eedd7160adf0
---

diff --git a/tags/import_raw_conversion-0.1/export.4d.txt b/tags/import_raw_conversion-0.1/export.4d.txt
index bd30cd6..0b332b9 100755
--- a/tags/import_raw_conversion-0.1/export.4d.txt
+++ b/tags/import_raw_conversion-0.1/export.4d.txt
@@ -10,102 +10,102 @@ C_HEURE($documentReference)
 C_REEL($Plateforme)
 PROPRIETES PLATE FORME($Plateforme)
 
-$fieldDelimiter:=Caractere(9)  
-$recordDelimiter:=Caractere(10)  
+$fieldDelimiter:=Caractere(9)
+$recordDelimiter:=Caractere(10)
 
-$numberOfTables:=Nombre de tables  
+$numberOfTables:=Nombre de tables
 
-Boucle ($tableNumber;1;$numberOfTables)  
+Boucle ($tableNumber;1;$numberOfTables)
   
-  $tablePtr:=Table($tableNumber)  
-  $tableName:=Nom de la table($tableNumber)  
+  $tablePtr:=Table($tableNumber)
+  $tableName:=Nom de la table($tableNumber)
   
-  $documentReference:=Creer document("C:\export_crem\"+$tableName+".txt";"TEXT")  
+  $documentReference:=Creer document("C:\export_crem\"+$tableName+".txt";"TEXT")
   
-  Si (OK=1)  
-    $numberOfFields:=Nombre de champs($tableNumber)  
+  Si (OK=1)
+    $numberOfFields:=Nombre de champs($tableNumber)
     
-    Boucle ($fieldNumber;1;$numberOfFields)  
-      $fieldName:=Nom du champ($tableNumber;$fieldNumber)  
-      Si ($fieldNumber#$numberOfFields)  
+    Boucle ($fieldNumber;1;$numberOfFields)
+      $fieldName:=Nom du champ($tableNumber;$fieldNumber)
+      Si ($fieldNumber#$numberOfFields)
         Si ($Plateforme=Windows )
           ENVOYER PAQUET($documentReference;Mac vers Windows($fieldName)+$fieldDelimiter)
-            
+          
         Sinon 
           ENVOYER PAQUET($documentReference;$fieldName+$fieldDelimiter)
-            
+          
         Fin de si 
       Sinon 
         Si ($plateforme=Windows )
           ENVOYER PAQUET($documentReference;Mac vers Windows($fieldName)+$recordDelimiter)
-            
+          
         Sinon 
           ENVOYER PAQUET($documentReference;$fieldName+$recordDelimiter)
-            
+          
         Fin de si 
       Fin de si 
     Fin de boucle 
     
-    TOUT SELECTIONNER($tablePtr->)  
-    $numberOfRecords:=Enregistrements trouves($tablePtr->)  
+    TOUT SELECTIONNER($tablePtr->)
+    $numberOfRecords:=Enregistrements trouves($tablePtr->)
     
-    Boucle ($recordNumber;1;$numberOfRecords)  
+    Boucle ($recordNumber;1;$numberOfRecords)
       
-      Boucle ($fieldNumber;1;$numberOfFields)  
+      Boucle ($fieldNumber;1;$numberOfFields)
+        
+        $fieldPtr:=Champ($tableNumber;$fieldNumber)
+        PROPRIETES CHAMP($fieldPtr;$fieldType)
         
-        $fieldPtr:=Champ($tableNumber;$fieldNumber)  
-        PROPRIETES CHAMP($fieldPtr;$fieldType)  
         
-          
         
         Au cas ou 
-          : (($fieldType=Est un numérique ) | ($fieldType=Est un entier ) | ($fieldType=Est un entier long ))
-            $fieldValue:=Chaine($fieldPtr->)  
+          : (($fieldType=Est un numérique )|($fieldType=Est un entier )|($fieldType=Est un entier long ))
+            $fieldValue:=Chaine($fieldPtr->)
           : ($fieldType=Est une date )
-            $fieldValue:=Chaine($fieldPtr->;7)  
+            $fieldValue:=Chaine($fieldPtr->;7)
           : ($fieldType=Est une heure )
-            $fieldValue:=Chaine($fieldPtr->;1)  
+            $fieldValue:=Chaine($fieldPtr->;1)
           : ($fieldType=Est un booléen )
             
-              
             
-            $fieldValue:=Chaine(Num($fieldPtr->);"VRAI;;FAUX")  
+            
+            $fieldValue:=Chaine(Num($fieldPtr->);"VRAI;;FAUX")
           : ($fieldType=Est une image )
             $fieldValue:="Image non exportée"
           : ($fieldType=Est un BLOB )
             $fieldValue:="BLOB non exporté"
           : ($fieldType=Est une sous table )
             $fieldValue:="Sous-table non exportée"
-          Sinon   
-            $fieldValue:=$fieldPtr->  
+          Sinon 
+            $fieldValue:=$fieldPtr->
             $fieldValue:=Remplacer chaine ($fieldValue; $fieldDelimiter; " ")
             $fieldValue:=Remplacer chaine ($fieldValue; $recordDelimiter; " ")
             $fieldValue:=Remplacer chaine ($fieldValue; Caractere(13); " ")
         Fin de cas 
         
-        Si ($fieldNumber#$numberOfFields)  
+        Si ($fieldNumber#$numberOfFields)
           Si ($Plateforme=Windows )
-            ENVOYER PAQUET($documentReference;Mac vers Windows($fieldValue)+$fieldDelimiter)  
+            ENVOYER PAQUET($documentReference;Mac vers Windows($fieldValue)+$fieldDelimiter)
           Sinon 
-            ENVOYER PAQUET($documentReference;$fieldValue+$fieldDelimiter)  
+            ENVOYER PAQUET($documentReference;$fieldValue+$fieldDelimiter)
           Fin de si 
         Sinon 
           Si ($Plateforme=Windows )
-            ENVOYER PAQUET($documentReference;Mac vers Windows($fieldValue)+$recordDelimiter)  
-              
+            ENVOYER PAQUET($documentReference;Mac vers Windows($fieldValue)+$recordDelimiter)
+            
           Sinon 
-            ENVOYER PAQUET($documentReference;$fieldValue+$recordDelimiter)  
-              
+            ENVOYER PAQUET($documentReference;$fieldValue+$recordDelimiter)
+            
           Fin de si 
           
         Fin de si 
         
       Fin de boucle 
       
-      ENREGISTREMENT SUIVANT($tablePtr->)  
+      ENREGISTREMENT SUIVANT($tablePtr->)
     Fin de boucle 
     
-    FERMER DOCUMENT($documentReference)  
+    FERMER DOCUMENT($documentReference)
     CHANGER CREATEUR DOCUMENT(Document;"TEXT")
     
   Fin de si