Aide nécessaire

deerfan Messages postés 2 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 24 juin 2004 - 24 juin 2004 à 11:31
HFanny Messages postés 699 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 13 mai 2011 - 24 juin 2004 à 11:48
Bonjour

J'ai le problème suivant j'ai une chaine de caractère

Winbiz#COM#mdougoug#COMDEBFAC#2#23.06.2004###Client débiteur 1000 Lausanne##1100#1020#10.250000###Banque##

que je dois répartir dans plusieurs champs différents. L'outil que j'utilise ne permet pas la fonction split

je serrais reconnaisance d'une aide car je ne suis aboslument pas familiaire de la programmation en VB

merci

3 réponses

HFanny Messages postés 699 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 13 mai 2011 20
24 juin 2004 à 11:36
Bonjour,

il suffit de te créer ta propre fonction split, ici je l'ai appelé SepareMots, fonction à laquelle tu passes deux paramètres, la chaine à séparer et le délimiteur.

Function SepareMots(ByVal chaine As String, ByVal delim As String) As String()
Dim tableau() As String
Dim indice, i As Integer
indice = 0
ReDim Preserve tableau(indice)

For i = 0 To Len(chaine)
    If Mid(chaine, i + 1, 1) = delim Then
        indice = indice + 1
        ReDim Preserve tableau(indice)
    Else
        tableau(indice) = tableau(indice) + Mid(chaine, i + 1, 1)
    End If

Next i
SepareMots = tableau
End Function


Pour l'utiliser
Dim tableau() As String
tableau = SepareMots("test1#test2#test3", "#")


J'ai fait ce code pour quelqu'un du forum pour du VBA, mais je pense que cela doit être à peu prêt pareil pour du VB.

Fanny
0
deerfan Messages postés 2 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 24 juin 2004
24 juin 2004 à 11:44
merci
je vais essayé mais ensuite je suppose que je peux faire
var1 = tableau(0)

et ainsi de suite?
0
HFanny Messages postés 699 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 13 mai 2011 20
24 juin 2004 à 11:48
Tu pourras faire ça pour les récupérer par la suite.
Car ma fonction te crée le tableau avec toutes lees variables dedans.

Fanny
0