Fonction split de vb 6 pour vb4/5 et lotusscript
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 887 fois - Téléchargée 35 fois
Contenu du snippet
Utilisation :
Exemple1:
txtData = "Nom;Prenom;Rue;CodePostal;Ville"
sField = RSSplit(txtData, ";")
Exemple2 :
sLines = RSSplit(TextMultiLigne, vbCrLf) ' Pour Visual Basic
sLines = RSSplit(Doc.ChampsMultiLigne(0), Chr$(10) + Chr$(13)) ' Pour le LotusScript si le séparateur de liste est Retour à la ligne
Pour le LotusScript retirer l'argument Optional, n'existe pas en LotusScript, il faut obligatoirement entrer une valeur même si elle est vide.
Exemple1:
txtData = "Nom;Prenom;Rue;CodePostal;Ville"
sField = RSSplit(txtData, ";")
Exemple2 :
sLines = RSSplit(TextMultiLigne, vbCrLf) ' Pour Visual Basic
sLines = RSSplit(Doc.ChampsMultiLigne(0), Chr$(10) + Chr$(13)) ' Pour le LotusScript si le séparateur de liste est Retour à la ligne
Source / Exemple :
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
Conclusion :
Pour le LotusScript retirer l'argument Optional, n'existe pas en LotusScript, il faut obligatoirement entrer une valeur même si elle est vide.
A voir également
- Lotusscript split
- Fonction split en c - Guide
- Split delphi - Guide
- Delphi / Pascal : Faire un split en delphi - CodeS SourceS - Guide
- Split vb.net ✓ - Forum - VB.NET
- Split en c++ - Guide
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
Ce serait sympa d'avoir l'équivalent de "Join", qui fait le contraire.
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.
dans la déclaration :
Public Function RSSplit(ByVal inp_str As String, _
Optional sep As String = "") As String
et enlever le if ismissing
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.