Fonction split de vb 6 pour vb4/5 et lotusscript

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

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)