Массив на 99999999 элементов

[jangle]

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

Dim Arr_Str(99999999) as String * 4

При работе программа сильно тормозит систему на ноутбуке. Возможно есть другие пути использования такого массива?

[alibek]

Тебе не нужен такой массив.

[jangle]

Тебе не нужен такой массив.

Возможно и так. Но а конкретный совет будет?

[jangle]

Допустим это не массив, а некий "черный ящик", который может сохранять 4 байта в одной из 99999999 ячеек своей памяти. Какие пути к созданию такого объекта? Возможно его стоит хранить в виде оверлейного файла или что-то подобное?

[MIT]

Вариант со словарем не подойдет?
Мы храним только индекс, по которому что-то есть, в качестве ключа и информацию в качестве значения. Т.е. dict(23513453) - не равно ничему, а, например, в dict(98684) лежат данные.

[Debugger]

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

Dim Arr_Str(99999999) as String * 4

При работе программа сильно тормозит систему на ноутбуке. Возможно есть другие пути использования такого массива?

Можно использовать файл в качестве массива. Быстрее или медленнее будет - не знаю.

[MIT]

Еще мысль — использование массива Integer`ов, а не стрингов. Места всяко меньше займет.

[jangle]

Вариант со словарем не подойдет?
Мы храним только индекс, по которому что-то есть, в качестве ключа и информацию в качестве значения. Т.е. dict(23513453) - не равно ничему, а, например, в dict(98684) лежат данные.

Мне индекс хранить не нужно. Для меня он ключ, по которому лежат нужные 4 байта.

[MIT]

Мне индекс хранить не нужно.

Да он какбэ нигде и не хранится. Этот индекс-ключ будет тобой использоваться для вытаскивания из словаря значения.

[jangle]

Можно использовать файл в качестве массива. Быстрее или медленнее будет - не знаю.

Будет медленнее, надо продумать механизм навигации по такому огромному файлу

[jangle]

Мне индекс хранить не нужно.

Да он какбэ нигде и не хранится. Этот индекс-ключ будет тобой использоваться для вытаскивания из словаря значения.

Можешь привести пример такого словаря? Исходники?

[MIT]

Не очень элегантно, конечно, но смысл, думаю, донести получилось:

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

Public c As Collection

Private Sub Form_Load()
    Set c = New Collection
    Dim indx As Long
    indx = CLng(Rnd * 1000000)
    c.Add "1234", CStr(indx)
   
    On Error Resume Next
    Dim v1 As String, v2 As String
    v1 = c(CStr(4444))
    v2 = c(CStr(indx))
    Stop
End Sub

И, да, не словарь, а коллекция... Словари — это в .NET`е.

[jangle]

Не очень элегантно, конечно, но смысл, думаю, донести получилось:

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

Public c As Collection

Private Sub Form_Load()
    Set c = New Collection
    Dim indx As Long
    indx = CLng(Rnd * 1000000)
    c.Add "1234", CStr(indx)
   
    On Error Resume Next
    Dim v1 As String, v2 As String
    v1 = c(CStr(4444))
    v2 = c(CStr(indx))
    Stop
End Sub

И, да, не словарь, а коллекция... Словари — это в .NET`е.

После 2-3 миллионов записей программа умерла, утянув за собой и ОС, пришлось ресетится. И это при 3 гигах оперативки

[arthur2]

Может, так?

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

Public Property Get Arr_Str(ByVal index As Long) As String
  Arr_Str = Space(4)
  Get #f, index * 4 + 1, Arr_Str
End Property

Public Property Let Arr_Str(ByVal index As Long, newVal As String)
  Put #f, index * 4 + 1, newVal
End Property

А при каком количестве элементов массив не тормозит? Может сделать аналогично свойством, а хранить элементы в нескольких массивам помельче? Типа:

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

Dim mArr1(0 To 49999999) As String * 4
Dim mArr2(50000000 To 99999999) As String * 4

Public Property Get Arr_Str(ByVal index As Long) As String
  If index >= 50000000 Then
     Arr_Str = mArr1(index)
  Else
     Arr_Str = mArr2(index)
  End If
End Property

Public Property Let Arr_Str(ByVal index As Long, newVal As String)
  If index >= 50000000 Then
     mArr1(index) = newVal
  Else
     mArr2(index) = newVal
  End If
End Property


[Хакер]

Правильным ответом был второй пост.

. Словари — это в .NET`е.

