Bonjour à tous,
Pourriez-vous me guider dans le problème suivant:
Le code si dessous lis 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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 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
Partager