A volte può rendersi necessario analizzare lo schema di un insieme di codici per armonizzare la codifica o per effettuare un controllo sui codici ed è quindi necessario estrarre uno schema del codice per poterlo analizzare. La seguente funzione permette di individuare lo schema del codice secondo questa regola:
N per ogni carattere numerico
O per ogni lettera maiuscola
o per ogni lettera minuscola
Function schema(codice) SS = Replace(codice, " ", "") lunghezza = Len(SS) For X = 1 To lunghezza carattere = Mid(SS, X, 1) Code = Asc(carattere) Select Case Code Case 48 To 57 simbolo = "N" Case 65 To 90 simbolo = "O" Case 97 To 122 simbolo = "o" Case Else simbolo = carattere End Select finale = finale & simbolo Next X schema = finale End Function |
Function schema(codice) SS = Replace(codice, " ", "") lunghezza = Len(SS) For X = 1 To lunghezza carattere = Mid(SS, X, 1) Code = Asc(carattere) Select Case Code Case 48 To 57 simbolo = "N" Case 65 To 90 simbolo = "O" Case 97 To 122 simbolo = "o" Case Else simbolo = carattere End Select finale = finale & simbolo Next X schema = finale End Function
Questo è risultato applicato ai codici di alcune aziende produttrici di materiale elettrico:
NNNNNNNN | NNNNN | N-NNNNNN-N | NNNNN-NNNN |
NN.NNN.NNN.NN | NNNNNN-NNNN | ONNNOOOOO | NOONNN.NNN-NNN |
NNNN.NNNN | NNNN-NNNN-NN | NNNNNNNNNN | NNNNNNOO-NNNN |
NNNNNNN | NNNNNNNNN | ONNNNNNN | NNNO |
NNNNNN | OONNOONNNN | NN.NNNN.NNN.N | NNNNN-N |
NNNNNNOO | NN.NNN.ONN.NN | NNNN.N.NN | NOONNNNNN-NNN |
NN.NNNN.NNNN.NN | NN.NNNN.ONNN.NN | OOOOOOOOOOOOO | NNN-NNNN-NNN |
N-NNNNNNN-N | ONNNNNNNONNN | OONNNNN | NNN.NNNN.NNN.N |
NNNNNN-N | NNNNNNNN-O | OO.NNN. | NNNN.N |
NNNN-NNNN | NNNOO | ONNNNNNOONNN | OO.NN.NNNN.NN |
NNNNNNN-NN | OO.NNNNNNNN.NN | NNNNNNN/NN | ONNNNNNNN |
NN.NNN.NNN | NN.NNNN.ONNN | OONNN-NNNNN | NNNNNN-NN |
OOONNNNNNNN | NONNNNNN | NNN-NNN | ONNNOONNO |
NNNNNNNN.NN | OOOOOOOOOOO | N.NNN.NNN.NNN | NNN-NNNN |
NNNN | OONNNN | NN.NN.NNNNNNN | OOOOONN |