FONCTION SPLIT DE VB 6 POUR VB4/5 ET LOTUSSCRIPT

cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 27 août 2003 à 15:40
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012 - 13 mai 2012 à 17:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8366-fonction-split-de-vb-6-pour-vb4-5-et-lotusscript

saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012
13 mai 2012 à 17:53
bonjour,
j'ai u probléme
j'exporte des données d'une table acces vers un fichier text
mon problème:
je vous donne mon cas réel j'ai une table d'enregistrement acces contenet: matricule,nom,prenom,sexe,date debut,service,direction
j'ai fait
print# "& rs!matricule & rs!nom & rs!prenom & rs!sexe & rs!sexe & rs! datedebut & rs!service & rs!direction;"
rs.move next

je veux que si je retourne à la ligne meme matricule je fais imprimer les informations:datedebut, service et direction de la deuxieme ligne à la fin du premier ligne.

merci de me repondre
Fabio972 Messages postés 62 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 4 août 2004
24 août 2004 à 15:04
Merci pour cette source (pratique quand on retourne sur Access 97.

Ce serait sympa d'avoir l'équivalent de "Join", qui fait le contraire.
Utilisateur anonyme
10 sept. 2003 à 14:32
Pour info en vb
Optional sep As String = " ")
Ajout du caractere par defaut (" " caractere blanc ou autre) dans la declaration peu eviter la condition IF a faire un peu plus bas.
cs_Warny Messages postés 473 Date d'inscription mercredi 7 août 2002 Statut Membre Dernière intervention 10 juin 2015
27 août 2003 à 15:44
Pour le script vb

dans la déclaration :
Public Function RSSplit(ByVal inp_str As String, _
Optional sep As String = "") As String

et enlever le if ismissing
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 1
27 août 2003 à 15:40
Bonne intiative que ce code source, franchement c'est cool d'avoir mis ce code, VB5 en force lol.
Rejoignez-nous