[difficile] parser une chaine type langage C

bonjour,

En langage C, j'ai déclaré un tableau comme ceci :

Code:

---

1 2 3

char tab [] = "\x31" "\x04\x01\x06" "\x12""Salut mec" "x54" // bla bla bla .... "\x32" "\x02\x06\x03" "\x10""coucou" "x51" // bla bla bla .... "\0";

---

J'ai récupéré tout ce qu'il y a après le égal dans une variable vba de type String (les retours à la ligne sont le caractère vbLf).
=> Comment faire pour créer un tableau vba de Integer qui contienne la valeur numérique de chaque case de mon tableau C



Donc cette chaine à plusieurs propriétés :
- elle est sur plusieurs lignes => j'utilise vbLf pour les sauts de ligne
- tout ce qui est après "//" doit être ignoré (jusqu'a la fin de la ligne uniquement) => ces deux caractères équivaut au caractère ' en vba (commentaire)
- lorsqu'on a "\x31", ça signifie : valeur hexadecimale de 31
- la chaine "\x01" "\x02\x03""\x04meuh" équivaut à "\x01\x02\x03\x04meuh" => on peut concaténer tous les champs
- le caractère ";" délimite la fin de la ligne
- le caractère " dans une chaine s'écrit \"

Si vous n'avez pas tout compris n'hésitez pas à me poser des questions ;)

merci d'avance

Salut,
Je ne comprends pas ce que tu veux faire.
Tu as un tableau de string, genre vtab(1)="abcd" vtab(2)="trs"
Et tu veux un tableau de type
vtab(1,1)=1
vtab(1,2)=2
vtab(1,3)=3
vtab(1,4)=4.
etc..?

non ce n'est pas ça.

J'ai créer un classeur excel dans lequel je génère (en fonction de divers paramètres) une chaine de caractères qui correspond à l'initialisation d'un tableau en langage C. Ex :

Code:

---

1 2 3 4 5 6

// code C : char tab[] = "salut" " ça va ?";   // c'est la meme chose que : char tab[] = "salut ça va ?";

---

Donc en vba j'ai dans une variable le contenu de ma chaine qui est :

Code:

---

1 2 3

' code vba Dim tab As String = """salut ça va ?"""

---

Ce que je voudrais, c'est crée une variable type tableau (sous vba) avec les valeurs de chaque caractères de ma chaine : ceci me permettra par la suite de calculer un CRC de cette chaine

