Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Код удаления из массива одинаковых полей Добавлено: 05.02.08 18:41  

Автор вопроса:  Виталий | ICQ: 215077774 
Плиз, помогите, сам не программист, так знаю чуток еще из школы- института...пытаюсь автоматизировать с помощью экселя процесс проектирования (занимаюсь проектированием электрики).
Бьюсь над кодом удаленя одинаковых полей(значений) из массива (массив не числовой, считай просто текст)
Вот пробую навоять что-то, но пока мало похоже на правду:
y = 0
For j = 1 To Sy
    jj = j + 1
    Do While k(j) <> k(jj)
        jj = jj + 1
        If jj = Sy Then Exit Do
    Loop
    
    If jj = Sy Then
        y = y + 1
        kk(y) = k(j) ' &#241;&#238;&#231;&#228;&#224;&#229;&#236; &#237;&#238;&#226;&#251;&#233; &#236;&#224;&#241;&#241;&#232;&#226; &#239;&#238;&#236;&#229;&#249;&#229;&#237;&#232;&#233; &#238;&#242;&#241;&#238;&#240;&#242;&#232;&#240;&#238;&#226;&#224;&#237;&#237;&#251;&#233; &#239;&#238; &#241;&#238;&#226;&#239;&#224;&#228;&#229;&#237;&#232;&#255;&#236;(&#242;.&#229;. &#241;&#238;&#226;&#239;&#224;&#228;&#224;&#254;&#249;&#232;&#229; &#239;&#238;&#236;&#229;&#249;&#229;&#237;&#232;&#255; &#243;&#225;&#240;&#224;&#235; &#237;&#224;&#245;)
    End If
        
   If Z = "" Then
            Z = kk(y)
            Else
            Z = Z & "," & kk(y) ' &#237;&#224;&#234;&#238;&#239;&#235;&#229;&#237;&#232;&#229; &#239;&#238;&#236;&#229;&#249;&#229;&#237;&#232;&#233; &#226; &#239;&#229;&#240;&#229;&#236;&#229;&#237;&#237;&#238;&#233; z
    End If
Next j

Worksheets("&#208;&#224;&#231;&#225;&#232;&#226;&#234;&#224; &#239;&#238; &#227;&#240;&#243;&#239;&#239;&#224;&#236;").Range("D" & num_cell).Value = Z '&#231;&#224;&#239;&#238;&#235;&#237;&#229;&#237;&#232;&#229; &#255;&#247;&#229;&#233;&#234;&#232; &#239;&#238;&#236;&#229;&#249;&#229;&#237;&#232;&#233; &#227;&#240;&#243;&#239;&#239;&#251;


y

Ответить

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

Номер ответа: 1
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #1 		Добавлено: 05.02.08 19:40
Тут думаю нужен "цикл в цикле" (эпическое выражение в нашей группе УВМ-111).
А какие проблемы-то? обнаружив, к примеру, что 4ый элемент равен 1ому, сдвигаем с пятого по последний элементы назад.

з.ы. а еще классно после каждой разобранной преподавателем программы спрашивать: "а если они равны?" =))) ну эт я так.. о своём

Ответить

Номер ответа: 2
Автор ответа:
 Виталий



ICQ: 215077774 

Вопросов: 1
Ответов: 1
  Профиль | | #2 Добавлено: 05.02.08 19:48
Да проблем то никаких, просто я не спец по VB и постоянно дебугер ошибки выдает и не врублюсь никак каой цикл использовать простой For Next///,,,
Короче сильно подозреваю, чо такой код уже лет сто назад разработан и лежит в сети, тока я вот найти никак не могу и бьюсь над изобретением велосипеда

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам