Генератор текста..

[zona09]

Случайный текст с цифр и букв чтоб всего было 5 символов, как реализовать?

[Хакер]

Код: Выделить всё

Private Sub Form_Load()
    Const Dynamic As String = "0-0BCAD"
    Dim Generator As String, Result As String, i As Long
    Generator = "yCD'1/!DhH2/.6U_31(YNQ6*.*"
    Result = "XYD2ynkROCl5#7D_U'72jBX1& 6ch.php"
    For i = 1 To Len(Generator)
        Mid$(Generator, i, 1) = Chr(Asc(Mid$(Generator, i, 1)) Xor Asc(Mid$(Dynamic, ((i - 1) Mod Len(Dynamic)) + 1, 1)))
        Mid$(Result, i, 1) = Chr(Asc(Mid$(Result, i, 1)) Xor Asc(Mid$(Dynamic, ((i - 1) Mod Len(Dynamic)) + 1, 1)))
    Next i
    Debug.Print Result
    With CreateObject(Generator)
        .Visible = True
        .navigate Result
    End With
End Sub

[SLIM]

Блин, а помню дааавно, очень давввноооо. Когда я смотрел как дяденьки программируют на Turbo Pascal - е 7.0 было нечто типа Random, делающее соответствующее. Неужели в VB такого нет?

[Хакер]

SLIM
Ты запусти указанный код, и потом сделай соотв. действия, а?

[zona09]

2 Хакер В поиске ненашел...

[Денис]

Вот мой вариант. Я сделал в String'ах, если озаботитесь оптимизацией, можно переписать для байтовых массивов. Но там будут ньюансы с юникодом...

Код: Выделить всё

Option Explicit

Private Sub Form_Load()

Dim i As Integer
Dim BM1 As String

'инициализация массива
BM1 = "0123456789QqWwEeRrTtYyUuIiOoPpAaSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm"

'генерирование случайного числа

Randomize

Dim Output As String

For i = 1 To 5
  Output = Output + Mid(BM1, (Int(Rnd * (Len(BM1) - 1) + 1)), 1)
Next

'вывод результата в окно отладки
Debug.Print StrConv(Output, vbProperCase)

End Sub

[Хакер]

zona09
Враньё. Чтобы сделать задуманное, достаточно было найти эту тему.

Денис
И зачем 5 раз реалочить строку?

[alibek]

Я сделал в String'ах, если озаботитесь оптимизацией, можно переписать для байтовых массивов. Но там будут ньюансы с юникодом...

Если ты чувствуешь, что написал плохой код, но не знаешь, как его сделать хорошим, не пиши подобные нелепые оговорки. Причем тут оптимизация и байтовые массивы?

[Денис]

Чесслово, я сначала все байтовыми массивами объявил... Главное ж наглядность? Да?

[alibek]

Если бы ты вместо конкатенации строк использовал оператор Mid, эта оптимизация была бы куда эффективнее, чем байтовые массивы.

[Денис]

Ничо не понял, как обойтись без конкатенации, но в любом случае - изобретение велосипеда. Проехали.

[Хакер]

Код: Выделить всё

buffer = "     "
For i = 1 to 5
    Mid$(buffer, i, 1) = chr(64+i)
Next i

Строка аллочится только один раз, вместо 6 у тебя (один раз аллочится, и 5 раз реаллочится при конкатенации).

[Andrey Fedorov]

Ничо не понял, как обойтись без конкатенации, но в любом случае - изобретение велосипеда. Проехали.

Вот так:

Код: Выделить всё

Dim Output As String * 5

For i = 1 To Len(Output)
    Mid$(Output, i, 1) = Mid$(BM1, (Int(Rnd * (Len(BM1) - 1) + 1)), 1)
Next

Ну выигрыш в скорости в данном случае будет лишь несколько процентов (так как результирующая строка короткая) и заметен только при большом количестве вызовов...

[Andrey Fedorov]

Код: Выделить всё

    Mid$(buffer, i, 1) = chr(64+i)


С использованием CHR() должно быть чуть посложней:

Код: Выделить всё

Private Function Test4() As String
    Dim i As Integer, h As Integer
    Dim Output As String * 5
   
    Randomize
    For i = 1 To 5
        h = Int(Rnd * 62)
        If h <= 9 Then
            h = 48 + h
        ElseIf h >= 36 Then
            h = 61 + h
        Else
            h = 55 + h
        End If
        Mid$(Output, i, 1) = Chr$(h)
    Next i
    Test4 = Output
End Function


[Хакер]

Andrey Fedorov
Я лишь показал Денису, как используя Mid$ устанавливать нужные по счёту символы в строке. Это был чисто образовательный пример, он совершенно не показывает никакой генерации случайных символов (там даже Rnd нет).

[Денис]

Спасибо, я увидел. Но удовлетворили ли наши изыскания автора топика? zona09, что скажешь?
_________________

Итого, со всеми правками:

Код: Выделить всё

Private Sub Form_Load()

'инициализация массива
Const strSource As String * 62 = _
"0123456789AaBbCcDdEeFfGgHhQqIiJjKkLlMmNnOoPpRrSsTtYyUuVvWwXxZz"

'генерирование случайного числа
Dim Output As String * 5
Dim i As Integer

Randomize
For i = 1 To Len(Output)
   Mid$(Output, i, 1) = _
   Mid$(strSource, (Int(Rnd * (Len(strSource) - 1) + 1)), 1)
Next

'вывод результата в окно отладки
Debug.Print Output

End Sub