VBNet - Форум - Удалить дубли из цикла

Вопрос: Удалить дубли из цикла Добавлено: 20.02.10 01:39

Автор вопроса: absolvo | Web-сайт: absolvo.ru | ICQ: 3208252

Здравствуйте!
Сложилась такая задача, поправить старый скрипт на VBS, а я, если честно, помню только азы из VB, ещё со школы, и не могу решить ряд задач. Буду рад помощи, в виде пояснений, дабы просветить =)

do while not rs.EOF

line = line&i&Cost&" 06 "&m&"."&y&" "&" Интернет "&dep &crlf
Response.Write(line)

loop

В итоге в текстовый файл пишутся значения типа:
1
1
2
3
4
5
5
6
7
8
9
9

Как можно сложить дубли, тем самым и убрать их?
Спасибо.
Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| Цитата \| #1	Добавлено: 20.02.10 11:22
	нужно в 1 цикле сделать 2 цикл проверки существующих значений должно выглядеть наподобие этого: Dim dictionary ' переменная массива Dim count ' указатель на запись в массиве do while not rs.EOF For count = 0 to count - 1 if dictionary(count) = line then ... Next loop Ответить

Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #2	Добавлено: 20.02.10 12:22
	Достаточно проверить наличие цифры во временной строке и если её нет, то добавить эту новую цифру к строке. Т.е. внутренний цикл заменит функция Instr. Так быстрее. Ответить

Номер ответа: 3 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| Цитата \| #3	Добавлено: 20.02.10 12:35
	2 Smith а как быть если там не 10 значений а 1000?? и еще ты писал про ресурсы в exe ты не знаешь можно ли с оcx или exe так же делать? Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #4	Добавлено: 20.02.10 13:22
	Строка длинной меньше килобайта это много? Это ерунда! И полюбому будет быстрее двух циклов, но если хочешь можно придумать чтото ещё более быстрое. В ресурсы можно уложить практически всё, что угодно и слить оттуда в файл когда нужно. Ответить

Номер ответа: 5 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| Цитата \| #5	Добавлено: 20.02.10 13:39
	подскажи плиз как мне ocx запихать а потом извлечь и запустится ли вообще прога если использует этот ocx? Ответить

Номер ответа: 6 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #6	Добавлено: 20.02.10 13:57
	Конечно запустится! Я щас с мобилы, позже скину пример, а пока так, на словах. Нужно написать Sub Main() и в свойстах выбрать эту процедуру запуска. Редактором ресурсов Вижуал Студии создать CUSTOM ресурс нужного файла. Ответить

Номер ответа: 7 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| Цитата \| #7	Добавлено: 20.02.10 14:29
	разобрался, спасибо! Private Sub Main() ' in module Dim B() As Byte B = LoadResData(101, "CUSTOM") Open App.Path & "\My.OCX" For Binary As #1 Put #1, , B() Close #1 Form1.Show End Sub давно пытался так делать но не сообразил что через модуль это делается Ответить

Номер ответа: 8 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #8	Добавлено: 20.02.10 14:37
	Dim A() As Byte A = LoadResData(1, "CUSTOM") Open Environ$("TMP") & "\" & App.EXEName & ".tmp" For Binary Access Write As 1 Put #1, , A Close Ответить

Номер ответа: 9 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #9	Добавлено: 20.02.10 14:39
	опоздал Ответить

Номер ответа: 10 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #10	Добавлено: 20.02.10 14:45
	А вообще правильнее слить в тэмп, зарегать на время работы и при завершении отменить регистрацию. Это на случай если у проги нет прав на запись в свою папку. Ответить

Номер ответа: 11 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| Цитата \| #11	Добавлено: 20.02.10 14:51
	я кстати уже подумал над этим... а если ocx есть уже (или др версии) я зарегю свой потом отменю и в итоге система вообще без этого ocx останется? ) Ответить

Номер ответа: 12 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #12	Добавлено: 20.02.10 14:59
	Ну проверяй на наличие перед тем как сливать свой осх Ответить

Страница: 1 |