WDForge.org - Forums

WD12-ajoute automatique de rubriques dans fichier suivant...

Sujet: WD12-ajoute automatique de rubriques dans fichier suivant...
par Chapeau_m sur 16/6/2008 8:42:20

ajoute automatique de rubriques dans fichier suivant lecture d'une fichier externe ?

Bonjour à tous,

Pourriez-vous me guider dans le problème suivant:

Le code si dessous lit un fichier txt externe pour importer le contenu.
Les données importé sont sauvegardé dans le fichier 'PMfup'.

Aujourd'hui il y a une protection de doublon comme vous pouvez voir en utilisant un fichier de controle 'ConversImport'
(ceci m'a été donné comme idée précédemment sur ce forum)

Maintenant je voudrais savoir comment faire la chôse suivante :
Lors de l'importation quand une rubrique n'existe pas dans le fichier 'PMfup', je reçois une erreur d'importation.

Comment créer de façon automatique de nouvelles rubriques supplémentaires, dans le fichier 'PMfup' suivant la l'importation ?
Et ceci forcément sans perdre des données déjà existantes !

Bien à vous et merci d'avance.

Code :

POUR TOUTE CHAINE sUnElement DE sFichierSource SEPAREE PAR Caract(10)
//Si dans la chaine sUnElement on trouve au moins
// un Caract(28) alors on récupère les valeurs
SI ChaîneOccurrence( sUnElement, Caract( 28 ) ) > 0 ALORS
//stLigne1 contient les noms des rubrique
//Que l'on fait précéder d'un "R"
ConversImport.Rubrique = "R" + ExtraitChaîne( sUnElement, 1, Caract(28) ) + Caract(44) //TAB
HAjoute(ConversImport)
SI HErreurDoublon() = Vrai ALORS GOTO suite
gsLigne1 += "R" + ExtraitChaîne( sUnElement, 1, Caract(28) ) + Caract(44) //TAB
//stLigne2 contients les valeurs séparés par des tabulations
stLigne2 += ExtraitChaîne( sUnElement, 3, Caract(28) ) + TAB
suite:
FIN
FIN