Aide nécessaire

Question

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

HFanny · Answer

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

deerfan · Answer

merci
je vais essayé mais ensuite je suppose que je peux faire
var1 = tableau(0)

et ainsi de suite?

HFanny · Answer

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

Aide nécessaire

3 réponses

Discussions similaires