Discussion :

[Castafiore]

J'ai encore un problème entre la version 2004 et la version 11:

J'essaie d'importer un texte par le biais d'IMPORTER TEXTE dans un formulaire entrée qui comporte 3 variables et 6 champs. J'ai bien mis mes variables alpha vJour, vMois, vAnnee puis mes 6 champs en respectant l'orde des plans.

Lorsque je fais l'import rien ne passe dans les champs variable même lorsque je le fais manuellement par le biais du sous-menu "Importer" du menu "Fichier".

J'ai relu la doc v11 qui précise bien que cela est possible.

[ZeFiF]

Bonjour,

Plus que l'ordre des plans, c'est l'ordre de saisie qui est important.

Ceci dit, cela ne résous sans doute pas ton problème...
Evidement cela suppose que ton formulaire d'import ait été dessiné avec la v11 et pas la 2004...

Un petit trace dans la méthode formulaire pourrait aussi t'aider...
hth

[Castafiore]

Merci pour tes conseils.

Heureusement il n'y a pas qu'un chemin qui mène à Rome!
J'en ai donc emprunté un autre (Recevoir paquet) qui me permet de ne pas passer par IMPORTER TEXT et le formulaire d'entrée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
C_TEXTE($textrestant;$textpassé)
C_ENTIER($tabPos;nbdedonneesparligneenvoyee)
ENSEMBLE VIDE([matable];"import")
$nbdedonneesparligneenvoyee:=9
TABLEAU TEXTE(TADonnees;$nbdedonneesparligneenvoyee)
$Doc:=Ouvrir document("";"TEXT")**Ouverture d'un document de type Texte
Si (OK=1)** Si le document est ouvert...
	Repeter ** Boucle jusqu'à ce qu'il n'y ait plus de données
		RECEVOIR PAQUET($Doc;$textpassé;Caractere(Retour chariot ))**` Lecturejusqu'au retour chariot
		Si (OK=1)**Si ce n'est pas la fin du document.
			**extraire les données de chaque ligne
			Boucle ($k;1;$nbdedonneesparligneenvoyee-1)
				$tabPos:=Position(Caractere(Tabulation );$textpassé)**`Où est le tab?
				Si ($tabPos>0)** s'il y a une tabulation
					TADonnees{$k}:=Sous chaine($textpassé;1;($tabPos-1))
					$textrestant:=Sous chaine($textpassé;$tabPos+1;Longueur($textpassé))
					$textpassé:=$textrestant
				Fin de si 
			Fin de boucle 
			**il n'y a pas de tab à la fin de la ligne, récupérerer le dernier morceau
			TADonnees{$k}:=$textpassé
			CREER ENREGISTREMENT([Matable])**Créer un nouvel enregistrement
			**sauvegarder chaque champ en faisant les opérations adéquates
				mavariable1:=TADonnees{1}
				mavariable2:=TADonnees{2}
				** je peux faire mes opérations sur ces variables et récupérer le résultat dans le champ1
				[Matable]champ2:=TADonnees{3}
				**ect...
			STOCKER ENREGISTREMENT([Matable])**Sauvegarder l'enregistrement
			ADJOINDRE ELEMENT([Matable];"import") 
		Fin de si 
	Jusque (OK=0)
	FERMER DOCUMENT($Doc)** Fermeture du document
	EFFACER VARIABLE(TADonnees)
	UTILISER ENSEMBLE("import")
Fin de si 
EFFACER ENSEMBLE("import")

(je ne pas trop pourquoi la copie du code donne autant de rouge)