-
AutoIt
(
http://forum.oszone.net/forumdisplay.php?f=103)
Мини шифровальщик.
Есть код, типа 123456789, как разбить его на отдельные цифры и представить в виде букв, например 1=A, 2=B и т.д.
|
Centrinar,
Можно так попробовать:
Код:
#include <Array.au3>
Dim $aArray[10] = ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J'] ;0123456789
$sString = 1029384756
$aTemp = StringSplit($sString, '')
$sNewString = ''
For $i = 1 To $aTemp[0]
$sNewString &= $aArray[$aTemp[$i]]
Next
MsgBox(64, 'Info', $sNewString)
$aTemp = StringSplit($sNewString, '')
$sOldString = ''
For $i = 1 To $aTemp[0]
$sOldString &= _ArraySearch($aArray, $aTemp[$i])
Next
MsgBox(64, 'Info', $sOldString)
|
Время: 17:52.
© OSzone.net 2001-
