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

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

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

я уже полтора года пишу кейлоггер) вернее, я его уже написал, а теперь дорабатываю до совершенства. в текстбокс(или ричтекстбокс) каждую секунду копируются логи человека. клавиша бекспейс для удобства заменена знаком |. т.е. если пользователь пишет " привэд ", состирает две буквы, пишет " ет ", то я в тексбоксе это вижу так: " привэд||ет ". пришла идея убрать знаки бекспейс и просто пометить состёртые символы. как-нибудь. например, другим цветом, вот так: " привэдет ". вот вся задумка))
...
Рейтинг: 0 / 0
01.05.2012, 10:14
| Ответить | Цитировать | Написать  
коллекция
    #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, 10:32
| Ответить | Цитировать | Написать  
коллекция
    #37777991
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

на данный момент второстепенный вопрос. этим я займусь позже. но если есть идеи, буду рад выслушать
...
Рейтинг: 0 / 0
01.05.2012, 11:07
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / коллекция
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=79&tid=2157835]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 14ms
total:  127ms
созд. / загр.: 127ms
x
x
Закрыть


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