есть ли функция в VB, размера масива?

[LionK]

написал сохранение/загрузку данных сначала в ИНИ, работало довольно быстро ,пока размер был малинький, потом начал сохранять в своём формате, загрузка происходит быстро, а вот сохранение медленно. загрузка происходит сначала в переменную типа стринг, а потом распихивается в динамический масив, а сохранение происходит наоборот из масива берутся данные и добавляются к переменной, я думаю что постоянное расширение памяти под увеличевающуюся переменную и тормозит, вопрос такой: есть ли функция возвращающая полный размер масива или скока он памяти занимает...
ну, думаю понятно ообъяснил7

[Antonariy]

Размер массива — UBound(arr)

[tyomitch]

UBound(arr)-LBound(arr)+1
раз уж на то пошло

[Debugger]

А если массив пустой?
If (not (arr))=-1 Then Msgbox "Массив не проиницализован"

[Хакер]

Глупо. Надо писать два раза Not, чтобы компилятор их оптимизировал, и убрал, и сравнивать не с Not 0, а с 0.

А вообще GSerg говорил, что эта фича (которая на самом деле глюк) работает не всегда.

[Debugger]

Да понятно, что это глюк и что он может вдруг перестать работать. Но разве есть другой вариант?

[Хакер]

Есть, и не один. И документированные, и менее документированные.

Но в посте содержится ещё и мысль о том, что надо два раза писать Not, которую ты проигнорировал.

[tyomitch]

Надо писать два раза Not, чтобы компилятор их оптимизировал, и убрал, и сравнивать не с Not 0, а с 0.

Это абстрактное предположение, или ты действительно проверял, как компилируются оба варианта?
Казалось бы, если компилятор достаточно умный, чтобы убрать два Not, он догадается и приведённый вариант развернуть.

[LionK]

наверно я не правильно объяснил, мне надо узнать не размерность масива а его размер занимающий NN-ое количество памяти чтобы сразу создать переменную с размером масива....
P.S. что-то мне отчёты не приходят на мыло, об ответах в теме.....
галочка стоит в "Сообщать мне о получении ответа"

[Хакер]

А мы тебе и предлагаем способ узнать размер, а вовсе не размерность.

(Уведомление пришло?)

[LionK]

стоп, ubound возвращает верхнюю границу масива.....
а мне надо знать скока он весит в байтах...

[Хакер]

Тогда всё намного хуже.

Тебе надо знать, сколько массив занимает памяти (в байтах). Чтобы говорить о таких вещах, тебе надо знать, как вообще массивы хранятся в памяти.

Но ты этого не знаешь. Потому что если бы знал, ответ на вопрос был бы тебе очевиден.

[LionK]

так потому и спрашиваю.... еслиб знал, не спрашивал бы....

[tyomitch]

Потому что если бы знал, ответ на вопрос был бы тебе очевиден.

Ну да прямо. А вдруг там UDT, строки, варианты и вся остальная нечисть.

[LionK]

ну зачем гадать что за масив.. вот он, полная структура

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

Public Stars() As Star

Public Type bld
    sName As String
    sNumber As Long
End Type

Public Type ress
    resurs As Boolean
    ruda As Long
    metal As Long
    kript As Long
    spice As Long
End Type

Public Type SpySys
    res As ress
    builds() As bld
    def() As bld
    flot() As bld
    labs() As bld
    ssTime As Date
    chance As Integer
    isOk(4) As Boolean
End Type

Public Type Star
    isPl As String
    IDplanet As Long
    plName As String
    puncts As Long
    status As Stats
    usName As String
    position As String
    res As ress
    spy As SpySys
    Aliaz As String
End Type

Public Enum Stats
    off = 0
    war = 1
    big = 2
    alz = 3
    wyh = 4
    otr = 5
End Enum


[Viper]

Вот как раз и нечисть в полном комплекте. Особенно учитывая наличие строк в структурах.

[M.A.R.K]

