Import de données d'un txt vers fic

**Nicos77** · 11/04/2016, 14h15

Bonjour,

J'ai un peu changé ma façon de récupérer les données de mon système actuel pour l'intégré dans mon projet windev.

Dans un 1er temps, je créé mon analyse (fichier par fichier avec les bons noms de rubrique, etc...)
Ensuite, j'extrait sur mon système actuel les données dans un fichier txt (séparateur tab) dans le format du mon fichier créé dans windev.

Ensuite, comment réintégrer les données du txt vers mon ".fic"?
Je pensais à un fouvre(), et des boucles "pour tout" suivi de "hajoute()".
Est-ce que celà fonctionnera? Je pense que oui.

Mais la 2ème partie de la question, c'est que mon analyse va comporter entre 100 et 150 fichiers. Comment je peux créer une boucle "universel" qui peu importe le fichier appelé (le *.txt) et le fichier de destination (*.fic) fonctionnera?

Merci par avance.

**fffttt** · 11/04/2016, 14h23

bonjour
un élément de réponse est les indirections.

**Yusep** · 11/04/2016, 15h10

Bonjour
J'utilise :
http://doc.pcsoft.fr/fr-FR/?3044011&name=HImporteTexte

**Nicos77** · 13/04/2016, 10h15

Bonjour,

Suite à vos conseils je suis donc passé par un HImporteTexte() qui fonctionne très bien en local mais pas sur l'analyse de mon cloud.

Je résumé, en mode test j'ouvre une fenêtre de connexion sur laquelle je choisi ma connexion

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
SELON SEL_Connexion
	// Classique
	CAS 1
		HChangeRep("*",SC_SelecteurRépertoire)
 
 
	// C/S
	CAS 2
		Connex..Serveur=SC_ConnexionCS.SAI_SERVEUR+":"+SC_ConnexionCS.SAI_NUMERO_PORT
		Connex..BaseDeDonnées=SC_ConnexionCS.SAI_Base_de_données
		Connex..Utilisateur=SC_ConnexionCS.SAI_UTILISATEUR
		Connex..MotDePasse=SC_ConnexionCS.SAI_MOT_DE_PASSE
		Connex..Provider=hAccèsHFClientServeur
 
		soit Bool = HOuvreConnexion(Connex)
		Bool=HChangeConnexion("*",Connex)
 
FIN

J'arrive donc soit en local, soit en cloud (Les données du serveur sont chez PCS Cloud)

Puis je fais mon traitement

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
PROCEDURE ImportDansBDD()
 
sATraiter est une chaîne
 
sATraiter=LISTE_Repertoire..ValeurAffichée // On récupère la valeur de la selection
 
soit NomFichierBDD= ExtraitChaîne(sATraiter,2,"__")
NomFichierBDD=ExtraitChaîne(NomFichierBDD,1,".")
Trace(NomFichierBDD)
 
//On vide le fichier de données
HSupprimeTout(NomFichierBDD) 
 
//On importe dans le fichier de données
SI HImporteTexte(NomFichierBDD,sATraiter,"","," + Caract(127) + """" + Caract(127) + RC + Caract(127) +".",hValDéfaut,JAUGE_Jauge) = Faux ALORS
	Erreur()
FIN
 
JAUGE_Jauge=0

En Local tout passe (Pour le moment "tout" c'est 2 fichiers

)
Par contre en Cloud, il me dit que les cardinalités ne sont pas respectées. Ce qui est vrai, car je n'ai pas encore tous les fichiers de pret !

La question, pourquoi en Local ca passe et non en cloud?
Et comment contourner ce problème? Il y a bien le paramètre hImpTestIntégrité qui existe mais que je n'utilise pas, car je ne veux pas la tester justement.

Merci