Discussion :

[Sarbatis]

Bonjour,
J'ai créé une table excel afin d'importer les valeurs dans une table windev. Cela fonctionne bien. J'utilise le code suivant :

//on importe le fichier excel
monExcel est un entier=xlsOuvre("./Excel/les clients.xls")
SI monExcel<>-1 ALORS
iTaille est un entier=xlsNbLigne(monExcel,Faux)
i est un entier=1
TANTQUE i<=iTaille
i++
// remplissage de la table
TableAjouteLigne(TABLE_client...
,xlsDonnée(monExcel,i,1,Faux)...
,xlsDonnée(monExcel,i,2,Faux)...
,xlsDonnée(monExcel,i,3,Faux))
FIN
SINON
Erreur(xlsMsgErreur(monExcel)+" "+ErreurInfo())
FIN
xlsFerme(monExcel)

Une fois la table remplit j'utilise le code suivant pour l'enregistrer dans une table.

//on parcours la table et on enregistre
POUR TOUTE LIGNE DE TABLE_client
CLIENT.nomClient = TABLE_client.COL_nom
CLIENT.adresseClient = TABLE_client.COL_adresse
CLIENT.tel = TABLE_client.COL_tel
HAjoute(CLIENT)
FIN
Info("Enregistrement terminé")

La encore pas de soucis, tous fonctionne correctement.


Mon problème vient ensuite lorsque je veux extraire la chaine adresse :
Dans mon excel, elle est sous cette forme :

6 rue de la source
90 000 Belfort

Cette même forme est adopté dans la Table_client mais

ExtraitChaîne(CLIENT.adresse,1,RC)

ne fonctionne pas, il ne m'affiche pas la première ligne comme je le voudrais mais la totalité de l'adresse.

En faisant un

Trace (ExtraitChaîne(CLIENT.adresse,1,RC))

j'obtiens le résultat suivant :

6 rue de la source<\n>90 000 Belfort

Si j'ouvre le fichier CLIENT avec WDMAP, je vois ceci :

6 rue de la source[]90 000 Belfort

Comment puis-je faire pour remplacer ceci par un RC. Cela vient-il de l'excel? de l'importation? J'importe beaucoup de fichier excel différent et j'ai le même problème à chaque fois.

Merci d'avance, en espérant que vous ayez une idée.

Cordialement.

[hpascal]

Bonjour

RC correspond aux 2 caractères ASCII 13 et 10

Dans ton cas tu n'as que le 10, il suffit donc de le remplacer par RC

Code :

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

Remplace(TaChaine, Caract(10), RC)

[Sarbatis]

J'ai eu un peu de mal à comprendre au départ mais oui ta solution est la bonne.
Cela viens du ALT+entrée fait dans excel.

Un grand merci à toi. Une petite boucle et c'est finit.

Cordialement.