scritto da | on | Nessun commento

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

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

Lascia un Commento

News