Discussion :

[jojo9503]

Bonjour,

Cela fait plusieurs jours que je bloque sur mon problème malgré mes recherches sur notice douchette, forum divers VBA ...

Description de mon problème :

Je développe une application dans un formulaire VBA. Cette application me place dans une textbox pour attendre le scan de mon QR CODE

Plus loin dans le code je récupère cette entrée pour la stocker dans un tableau. Le découpage se fait avec le caractère du retour Chariot (effectivement, le scan de ce QR code sur un smartphone ou même avec la douchette, dans un fichier texte me génère bien le texte sur plusieurs lignes).

Le problème est que la texte box ne détecte pas le retour chariot. Elle affiche le texte tout collé. Voir image en pj


En pj l'image des paramètres de ma textbox ainsi que mon QR Code



J'espère que je suis assez clair pour obtenir quelques pistes de recherche je bloque un peu. J'aimerai ne pas être obligé à passer par un fichier texte qui vient enrichir ce formulaire.

[Jean-Philippe André]

Bonjour,

as-tu la possibilité d'anticiper les informations qui seraient récupérées, par exemple KIT blabla ?

L'idée serait de faire un découpage volontaire du texte, si l'information n'est pas donnée volontairement apr le QR code...

[jojo9503]

Oui j'ai déjà construit comme ça en attendant de trouver mieux sauf que le code est vraiment pas très propre car longueur de chaque sous partie sont variables. Et de plus lors d'une opération suivante pour le traitement de plusieurs de ces données je fais une comparaison entre la string que je récupère au niveau du label référence SAP avec une table de string et la le caractère spécial du retour chariot pose problème.

Je vais creuser encore un peu le sujet avant d'abandonner Excel pour un programme java

[mfoxy]

Bonjour,

Je pense à une fonction que j'ai créé au boulot, pas dispo avant mercredi, suis en congé, mais qui pourrait peut être faire l'affaire.

Dans le cas où tes valeurs à récupérer sont toujours hiérarchisées de la même façon.

J entends par la du genre :
titre1 : valeur1
titre2 : valeur2
...

Ce qui semble être le cas d'après ce que je comprends.

La fonction recherche le texte entre deux chaînes de caractère donc donnerait.

Code :

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

1
2
3
4
5
6
7
 
Item = ton string complet
Val1 = findtextbetween(titre1, titre2)
Val2 = findtextbetween(titre2, titr3) 
... 
Val1 sortirait "valeur1" 
Val2 sortirait  "valeur2"

[jojo9503]

Je teste ça demain si j'arrive à faire un truc propre

[mfoxy]

Re,

Ci dessous la fonction que j'ai créé ainsi qu'un exemple de fonctionnement.

Bàt,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub CleanigQRstring()
 
Dim tonstring As String
 
tonstring = "Kit : 53367607-1 Référence SAP : PANEL ACCESS - ELV LE IML 136 LH G600 Tack Life (Heures) 167.18333333333232 Times Out : ...."
 
Debug.Print FindTextBetween(tonstring, "Kit :", "Référence SAP")
Debug.Print FindTextBetween(tonstring, "Référence SAP :", "Tack Life")
 
 
End Sub
 
 
Function FindTextBetween(AllText, StartText, EndText)
 
    FindTextBetween = vbNullString
    StartTextLocation = InStr(1, AllText, StartText, vbTextCompare) + Len(StartText)
    EndTextLocation = InStr(StartTextLocation, AllText, EndText, vbTextCompare) - StartTextLocation
 
    Debug.Print AllText
 
    On Error Resume Next
        FindTextBetween = Mid(AllText, StartTextLocation, EndTextLocation)
    On Error GoTo 0
 
End Function