Словари — это и в земном программировании, а не только в «божественном» .NET. Например Scripting.Dictionary — словарь от FSO.

[MIT]

Словари — это и в земном программировании, а не только в «божественном» .NET.

Вот обязательно надо прицепится к .NET`у, это типа круто, да?

[Хакер]

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

[iGrok]

При работе программа сильно тормозит систему на ноутбуке.

Ещё бы она не тормозила. 800 метров памяти "сожрать" при запуске..

MIT, что-то у тебя самого какая-то болезненная реакция на слово ".NET".

А по теме, с такими размерами, думаю, всё-таки нужно использовать спроецированный в память файл.
Или вообще просто обычный файл.

[MIT]

MIT, что-то у тебя самого какая-то болезненная реакция на слово ".NET".

Не на слово ".NET", а на бессмысленные/необоснованные/глупые отрицательные выкрики в сторону данной технологии.

[jangle]

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

Option Explicit

Dim Arr(0 To 99999999) As Long
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 99999999
Arr(i) = i
Me.Caption = i
DoEvents
Next i
End Sub

После миллиона итераций XP сходит с ума, система теряет стабильность. Отказывает эксплорер и диспечер задач. Возможно это потому, что у меня отключен файл подкачки. Cтранно, что отваливается возможность переключения раскладки клавиатуры. Вот тебе и "надежная" операционная система!

[jangle]

arthur2 - с файлом это видимо самое правильное решение. В оперативке с такими объемами не развернутся

[arthur2]

Кстати, так, пожалуй, чуть быстрее:

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

Public Property Get Arr_Str(ByVal index As Long) As String
  Static s As String * 4
  Get #f, index * 4 + 1, s
  Arr_Str = s
End Property

[FaKk2]

Возможно это потому, что у меня отключен файл подкачки. Cтранно, что отваливается возможность переключения раскладки клавиатуры. Вот тебе и "надежная" операционная система!

jangle, вот запереть тебя в ванной, запереть двери/окна и включить воду. Я уверен что когда вода достигнет потолка ты будешь задыхаться и вообще вести себя странно. Вот тебе и "надежный" человек!

[jangle]

jangle, вот запереть тебя в ванной, запереть двери/окна и включить воду. Я уверен что когда вода достигнет потолка ты будешь задыхаться и вообще вести себя странно. Вот тебе и "надежный" человек!

Операционная система не должна сходить с ума, от процесса который забирает 200 мегабайт оперативки, при 3 Гигах установленной памяти.

[alibek]

от процесса который забирает 200 мегабайт оперативки

И как ты это посчитал?

[jangle]

от процесса который забирает 200 мегабайт оперативки

И как ты это посчитал?

В таскменеджере посмотрел

[alibek]

И ты не подумал, куда делись остальные 800Мб?

[iGrok]

В таскменеджере посмотрел

Это несколько странно, т.к. у меня тот же код жрёт 400Мб.
При этом эксплорер и остальное отказывает только если изменения отображаются в Caption.
Т.е. вот такой вариант при выключении отображения изменений в Caption окна систему не грузит вообще. Хотя и отжирает те же 400Мб.
Видимо, дело в GDI...

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

Option Explicit

Dim Arr(0 To 99999999) As Long
Dim bWrk As Boolean

Private Sub Check1_Click()
    bWrk = IIf(Check1.Value = vbChecked, True, False)
End Sub

Private Sub Command1_Click()
    bWrk = True
    Dim i As Long
    Do While i < 99999999
        If bWrk Then
            Me.Caption = i
        End If
        Arr(i) = i
        i = i + 1
        DoEvents
    Loop
End Sub


И ты не подумал, куда делись остальные 800Мб?

А куда они могли деться, если у него своп отключен?

[jangle]

Видимо, дело в GDI...

Можно писать баг-репорт в Майкрософт?

[iGrok]

Видимо, дело в GDI...

Можно писать баг-репорт в Майкрософт?

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

Вот так работает без проблем и тормозов:
Жрёт те же 400Мб + на моей машине 50% проца.

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

Option Explicit

Dim Arr(0 To 99999999) As Long

Private Sub Command1_Click()
Dim t0 As Single
    Dim i As Long
    Do While i < 99999999
        If Timer > t0 + 0.1 Then
            Me.Caption = i
            t0 = Timer
        End If
        Arr(i) = i
        i = i + 1
        DoEvents
    Loop
End Sub