[решено] Вернуть рандомную фразу

amel27 · Отправлено: **10:56, 09-07-2009** | #2

FlatX007, а что подразумевается под фразой "из рандомных букв"?.. как раз то, что описано ниже

FlatX007 · Отправлено: **12:00, 09-07-2009** | #3

wesadczgcgjbnzytuyiuopmjouitfhg - "фраза" из рандомных букв что непонятного ?

proxy · Конфигурация компьютера

Цитата FlatX007:

У меня предположение я не пробовал ещё - нужно вернуть рандомное число от 1 до 33 и к каждой цифре приравнять букву из алфавита по порядковому номеру, потом "сумировать" комбинации. Если так то пример ненадо я сам придумаю. »

помойму это единственный вариант, после генерации либо:
- StringMid
- Chr
- либо извращения, выборка из массива...

amel27 · Отправлено: **12:19, 09-07-2009** | #5

FlatX007, все как раз понятно: "вернуть фразу из рандомных букв" это то же самое, что:

Цитата:

вернуть рандомное число от 1 до 33 и к каждой цифре приравнять букву из алфавита по порядковому номеру, потом "сумировать" комбинации

т.е. это не "способ", а другая формулировка той же задачи

сравни с формулировкой: "вернуть рандомную фразу из заданных букв" - это уже другая задача

P.S. это не флуд, а занудство

...сам сказал - другие способы не интересуют

proxy · Конфигурация компьютера

Давайте закидаем Амеля27 снежками

- он много знает ...

FlatX007 · Отправлено: **14:38, 09-07-2009** | #7

Цитата amel27:

amel27 »

Цитата FlatX007:

Меня интересует есть ли другой способ »

Цитата amel27:

..сам сказал - другие способы не интересуют »

Где логика ?

Creat0R · Конфигурация компьютера

Код:

$sRandomString = _StringGetRandomString(15, 20, 1)

MsgBox(64, 'Title', $sRandomString)

Func _StringGetRandomString($iMin=1, $iMax=1, $iOnly_ASCII=0)
    If $iMax < $iMin Then Return SetError(1, 0, 0)

    Local $iRandom, $sRet_Str = ''
    Local $iMin_Rndm = 33, $iMax_Rndm = 255
    If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122

    For $i = 1 To Random($iMin, $iMax, 1)
        $sRet_Str &= Chr(Random($iMin_Rndm, $iMax_Rndm, 1))
    Next

    Return $sRet_Str
EndFunc

FlatX007 · Отправлено: **15:19, 09-07-2009** | #9

некак непойму зачем эти строчки

Код:

    Local $iMin_Rndm = 33, $iMax_Rndm = 255
    If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122

proxy · Конфигурация компьютера

Цитата Creat0R:

If $iOnly_ASCII Then Dim $iMin_Rndm = 97, $iMax_Rndm = 122 »

Dim тут для того, что бы объявить заново переменные $iMin_Rndm и $iMax_Rndm.
а так как это можно сдлеать в одну строчку, то можно не расписывать:

Код:

If $iOnly_ASCII Then 
       $iMin_Rndm = 97
       $iMax_Rndm = 122
EndIf

Хитро

Только есть ли скрытый смысл в использование Dim? Может тот же Local?

А $iMin_Rndm = 97 и $iMax_Rndm = 122 - это значит произвести выборку только среди английского алфавита маленьких букавак: a-z