Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles LAURENT
"lron84" (sansspam)> a écrit dans le message de news: | bonjour,
Bonjour,
| Je recherche la code pour générer la clé de controle d'un code barre | ITF 14. | | Merci pour votre aide
Ci-dessous le script VBScript 'ITF14CtrlCode.vbs' permettant de calculer le caractère de contrôle d'un code barre ITF14 :
-- Coupez ici : ITF14CtrlCode.vbs --
Option Explicit
Dim strCode Dim nCount, nCtrlCode, nDigit
' lecture du nombre à coder en ITF14 strCode = WScript.Arguments (0)
' le nombre à coder doit contenir un nombre impair de chiffres ' si cela n'est pas le cas alors on ajoute le chiffre 0 en tête If Len (strCode) Mod 2 = 0 Then strCode = "0" & strCode
' calcul du caractère de contrôle (pre stage) For nCount = 1 To Len (strCode) nDigit = CInt (Mid (strCode, nCount, 1)) If nCount Mod 2 = 0 Then nCtrlCode = nCtrlCode + nDigit Else nCtrlCode = nCtrlCode + (nDigit * 3) End If Next
' ajustement de la valeur du caractère de contrôle nCtrlCode = nCtrlCode Mod 10 If nCtrlCode <> 0 Then nCtrlCode = 10 - nCtrlCode
' affichage du nombre à coder suivi du caractère de contrôle WScript.Echo strCode & " " & nCtrlCode
-- Coupez ici : ITF14CtrlCode.vbs --
Exemple : >cscript //nologo ITF14CtrlCode.vbs 1763933126574
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
"lron84" <foin2@wanadoo.fr.(sansspam)> a écrit dans le message de
news:BBA7ED61-D948-4B3C-80F3-AFA385012542@microsoft.com
| bonjour,
Bonjour,
| Je recherche la code pour générer la clé de controle d'un code barre
| ITF 14.
|
| Merci pour votre aide
Ci-dessous le script VBScript 'ITF14CtrlCode.vbs' permettant de calculer
le caractère de contrôle d'un code barre ITF14 :
-- Coupez ici : ITF14CtrlCode.vbs --
Option Explicit
Dim strCode
Dim nCount, nCtrlCode, nDigit
' lecture du nombre à coder en ITF14
strCode = WScript.Arguments (0)
' le nombre à coder doit contenir un nombre impair de chiffres
' si cela n'est pas le cas alors on ajoute le chiffre 0 en tête
If Len (strCode) Mod 2 = 0 Then strCode = "0" & strCode
' calcul du caractère de contrôle (pre stage)
For nCount = 1 To Len (strCode)
nDigit = CInt (Mid (strCode, nCount, 1))
If nCount Mod 2 = 0 Then
nCtrlCode = nCtrlCode + nDigit
Else
nCtrlCode = nCtrlCode + (nDigit * 3)
End If
Next
' ajustement de la valeur du caractère de contrôle
nCtrlCode = nCtrlCode Mod 10
If nCtrlCode <> 0 Then nCtrlCode = 10 - nCtrlCode
' affichage du nombre à coder suivi du caractère de contrôle
WScript.Echo strCode & " " & nCtrlCode
-- Coupez ici : ITF14CtrlCode.vbs --
Exemple :
>cscript //nologo ITF14CtrlCode.vbs 1763933126574
--
Gilles LAURENT
Me contacter : http://cerbermail.com/?zoTY7ZkLcD
"lron84" (sansspam)> a écrit dans le message de news: | bonjour,
Bonjour,
| Je recherche la code pour générer la clé de controle d'un code barre | ITF 14. | | Merci pour votre aide
Ci-dessous le script VBScript 'ITF14CtrlCode.vbs' permettant de calculer le caractère de contrôle d'un code barre ITF14 :
-- Coupez ici : ITF14CtrlCode.vbs --
Option Explicit
Dim strCode Dim nCount, nCtrlCode, nDigit
' lecture du nombre à coder en ITF14 strCode = WScript.Arguments (0)
' le nombre à coder doit contenir un nombre impair de chiffres ' si cela n'est pas le cas alors on ajoute le chiffre 0 en tête If Len (strCode) Mod 2 = 0 Then strCode = "0" & strCode
' calcul du caractère de contrôle (pre stage) For nCount = 1 To Len (strCode) nDigit = CInt (Mid (strCode, nCount, 1)) If nCount Mod 2 = 0 Then nCtrlCode = nCtrlCode + nDigit Else nCtrlCode = nCtrlCode + (nDigit * 3) End If Next
' ajustement de la valeur du caractère de contrôle nCtrlCode = nCtrlCode Mod 10 If nCtrlCode <> 0 Then nCtrlCode = 10 - nCtrlCode
' affichage du nombre à coder suivi du caractère de contrôle WScript.Echo strCode & " " & nCtrlCode
-- Coupez ici : ITF14CtrlCode.vbs --
Exemple : >cscript //nologo ITF14CtrlCode.vbs 1763933126574
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
