3ad |
|
| Si! Ci sono riuscito! Eccolo qui Source: CODICE $String="AA 001 BA" ConsoleWrite(_GetNumberPost($String))
Func _GetNumberPost($T) $Sp=StringSplit($T," ") $N=$Sp[2] $P=Asc(StringLeft($Sp[1],1))-65 $S=Asc(StringRight($Sp[1],1))-65 $P2=Asc(StringLeft($Sp[3],1))-65 $S2=Asc(StringRight($Sp[3],1))-65 $S22=$S2*999 $P22=$P2*999*26 $S11=$S*999*26*26 $P11=$P*999*26*26*26 Return $N+$S22+$P22+$S11+$P11 EndFunc;==>_GetNumberPost Modificato come richiesto da dev: CODICE $String="AA 001 BA" ConsoleWrite(_GetNumberPost($String))
Func _GetNumberPost($T) $Sp=StringSplit($T," ") $N=$Sp[2] $P=Asc(StringLeft($Sp[1],1))-65 $S=Asc(StringRight($Sp[1],1))-65 $P2=Asc(StringLeft($Sp[3],1))-65 $S2=Asc(StringRight($Sp[3],1))-65
Return $S2*999+$P2*25974+$S*675324+$P*17558424+$N EndFunc;==>_GetNumberPost Modificato per la 2° volta <.< CODICE $String="AA 001 BA" ConsoleWrite(_GetNumberPost($String))
Func _GetNumberPost($T) $Sp=StringSplit($T," ") $N=$Sp[2] $P=Asc(StringLeft($Sp[1],1))-65 $S=Asc(StringRight($Sp[1],1))-65 $P2=Asc(StringLeft($Sp[3],1))-65 $S2=Asc(StringRight($Sp[3],1))-65 Return $S2*999+$P2*999*26+$S*999*(26^2)+$P*999*(26^3)+$N EndFunc;==>_GetNumberPost Edited by 3ad - 23/2/2011, 17:12
|
| |