0/5 (5 avis)
Snippet vu 12 011 fois - Téléchargée 37 fois
Public Function RSSplit(ByVal inp_str As String, _ Optional sep As Variant) As String Dim i As Integer Dim j As Integer Dim ret() As Variant If IsMissing(sep) Then sep = " " i = 1: j = 0 ReDim Preserve ret(j) Do While Mid(inp_str, i, 1) = sep i = i + 1 Loop Do If Not Mid(inp_str, i, 1) = sep Then ret(j) = ret(j) & Mid(inp_str, i, 1) i = i + 1 Else Do i = i + 1 Loop While Mid(inp_str, i, 1) = sep If i > Len(inp_str) Then Exit Do j = j + 1 ReDim Preserve ret(j) End If Loop While i <= Len(inp_str) RSSplit = ret End Function
13 mai 2012 à 17:53
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
24 août 2004 à 15:04
Ce serait sympa d'avoir l'équivalent de "Join", qui fait le contraire.
10 sept. 2003 à 14:32
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.
27 août 2003 à 15:44
dans la déclaration :
Public Function RSSplit(ByVal inp_str As String, _
Optional sep As String = "") As String
et enlever le if ismissing
27 août 2003 à 15:40
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.