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