Reconnaître des chaînes de caractère

[Brimand]

Bonjour,

Je suis nouveau dans le forum autoit.

Je dois scanner des codes barres. Je voudrais savoir comment je peux identifier ma chaîne de caractère pour ensuite les placer dans une constante.

En sachant qu'il n'aura pas d'ordre pour scanner mes objets.

Pouvez-vous quelle fonction peut m'aider à le faire.

Merci d'avance

[jchd]

Bonsoir,

Je comprends mal le problème. Est-ce un lecteur barcode avec pilote spécifique et fonctions sophistiquées (mémoire, zonage, ...) ou un pseudo-clavier sans installation ?
En règle générale, les lecteurs délivrent une chaîne "comme si" elle sortait du clavier. Avec un bloc-note ouvert, un scan s'inscrit-il dans le texte ?
Ensuite, on ne peut pas écrire dans une constante (par définition).

Dernier point (attrapé par divination) : la plupart des lecteurs offrent une possibilité de configuration permettant par exemple de sélectionner quels codes sont acceptés et aussi d'encadrer les scans par un préfixe et un suffixe paramétrables. Je dis ça au cas où les scans devraient pouvoir être différenciés de la saisie clavier normale.

[Brimand]

Bonjour,

Le lecteur délivre une chaine de caractère "comme si" elle sortait du clavier.
Actuellement, ma fonction est la suivante

Code : Tout sélectionner

Local $sOutillage1 = InputBox("Test outillage", "Scanner l'Outillage1")
If @error = 1 Then Exit

J'effectuer à plusieurs reprise cette fonction pour scanner tous mes outils.

Mon problème est que je dois scanner dans l'ordre les différents outils pour qu'elles puissent reconnaître par la suite les outils scanner.

Mon objectif est de pouvoir créer une InputBox, de scanner mes outils dans n'importe qu'elle ordre.
Pour ensuite créer une fonction qui reconnais les outils scanner pour chaque InputBox avec le caractère qui différents dans les nom des outils.

Merci d'avance.

[jchd]

Que donne le code ci-dessous ?
On peut automatiser l'entrée en demandant au lecteur de terminer chaque scn par un CR ou un LF.

Code : Tout sélectionner

Local $sOutillage

While 1
	$sOutillage = InputBox("Test outillage", "Scanner l'outillage")
	If @error = 1 Then ExitLoop
	ConsoleWrite("Outil scanné : " & $sOutillage & @LF)
WEnd