| Вопрос: Генерация букав | Добавлено: 07.06.08 18:52 |
Автор вопроса:  Андрей
|
| Здравствуйте! Подскажите, как в VB6 сгенерировать строку типо ldsfgwqeerwyvc ? Заранее спасибо! |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 07.06.08 19:00 |
|
Циклу даёшь нужную длину будущей строки
а в теле накапливаешь строку из рандомных символов |
||
|
Номер ответа: 2 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 07.06.08 19:04 |
|
Randomize Timer For StrLen=1 to 12 tmpStr = tmpStr & Chr$(65 + Rnd * 26) Next |
||
|
Номер ответа: 3 Автор ответа: Андрей Вопросов: 12 Ответов: 18 |
Профиль | Цитата | #3 | Добавлено: 08.06.08 06:28 |
| Спасибо за ответы | ||
|
Номер ответа: 4 Автор ответа: АндрейВопросов: 12 Ответов: 18 |
Профиль | Цитата | #4 | Добавлено: 08.06.08 06:41 |
| Но строки генерируются с символом "]" можно его как то убрать? и не генерировать? нужно генерировать только буквы латинского алфавита | ||
|
Номер ответа: 5 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | Цитата | #5 | Добавлено: 08.06.08 09:59 |
|
(65 + Rnd * 26)
поэкспериментируй с циферками. а вообще просто помсмотри где-нибудь таблицу символов и их кодов.... |
||
|
Номер ответа: 6 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 09.06.08 03:23 |
| ога) в виндовой таблице символов, например) | ||
|
Номер ответа: 7 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | Цитата | #7 | Добавлено: 09.06.08 05:36 |
|
нужно генерировать только буквы латинского алфавита
можно вообще генерировать только предопределенное кол-во символов из шаблона Dim template As String Dim tmpStr As String Dim tmplen As Integer Dim x As Integer Dim ls As Integer template = "qwertyQWERTY" ' шаблон tmplen = 34 'длина новой строки ls = Len(template) Randomize Time For x = 1 To tmplen tmpStr = tmpStr & Mid(template, CInt(Rnd * (ls - 1)) + 1, 1) Next Debug.Print tmpStr |
||
|
Номер ответа: 8 Автор ответа: АндрейВопросов: 12 Ответов: 18 |
Профиль | Цитата | #8 | Добавлено: 09.06.08 06:14 |
| Большое спасибо! | ||
|
Номер ответа: 9 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #9 | Добавлено: 10.06.08 11:45 |
asc("A" to asc("Z"
asc("a" to asc("a" 
|
||
Страница: 1 |