Fonction split de vb 6 pour vb4/5 et lotusscript

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 756 fois - Téléchargée 35 fois

Commenter

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

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

Ajouter un commentaire

Commentaires

Signaler
saidmansour
Messages postés
51
Date d'inscription
vendredi 1 juin 2007
Statut
Membre
Dernière intervention
13 octobre 2012
 -
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
Signaler
Fabio972
Messages postés
62
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
4 août 2004
 -
Merci pour cette source (pratique quand on retourne sur Access 97.

Ce serait sympa d'avoir l'équivalent de "Join", qui fait le contraire.
Signaler
JJDai
Messages postés
291
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
13 mars 2015
 -
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.
Signaler
cs_Warny
Messages postés
478
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
 -
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
Signaler
cs_NoFutur
Messages postés
171
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
 -
Bonne intiative que ce code source, franchement c'est cool d'avoir mis ce code, VB5 en force lol.
S'inscrire maintenant

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.

Du même auteur (SMaillard)