Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2241481 Mon, 13 Apr 2009 07:32:25 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2241481 Kugeod VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240373 Sat, 11 Apr 2009 05:20:06 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240373 Цитата Kugeod @
А меня то как раз интересует изменение первого измерения, так как мне оно не известно пока не закончится цикл

Поменяйте местами индексы :D]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240314 Fri, 10 Apr 2009 21:24:40 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240314 Kugeod VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240037 Fri, 10 Apr 2009 14:00:04 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240037 Цитата GDK @
Для многомерных массивов данные, хранящиеся в "2-м, 3-м, ..." измерениях "обнуляются".

Что??? никогда не было такого!]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240003 Fri, 10 Apr 2009 13:12:45 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2240003 Если не требуется высокое быстродействие могу посоветовать вместо массива использовать коллекции или ещё лучше объекты vbscript.Dictionary (вроде бы правильно написал). Но коллекциями можешь пользоваться сразу, а вот для чтобы был "доступ" к диктионари надо подключить библиотеку microsoft scripting runtime c помощью Tools-references.... Короче с ними работать намного удобнее. Особенно с dictionary. Но при его использовании по сравнению с коллекциями могут быть проблемы, т.к. на некоторых компах системные администраторы запрещают подключать некоторые библиотеки.]]> GDK VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239631 Fri, 10 Apr 2009 04:35:57 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239631
И вообще неплохо бы побольше читать.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239585 Thu, 09 Apr 2009 21:05:46 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239585
    if i>50 then newM(i-50,j)...

А если у меня сложнее условие и я хочу на выходе получить массив только с теми значениями которые мне нужны, это вообще возможно? Без нулей? Как автоматически уменьшит размер выходного массива чтоб он был размером только под те значения, которые отфильтруются?
Я вот тут накатал какоето безобразие, не знаю на правильном ли пути. Подскажите
к примеру
    Sub Massiv()
    Dim g As Integer
    Randomize Timer
    g = 1
    For i = 1 To 100
        For j = 1 To 10
            oldM(i, j) = (Rnd + 0.6) * 2
            If (i > 50 And i < 60) Or (i > 80 And i < 90) Then newM(g, j) = oldM(i, j)
        Next j
        If (i > 50 And i < 60) Or (i > 80 And i < 90) Then g = g + 1
    Next i
    Worksheets(1).Range(Cells(1, 1), Cells(g, 10)).Value = newM
    End Sub

ввел переменную g чтобы вывести только те значения которые меня интересуют. Но все равно такое ощущение, что можно по другому, слишком нагромоздил.. Тем более что выходной массив при этом не уменьшается, а значит смысл теряется:(]]> Kugeod VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239387 Thu, 09 Apr 2009 13:18:06 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239387 Цитата Kugeod @
Если первый комментарий в этом коде верный то почему итог выглядит как массив (1,1) (100,10) у которого значения до 50 заполнены нулями, а потом только выводится то что я хочу получить.

При определении переменной типа Integer (неважно, одиночка или массив) ей присваивается значение "ноль". Потом ты часть массива перезаписываешь - меняешь нули на значение, - а начало так и остаётся всё в нулях.

Правильнее - так:

    Dim oldM(1 to 100, 1 to 10) As Integer
    Dim newM(1 to 50, 1 to 10) As Integer
     
    Sub Massiv()
    Dim i As Integer, j As Integer
    Randomize Timer
     
    For i = 1 To 100
        For j = 1 To 10
            oldM(i, j) = (Rnd + 0.6) * 2
            If i > 50 Then newM(i-50, j) = oldM(i, j)
        Next j
    Next i
     
    Worksheets(1).Range(Cells(1, 1), Cells(50, 10)).Value = newM
    End Sub
]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239365 Thu, 09 Apr 2009 12:43:31 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239365
    Sub Massiv()
    Dim g As Integer
    Randomize
     
    For i = 1 To 100
        For j = 1 To 10
            oldM(i, j) = Fix((Rnd + 0.6) * 2)
            If i > 50 Then newM(i, j) = oldM(i, j) 'это выражение присваивает новому массиву значения только с (50,1) до (100,10)??
        Next j
    Next i
    Worksheets(1).Range(Cells(1, 1), Cells(100, 10)).Value = newM ' это я гдето подсмотрел что так можно:)
    End Sub