LionK, ну если он тебе заранее известен...то попробуй посчитать на кальнуляторе.

[Хакер]

Ну да прямо. А вдруг там UDT, строки, варианты и вся остальная нечисть.

Я это (но не только) и имел в виду. Что автор, во-первых, не указал, считать или не считать SA-дескриптор, а, во-вторых, не указал, как поступать с указателями — считать их за 4 байта, или считать данные, на которые эти указатели ссылаются.

[LionK]

Я это (но не только) и имел в виду. Что автор, во-первых, не указал, считать или не считать SA-дескриптор, а, во-вторых, не указал, как поступать с указателями — считать их за 4 байта, или считать данные, на которые эти указатели ссылаются.

я конечно сильно извиняюсь..... но я не настолько профессиональный программер..... я чисто для себя пишу програмулинки(чисто для помощи мне в той или иной задаче) и спросил есть ли функция в ВБ (просто я не знаю такой), а вы как обычно начали консилиум... просто я хочу ускорить сохранение массива(просто загрузка происходит 5сек, а сохранение 5мин), но если нужно его пересчитывать, то возможно это может только затормозить процесс....

[Хакер]

В чём проблема? Почему так долго? Ты читаешь массив поэлементно?

И теперь хочешь сделать сохрение/загрузку за раз? Зачем при этом знать размер в байтах?

[iGrok]

Ещё раз вдумчиво вчитался в написанное в первом посте.

LionK, я правильно понимаю, что при сохранении массива ты последовательно проходишь по всей структуре, запихиваешь данные в строку (strsave = isPL + IDPlanet + ... ). Туда же в своём формате пишешь содержимое "вложенных" структур и массивов, а потом скидываешь эту строку в файл?

А при чтении наоборот, поднимаешь строку из файла, и рабираешь её, заполняя массив?

Или я что-то упустил?

[LionK]

iGrok , нет не упустил именно так....
только почему-то разница в скорости.....

[iGrok]

Может быть, тебя устроит такой способ сохранения этой структуры?
viewtopic.php?f=1&t=38058

[LionK]

спасибо, может подойдёт.... проверю на выходных.....

[LionK]

приведенный выше пример не подошёл, в VB нельзя сохранять масивы пользовательских типов.
мне пришлось дважды прогонять весь масив,
1. пересчитав размер каждого элемента
создав переменную str=space(count)
2.и повторно прогонять масив уже занося его данные mid(str,count,???)=
(если кому интерестно)

скорость сохранения сократилась, при размерности (5000+), до 2-3 секунд что примерно = скорости загрузки.......

[Andrey Fedorov]

приведенный выше пример не подошёл, в VB нельзя сохранять масивы пользовательских типов.

Чего ради нельзя? Можно. Притом примитивно.

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

Option Explicit

Public Type MyType2
    s() As String
End Type

Public Type MyType1
    s As String
    r(4) As MyType2
End Type

Private Type MyType
    s() As MyType1
End Type

Public Sub Main()
    MySave
    MyLoad
End Sub

Private Sub MySave()
    Dim mt As MyType, iHFile As Integer


    ReDim mt.s(6)
    ReDim mt.s(2).r(2).s(7)
    mt.s(2).r(2).s(2) = "Проверочка 2"
    mt.s(2).r(2).s(5) = "Проверочка 5"
   
    iHFile = FreeFile
    Open "D:\Temp\my.ddd" For Binary As #iHFile
    Put #iHFile, , mt
    Close #iHFile
End Sub

Private Sub MyLoad()
    Dim mt As MyType, iHFile As Integer

    iHFile = FreeFile
    Open "D:\Temp\my.ddd" For Binary As #iHFile
    Get #iHFile, , mt
    Close #iHFile
   
    Debug.Print mt.s(2).r(2).s(2)
    Debug.Print mt.s(2).r(2).s(5)
End Sub


[LionK]

странно, твой примерчик прошёл без ошибки, но на мой масив ругается что нельзя.....
посмотри структуру, может подскажешь из-за чего....