Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / коллекция / 12 сообщений из 12, страница 1 из 1
28.04.2012, 23:24
    #37776492
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
в коллекции числа. если числа повторяются, то все кроме одного числа должны уменьшаться на 1 и так далее, пока не останутся разные числа. например: числа 1, 6, 6, 6, 6, 11, 11. после обработки должно получиться 1, 3, 4, 5, 6, 10, 11. мудился с циклами - что-то не очень. буду благодарен за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2012, 12:32
    #37776681
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
BelowZero,
Вопрос... зачем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2012, 12:58
    #37776695
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
VSVLAD,

имеется ричтекстбокс такого вида esgvr|sed||fesg|||ewrg|e нужно убрать символы "|" и закрасить в зелёный цвет символы, стоящие перед ними. при чём если "||", то нужно закрасить два символа, и т.д. я состираю "|" и в коллекции запоминаю, после каких по счёту символов стояли "|" но когда приходит время раскрашивать, в коллекции будет такая картина: 5, 8, 8, 13, 13, 13, 17 и закараска будет такая: esgvrsedfesgewrge, а должна быть такая: esgvrsedfesgewrge
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2012, 13:57
    #37776732
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
BelowZero, что за зажим? выяснили как красить буковки? поделитесь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2012, 14:14
    #37776738
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
катастрофа,

Код: vbnet
1.
2.
3.
4.
5.
RichTextBox1.SelStart = coll(x)
RichTextBox1.SelLength = 1
'If RichTextBox1.SelColor = vbGreen Then
'Else
RichTextBox1.SelColor = vbGreen
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2012, 16:00
    #37777497
studieren
studieren
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
BelowZero,

Такие задачки легко решаются в реляционных СУБД. Например, в MS Access.
Допустим, у Вас есть таблица "NN", где есть единственное поле "N" для целых натуральных чисел от 1 до скажем 100. Далее, допустим в этой базе также есть временная таблица "Tbl", куда Вы вводите программно нужные Вам числа "1, 6, 6, 6, 6, 11, 11" в поле ну скажем "Х".
Затем запускаете вот такой запрос и получаете то, что надо:
Код: sql
1.
2.
SELECT NN.N
FROM (SELECT X, X-COUNT(X)+1 AS Y FROM Tbl GROUP BY X) AS T INNER JOIN NN ON (T.X>=NN.N) AND (T.Y<=NN.N);


Этот запрос Вы можете запускать либо через DAO, либо через ADO. В ADO не обязательно при этом запускать сам Access.
Этот же запрос и в SQL Server работает (в смысле синтаксис аналогичный).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2012, 22:55
    #37777792
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
studieren,

мне бы попроще. спс, конешь, но в том, что ты написАл, я ничего не понял
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2012, 23:23
    #37777807
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
BelowZerostudieren,
мне бы попроще. спс, конешь, но в том, что ты написАл, я ничего не понялТем не менее, совет был дан правильный...
С другой стороны - а зачем вообще создавать коллекцию, да еще привязывать её потом к RichTextBox, да еще и обрабатывать потом его, да еще и выводить куда-то результат... Лучше опиши, для чего вообще нужны такие извращения? Может, есть более быстрое и простое решение? Почему RichTextBox - я, примерно, представил по твоим постам в других темах... а вот смысла так и не уловил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2012, 10:14
    #37777976
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
AndreTM,

я уже полтора года пишу кейлоггер) вернее, я его уже написал, а теперь дорабатываю до совершенства. в текстбокс(или ричтекстбокс) каждую секунду копируются логи человека. клавиша бекспейс для удобства заменена знаком |. т.е. если пользователь пишет " привэд ", состирает две буквы, пишет " ет ", то я в тексбоксе это вижу так: " привэд||ет ". пришла идея убрать знаки бекспейс и просто пометить состёртые символы. как-нибудь. например, другим цветом, вот так: " привэдет ". вот вся задумка))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2012, 10:32
    #37777981
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
а как ты планируешь обрабатывать нажатие, скажем, Shift+Home или Shift+Ctrl+<=
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2012, 10:32
    #37777982
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
или Ctrl+Backspace
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2012, 11:07
    #37777991
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция
Shocker.Pro,

на данный момент второстепенный вопрос. этим я займусь позже. но если есть идеи, буду рад выслушать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / коллекция / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 464ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2157835]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 327ms
total:  464ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]