Ce qui est difficile c'est d'arrivé à parser : les lignes multiples, les guillements, le valeurs hexa "\x??" et les commentaire (j'avoue ne pas avoir de grosses connaissance en vba)

alors déja en VBA

Code:

---

1 2	' code vba Dim tab As String = """salut ça va ?"""

---

ne fonctionne pas et ne fonctionnera jamais.
Tu devras imperativement écrire :

Code:

---

1 2 3

' code vba Dim tab As String tab = """salut ça va ?"""

---

En suite je n'ai pas du tout compris. Je dois être un peu... rouillé en C

Citation:

---

Envoyé par EvaristeGaloisBis

alors déja en VBA

Code:

---

1 2	' code vba Dim tab As String = """salut ça va ?"""

---

ne fonctionne pas et ne fonctionnera jamais.
Tu devras imperativement écrire :

Code:

---

1 2 3

' code vba Dim tab As String tab = """salut ça va ?"""

---

---

Désolé, comme dit précédemment je n'ai pas de grosses connaissances en vba ;)


Donc si je prend la chaine :

Code:

---

tab = """salut ça va ?"""

---

La première étape serait d'avoir le tableau suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

' recuperation en valeurs numériques ' => quel type utiliser pour ce tableau ? tab(1) = Chr("""") tab(2) = Chr("s") tab(3) = Chr("a") tab(4) = Chr("l") tab(5) = Chr("u") tab(6) = Chr("t") tab(7) = Chr(" ") tab(8) = Chr("ç") tab(9) = Chr("a") tab(10) = Chr(" ") tab(11) = Chr("v") tab(12) = Chr("a") tab(13) = Chr(" ") tab(14) = Chr("?") tab(15) = Chr("""")   ' exemple de calcul de CRC simplifié for i=1 to i=Ubound(tab) crc = crc + tab(i) next i

---

=> après là où ça devient compliqué c'est d'arriver a :
- concaténer les différents éléments de ma chaine : """salut"" "" ça va """"?""" => """salut ça va ?"""
- supprimer les commentaires C : """salut ça va ?""" // mon commentaire en fin de ligne" => """salut ça va ?"""
- supprimer les retours à la ligne """salut""" + vbLf + """ ça va ?""" => """salut ça va ?"""
- supprimer le caractère ";" en fin de chaine : """salut ça va ?"";" => """salut ça va ?"""
- convertir les valeur hexa (je suis pas sure que c'est cette fonction qu'il faut utiliser) : """\x51""" => """" + asc(&H51) + """"

résolvons d'abord le probleme simple.
Mettre un string dans un tableau de char. Ce n'est pas implicite comme en C.

Code:

---

tab = """salut ça va ?"""

---

je te propose la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function ConvertString2Tab(stMyString As String) As Integer() Dim itabRes() As Integer Dim iMaxChar As Long Dim iChar As Long   iMaxChar = Strings.Len(stMyString)   'it's for empty string case If iMaxChar = 0 Then Exit Function   ReDim itabRes(1 To iMaxChar)   For iChar = 1 To iMaxChar itabRes(iChar) = Strings.Asc(Strings.Mid$(stMyString, iChar, 1)) Next   ConvertString2Tab = itabRes   End Function

---

Après pour certaines suppressions, c'est trivial comme la concaténation de chaine. Il te suffit de faire un replace de """ """, par "", de VbLf par "".
Par contre pour la suppression des commentaires en C je crois que tu te frottes a quelque chose de très technique. tu dois gérer les /* et */, les // etc... Bref, là ce qui bloque ce n'est pas le langage mais l'algorithme.

ok merci

Citation:

---

Envoyé par EvaristeGaloisBis

Après pour certaines suppressions, c'est trivial comme la concaténation de chaine. Il te suffit de faire un replace de """ """, par ""

---

Ce n'est malheureusement pas si simple car par exemple si j'ai """salut mec\"" """ je dois avoir comme résultat "salut mec\"" " car guillemet précédé de \ en C, ça veut dire qu'il faut écrire le caractère " : \" en C équivaut à "" en vba.

Citation:

---

Envoyé par EvaristeGaloisBis

tu dois gérer les /* et */

---

Je n'ai pas besoin de gérer les /* */, il n'y en aura pas (je n'aurais que les //)

je vais essayer de faire le bon algo...

Bien vu pour le contre exemple ! ;)
Je te laisse trouver le bon algo ! Par curiosité d'esprit, fait le nous parvenir. J'aimerai bien voir quelle ça peut avoir.
Aussi peux tu nous dire pourquoi tu dois faire ça? En effet, il pourrait exister une meilleur solution qui ne nécessite pas autant de dev subtile et péilleux.

Citation:

---

Envoyé par EvaristeGaloisBis

Aussi peux tu nous dire pourquoi tu dois faire ça?

---

J'utilise un classeur excel pour définir les valeurs que doit avoir un tableau (à base de liste déroulante et de valeur de cellule) => une fois la chaine générée, je dois aussi calculer le CRC de cette chaine car un module l'envoie à un autre module : c'est pourquoi j'ai besoin de vérifier la validité de la trame.
=> mon module pourrais calculer à la volé le CRC mais je fais ça pour qu'il est moins de calculs à faire

Qu'est ce que le CRC?

c'est ça :
http://fr.wikipedia.org/wiki/Contr%C...dance_cyclique
=> permet de vérifier l'intégrité des données