Если первый комментарий в этом коде верный то почему итог выглядит как массив (1,1) (100,10) у которого значения до 50 заполнены нулями, а потом только выводится то что я хочу получить. Как сделать чтобы новый массив был только из 50 элементов по условию? и соответственно выводил 50 на 10.
Заранее простите за тупость:(]]> Kugeod VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239199 Thu, 09 Apr 2009 09:24:42 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239199 Цитата GDK @
И вот ещё, обрати внимание. Объявляешь массив 0-1000, 0-100. Т.е. такой массив будет содержать 1001 "строку" и 101 "колонку". А цикл начинаешь с номера 1. Т.е. не будет никаких действий с 0-й строкой и нулевой колонкой.

Это при условии что выше нет незахваченного при копировании Option Base 1. :D]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239186 Thu, 09 Apr 2009 08:42:06 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239186
    Dim newM(1000, 100) As Integer
    Dim oldM(1000, 100) As Integer
    Dim i As Integer: Dim j As Integer
     
    Sub Massiv()
    Randomize
    For i = 1 To 1000
     
        For j = 1 To 100
            oldM(i, j) = Fix(Rnd + 0.5)
            If i > 500 Then newM(i, j) = oldM(i, j)
        Next j
        
        'If i > 500 Then newM(i, j) = oldM(i, j)
    Next i
    End Sub


Это надо было?

И вот ещё, обрати внимание. Объявляешь массив 0-1000, 0-100. Т.е. такой массив будет содержать 1001 "строку" и 101 "колонку". А цикл начинаешь с номера 1. Т.е. не будет никаких действий с 0-й строкой и нулевой колонкой.

Добавлено
И зря ты для экспериментов пользуешься такими большими массивами. Проще было бы (0-10, 0-4 ) например.

Добавлено
И лучше используй Long вместо Integer. Хоть памяти занимает больше, зато гимора в виде сообщений с ошибками намного меньше будет.]]> GDK VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239139 Thu, 09 Apr 2009 07:31:29 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239139 Цитата Kugeod @
Почему не работает?

Потому что с логикой косяк.
Выполняется цикл по j. От 1 до 100. Завершяется он, когда на очередном витке j становится больше 100, т.е. 101. Но следующей строкой ты делаешь newM(i, j) = oldM(i, j) - при j=101 иной реакции программы ожидать не следовало.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239113 Thu, 09 Apr 2009 06:46:33 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239113
Dim newM(1000,100) As Integer
Dim oldM(1000, 100) As Integer
Dim i As Integer: Dim j As Integer

Sub Massiv()
Randomize
For i = 1 To 1000
For j = 1 To 100
oldM(i, j) = Fix(Rnd + 0.5)
Next j
If i > 500 Then newM(i, j) = oldM(i, j)
Next i
End Sub

Выводит ошибку subscript out of range Почему не работает? :(]]> Kugeod VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239022 Wed, 08 Apr 2009 22:42:11 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239022 MIF VB for Application https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239000 Wed, 08 Apr 2009 21:05:29 +0000 копирование массива в массив https://forum.sources.ru/index.php?showtopic=269521&view=findpost&p=2239000 Неделю назад открыл для себя что такое макрос, применительно к Екселю. Сегодня книжку купил, но все равное не разберусь никак...
Смысл в том чтоб выгрузить двумерный массив чисел-integer к примеру 1000 на 100, а далее по определенным условиям перегрузить, соответственно уже кусок этого массива в другой массив. Понял как массив создать, как его отфильтровать, а вот выгрузить полученные значения в новый массив не получается. Посоветуйте пожалуйста что-нибудь, желательно куском кода:) Спасибо заранее
з.ы. два цикла j=1 to 100 внутри i=1 to 1000; отбор значений идет после цикла j и сравнивать хотел там же, по просто думал будет работать чтото типа old(i,j)=new(i,j) а почемуто нет:(]]> Kugeod VB for Application