analyse d'une ligne de code vba [Résolu]

[Nourson]

Bonjour à tous

Quelqu'un peut-il m'aider ? Dans le cadre d'une base, qui a pour objet de documenter une base access (liste des objets, des champs, de leurs propriétés,...) et d'analyse du code, j'ai besoin de séparer une ligne en plusieurs parties, c'est-à-dire :
1- séparer une ligne en 2 s'il existe ":" en milieu de ligne (ce n'est pas très lisible mais ...)
2- identifier le commentaire de fin de ligne
3- identifier le message et le titre d'une 'MsgBox'

Je rencontre des difficultés du fait que l'on peut rajouter des virgules ou des point entre guillemets.

Voici un exemple :

Code :

MsgBox "Bonsoir" & " , " & "Au revoir", vbYesNo + vbDefaultButton1, "Titre : " & "Ma base : une base Access 2007": Exit Sub  '  Exemple

Quelqu'un porrait-il m'aider ou me donner une piste (je galère même avec les fonctions 'Instr' et 'Split')

Merci
Nourson

[helas]

Bonsoir,
le : ou les , à considérer sont toujours après un nombre paire de "
une fonction pourrait faire l'affaire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function PosCar(texte As String, depart As Long, car As String) As Long
 If (depart < 1) Or (depart > Len(texte)) Then Exit Function
 Dim i As Long, j As Long
 PosCar = 0
 For i = depart To Len(texte)
  c = Mid$(texte, i, 1)
  Select Case c
  Case """"
   j = j + 1
  Case car
   If (j Mod 2) = 0 Then PosCar = i: Exit For
  End Select
 Next i
End Function

en paramètre la chaine de caractère, la position où commence la recherche et enfin le caractère à chercher
pour l'exemple

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub test()
 s = "MsgBox ""Bonsoir"" & "" , "" & ""Au revoir"", vbYesNo + vbDefaultButton1, ""Titre : "" & ""Ma base : une base Access 2007"": Exit Sub  '  Exemple"
 n = PosCar(s, 1, ":")
 Debug.Print "position de : " & n
 n = PosCar(s, 1, ",")
 Debug.Print "position de , " & n
 n = PosCar(s, n + 1, ",")
 Debug.Print "position de , " & n
End Sub

dans s les " doivent être doubler

[loufab]

Bonjour,
tu peux également utiliser les expressions régulières. Il y a un tuto sur le sujet.

Cordialement,

[Nourson]

Merci à tous les deux.
Avec vos réponses, je peux poursuivre.
Nourson