Подскажите функцию для работы с массивом...

[Death666]

Нужна функция, которая удаляет пустые элементы массива... если, конечно, такая существует...

[Viper]

Тока ручками. Особливо если учесть, что понятие "пустой элемент массива" весьма субъективное.

[Matew]

Death666, про удаление в массивах: http://www.vbstreets.ru/VB/Articles/66160.aspx

[Death666]

Ещё один вопрос: где ошибка, почему ругается?

Private Sub Form_Load()


Dim arrdata()
Dim i As Single, j As Integer, tend As Single

j = 0
For i = Val(Form2.Text8.Text) To Val(Form2.Text38.Text) Step Val(Form2.Text9.Text) '0.0625
j = j + 1

GrafAlf i, tend ' процедура вычисляющая tend

ReDim Preserve arrdata(1 To j, 1 To 2) As Variant
arrdata(j, 1) = Str(i)

arrdata(j, 2) = tend

Next i

MSChart1.chartType = VtChChartType2dLine
MSChart1.ChartData = arrdata


End Sub

[Andrey Fedorov]

Ещё один вопрос: где ошибка, почему ругается?

1. На какой строке возникает ошибка?
2. Какие значения переменных при этом?
3. Какое сообщение об ошибке?

Ответив на эти вопросы ты найдешь ответ и на свой...

[Nicky]

Similarly, when you use Preserve, you can change the size of the array only by changing the upper bound; changing the lower bound causes an error.

[Death666]

andreymp, так вроде в моём случае и меняется только верхний предел: arrdata(1 To j, 1 To 2) - j на каждой итерации увеличивается на 1...

[Matew]

Death666, верхний вот так: arrdata(1 To 2, 1 To j)

[Death666]

Matew, точно... ты прав. Так работает, но такой массив не засунешь в MSChart... Спасибо, что просвятил.

[Ennor]

Так работает, но такой массив не засунешь в MSChart.

А транспонировать очищенный массив - религия не позволяет?

[Death666]

Так работает, но такой массив не засунешь в MSChart.

А транспонировать очищенный массив - религия не позволяет?

Вы бы лучше подсказали функцию транспонирования, чем философствовать на тиологические темы...

[Dmitriy2003]

А разве есть такая функция??? помоему ток ручками

[Ennor]

Встроенной функции в VB6 нет, верно. Как-то так, видимо:

Код: Выделить всё


' На входе подразумевается, что массив arrdata() - это валидный двумерный массив
dim arr() as single
redim arr(lbound(arrdata(), 2) to ubound(arrdata(), 2), lbound(arrdata(), 1) to ubound(arrdata(), 1))
dim x as long, y as long
for x=lbound(arrdata(), 1) to ubound(arrdata(), 1)
  for y = lbound(arrdata(), 2) to ubound(arrdata(), 2)
    arr(y, x) = arrdata(x, y)
  next y
next x


Уточни только в хелпе, правильно ли я использовал второй аргумент LBound/UBound - по памяти писал, мог и ошибиться.

[Death666]

Всем спасибо за помощь.