Discussion :

[Godzestla]

Bonjour,

Sur le mainframe je crée un fichier dont le format est imposé par le package qui va utiliser ce fichier qui en fait est un trigger.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
%BTW% /AF="C:\MyPath\MyFormat.btw" /D="<Trigger File Name>" /PrintJobName="15132614"  /PRN="Bullzip PDF Printer" /R=3 /P                                                                                          
%END%   
$FICHES_PATH,$FICHES_NAME,$PDF_GENERATED,....
"\shared\path\","15132614.FIC","","40177.JPG",....

Les lignes qui m'intéressent sont les lignes 3 et 4., la ligne 3 étant le nom des champs, la ligne 4 les valeurs des champs.

il y a plus de 100 champs différents, au contenu totalement variable.

Le séparateur DOIT être ,.

Je dois sous VBA exploiter le contenu de certains champs précis et pour cela j'utilise , comme séparateur "," (virgule) mais "," est également présent dans certains champs de données, comme marque décimale, et je ne peut non plus le changer.

Donc mon split sur "," foire dès qu'un champ contient ,.
J'ai un décallage entre les nom des champs (Split sur ligne 3) et les valeur (split sur ligne 4).

Existe-t'il un parade pour dire à SPLIT de ne pas regarder à l'intérieur de mes strings mais uniquement en dehors des quotes. ?

Pour l'instant, la solution que j'ai trouvée est de mettre en début de liste tous les champs que je dois exploiter, avant les champs numériques édités contenant la marque décimale virgule, mais c'est plutôt fastidieux.

[kiki29]

Salut, le retour du Jedi .....
Une idée, peut-être saugrenue, pourquoi ne pas faire un split sur l'ensemble "," ? Il y aura sans doute des adaptations à faire pour la 1ere et dernière valeur récupérée dans le tableau.

[Philippe Tulliez]

Bonjour,
Philippe m'a devancé, c'est la solution que j'allais te proposer.

[Godzestla]

Salut,
toujours aussi rapide Kiki29.

pourquoi ne pas faire un split sur l'ensemble ","

Ton idée me plait. elle me permettra en plus de faire fi des quotes qui m'empoisonnent la vie au niveau contenu.

Restera juste à enlever la quote de début de l'elem(0) et celle de fin de l'elem(ubound(table)).

J'essaie cet aprem et te tiens au courant.

Tu as été trop vite.... je n'étais pas encore prêt.

Merci en tout cas.....

Je "Jedi" toujours mais comme je dois toucher à tout, mon sabre laser est émoussé en VBA.

----Edit----

Salut Corona.

[gFZT82]

Bonjour,

Une autre idée salée avec la séparation suivant les cotes.
Après le split, on remplace la virgule par un autre identifiant dans chaque chaine qui comporte un seul caractère (la virgule).
On reforme la chaine et on scinde cette nouvelle chaine avec le nouvel identifiant.
Comme un bon exemple vaut mieux qu’un mauvais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim MaChaine As String
Dim Tablo() As String
    MaChaine = """\shared\path\""" & "," & """15132614.FIC""" & "," & """""" & "," & """40177.JPG"""
    Tablo = Split(MaChaine, """")
    For i = 0 To UBound(Tablo)
        If Len(Tablo(i)) = 1 Then Tablo(i) = Replace(Tablo(i), ",", "|")
    Next
    MaChaine = ""
    For i = 0 To UBound(Tablo)
        MaChaine = MaChaine & Tablo(i)
    Next
    Tablo = Split(MaChaine, "|")
End Sub

Cordialement.