Вопрос довольно таки простой. Как я знаю в VB/VBA списков нет и нет как таковых указателей. Я вот только не знаю кому нибудь их не хватало когда-то или нет? В принципе конечно лучше если есть, чем если нету. И поэтому я и придумал написать .dll`ку для того чтобы можно было пользоваться списками. Альфа версия уже готова. Вот хотел теперь посоветоваться. Что вы слышали о реализации списков в VB/VBA может такое уже давно есть? Да и вообще если интересует можно ссылку разместить. Напишите, пожалуйста, что думаете по этому поводу.

Неужели никого не интересует? Vit, что скажешь, как модератор должен же что-то умное сказать, у меня просто никакого что-то представления о списках в VB/VBA нет, вот только вопросики встречались пару раз про обычные и циклические списки на форуме, да и на те вопросы вроде никто ничего дельного не сказал.

Извините меня, пожалуйста, но, если можно - по-подробнее: что Вы подразумеваете под словами списки и указатели? Лично мне просто непонятен вопрос. Очевидно по той причине, что я не являюсь профессионально обученным программистом - я самоучка, поэтому если можно - по-подробнее...

для начала: лист - в смысле контейнер, или в смысле контрол?

http://www.opennet.ru/docs/RUS/python/python2.html
vot tut nemnogo o spiskach, ja poposche chto nibudjsamnapishu

Цитата

для начала: лист - в смысле контейнер, или в смысле контрол?

лист (список)  - в смысле ActiveX-компонент включающий в себя объект "список" с разными полезными свойстами и методами. Программа может создать один или несколько экземпляров этого объекта, при этом каждый экземпляр получит свой набор данных.

Спасибо за разъяснение. Ки сожалению, данным вопросом не интересовался. Сейчас сяду разбираться.
Спсибо за подсказанную новую (для меня)фитчу!

Цитата(cardinal @ 13.1.2003, 16:57)

Vit, что скажешь, как модератор должен же что-то умное сказать

как модератор? Заходим на интернет, ищем значение слова модеротор, находим:

МОДЕРАТОР - деревянная планка с прокладкой из сукна для приглушения звука пианино. ( http://www.megakm.ru/bes_98....0#srch0 )

Если серьёзно, то я вряд ли могу сказать что-то полезное, я Basic практически не знаю, и модерирую пока не найдётся более достойная кандидатура (таковые пока не объявились, хотя клич бросался несколько раз). Так что моё модерирование этого раздела пока, к большому сожалению, сводится к удалению рекламы и прослеживанию за правилами поведения...

Извините!
Вопрос: имеется в виду компонент типа ListBox?

Нет. Имеется в виду вот это:

Код

Dim x as New NList ' NList это список ' ...

сверху я уже пытался объяснить, что имеется в виду: см. сообщение 15.1.2003, 19:40. A ListBox - это элемент управления!

Цитата(cardinal @ 9.1.2003, 23:13)

И поэтому я и придумал написать .dll`ку для того чтобы можно было пользоваться списками

меня интересует даже оченЬ хотелось бы знать следующиэ информации поповоды альфы версии что умеет итд итп

а так в нете поищу может наиду что талкового нащёт списков

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

Это сообщение отредактировал(а) M.E.G.U.S - 27.5.2005, 15:54

Цитата(cardinal @ 10.1.2003, 00:13)

Как я знаю в VB/VBA списков нет и нет как таковых указателей. Я вот только не знаю кому нибудь их не хватало когда-то или нет?

Ну, нет типа указателей и встроенных функций для работы с ними... Но с помощью API функций RtlMoveMemory или PutMem/GetMem можно творить, чего душа пожелает.
Мне списков не хватало. Только я их под каждую конкретную задачу переписывал. Тут уж одно из двух: либо вы получаете универсальный, но не очень быстродейственный инструмент, либо монстра программерской мысли, который выполняется быстро, но пригоден только для узкого класса задач. Могу выложить и свой код, если кому интересно.

Я думаю что можно обойтись и без списка. Есть куча других объектов. Более удобных чем этот список

Удобных - возможно. Но вот быстрых - вряд ли. Так что прошу назвать хоть один такой чудо-объект.

Цитата

Нет. Имеется в виду вот это: Код Dim x as New NList ' NList это список     ' ... сверху я уже пытался объяснить, что имеется в виду: см. сообщение 15.1.2003, 19:40. A ListBox - это элемент управления!

cardinal, если я правильно все понял, то ты хочешь реализовать

Код

Private Sub Command1_Click() Dim List(9) As Integer List(0) = 1 List(1) = 10 '... '... MsgBox List(0) MsgBox List(1) '... End Sub

и вытаскивать значения минуя List(n)

а в твоем случае x - и есть указатель?

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

Код

'********************************************************************' '                                                                    ' '                       ~~~ list.dll ~~~                             ' '                         Version 1.0                                ' '                                                                    ' '  Copyright (c)2003 cardinal, All Rights Reserved   ' '                                                                    ' '********************************************************************' '                     ~~~ List methods ~~~ '--------------------------------------------------------------------' ' id        | type                    | effect                       ' '--------------------------------------------------------------------' ' Append    | 'a NList -> 'a NList    | append '--------------------------------------------------------------------' ' Cons      | 'a -> 'a NList          | adds an element              ' '           |                         | ('a::('a NList))             ' '--------------------------------------------------------------------' ' Rev       | () -> 'a NList          | reverse list                 ' '--------------------------------------------------------------------' ' Tail_Cut  | () -> 'a NList          | delete first element         ' '--------------------------------------------------------------------' '                    ~~~ List properties ~~~ '--------------------------------------------------------------------' ' id        | type              | effect                             ' '--------------------------------------------------------------------' ' Head      | 'a                | first element                      ' ' Tail      | 'a NList          | tail of list                       ' ' ListType  | String            | type of list ("'a NList")          ' ' Length    | Integer           | number of elements                 ' ' Elem      | Integer -> 'a     | n`th element (1-based)             ' '--------------------------------------------------------------------'                                                                      '                      ~~~ List errors ~~~ '--------------------------------------------------------------------' '        id | description                                            ' '--------------------------------------------------------------------' '         1 | Your list is empty                                     ' '         2 | List is not empty                                      ' '         3 | Unknown type                                           ' '        13 | Type mismatch                                          ' '--------------------------------------------------------------------' Option Explicit Private mListCol As New Collection  ' the list itself Private mListType As String         ' type of the list Private mHelpList As New NList      ' NList for inner operations Private mHelpCol As New Collection  ' Collection for inner operations ' type check functions '///////////////////////////////////////////////////////////////////// Private Function ConcatCheck(y As NList) As NList If y = "nil" Then     Exit Function End If Check (y.Head) 'y.Tail_Cut 'ConcatCheck y End Function '***************************************************** ' Purpose:   Checks the type of the given element ' ' Inputs:    s: element as a string. ' ' Returns:   raises an exception if incorrect '            type. '***************************************************** Private Function Check(s As Variant) On Error GoTo ErrorHandle If s = "nil" Then     Exit Function End If Select Case Split(mListType, " ")(0)     Case "Boolean"         s = CBool(s)     Case "Byte"         s = CByte(s)     Case "Currency"         s = CCur(s)     Case "Date"         s = CDate(s)     Case "Double"         s = CDbl(s)     Case "Decimal"         s = CDec(s)     Case "Integer"         s = CInt(s)     Case "Long"         s = CLng(s)     Case "Single"         s = CSng(s)     Case "String"         s = CStr(s)     Case "Variant"         s = CStr(s) End Select ErrorHandle:     If Err.Number = 13 Then         Err.Raise 13, , "Type mismatch" & _         vbCrLf & "Your list is an " & ListType     End If End Function '***************************************************** ' Purpose:   Sets a type to a string element ' ' Inputs: '            s: the string in list format. ' Returns:   A Variant type element. '***************************************************** Private Function SetType(s As Variant) As Variant On Error GoTo ErrorHandle Select Case Split(mListType, " ")(0)     Case "Boolean"         SetType = CBool(s)     Case "Byte"         SetType = CByte(s)     Case "Currency"         SetType = CCur(s)     Case "Date"         SetType = CDate(s)     Case "Double"         SetType = CDbl(s)     Case "Decimal"         SetType = CDec(s)     Case "Integer"         SetType = CInt(s)     Case "Long"         SetType = CLng(s)     Case "Single"         SetType = CSng(s)     Case "String"         SetType = CStr(s)     Case "Variant"         SetType = CStr(s)     Case "NList"     Case Else         Err.Raise 3 End Select ErrorHandle:     If Err.Number = 3 Then                     ' type mismatch         Err.Raise 3, , "Unknown type"     End If     If Err.Number = 13 Then                     ' type mismatch         Err.Raise 13, , "Type mismatch" & _         vbCrLf & "Your list is an " & mListType     End If End Function Property Let ListType(lt As String) If mListCol.Count < 2 Then     Select Case lt         Case "Boolean NList"         Case "Byte NList"         Case "Currency NList"         Case "Date NList"         Case "Double NList"         Case "Decimal NList"         Case "Integer NList"         Case "Long NList"         Case "Single NList"         Case "String NList"         Case "NList NList"         Case "Variant NList"         Case Else             Err.Raise 3, , "Unknown type"     End Select     mListType = lt Else     Err.Raise 2, , "List is not empty" End If End Property Property Let Value(val As String) Dim i As Integer For i = 1 To mListCol.Count     mListCol.Remove (1) Next If val = "" Then     ListCreate "nil" Else     ListCreate val End If End Property Private Function valOfNListNList(n As Integer) As String Dim i As Integer Dim s As String Dim j As Integer     If mListCol.Count <= 3 Then         For i = 1 + n To mListCol.Count - 1             s = s & "("             For j = 1 To mListCol.Item(i).Count - 1                 s = s & CStr(mListCol.Item(i).Item(j)) & "::"             Next             s = s & CStr(mListCol.Item(i).Item(mListCol.Item(i).Count)) & ")::"         Next         valOfNListNList = s & mListCol.Item(mListCol.Count)     Else         For i = 1 To 3             s = s & "("             For j = 1 To mListCol.Item(i).Count - 1                 s = s & CStr(mListCol.Item(i).Item(j)) & "::"             Next             s = s & CStr(mListCol.Item(i).Item(j)) & ")"         Next             valOfNListNList = s & "..."     End If End Function Property Get Value() As String On Error GoTo ErrorHandle Dim i As Integer Dim j As Integer Dim s As String Dim e As String If mListCol.Count < 2 Then     Value = "nil"     Exit Property End If If mListType = "NList NList" Then   Value = valOfNListNList(0) Else     If mListCol.Count <= 10 Then         For i = 1 To mListCol.Count - 1             If mListType = "Byte NList" Then                 e = "&H" & Hex(mListCol.Item(i))             Else                 e = mListCol.Item(i)             End If             s = s & e & "::"         Next         Value = s & mListCol.Item(mListCol.Count)     Else         For i = 1 To 9             s = s & CStr(mListCol.Item(i)) & "::"         Next         Value = s & "..."     End If End If ErrorHandle:     If Err.Number = 424 Then         Err.Raise 13, , "Type mismatch" & _         vbCrLf & "Your list is an " & mListType     End If End Property Property Get Length() As Variant     Length = mListCol.Count - 1 End Property Property Get Elem(Num As Integer) As Variant     Elem = mListCol.Item(Num) End Property ' the head of the list Property Get Head() As Variant On Error GoTo ErrorHandle Dim i As Integer Dim s As String If mListCol.Count > 1 Then     If mListType = "NList NList" Then         If mListCol.Count <= 10 Then             For i = 1 To mListCol.Item(1).Count - 1                 s = s & CStr(mListCol.Item(1).Item(i)) & "::"             Next         Head = s & mListCol.Item(1).Item(mListCol.Item(1).Count)         Else             For i = 1 To 9                 s = s & CStr(mListCol.Item(1).Item(i)) & "::"             Next             Head = s & "..."         End If     Else         Head = mListCol.Item(1)     End If Else     Err.Raise 1, , "Your list is empty!" End If ErrorHandle:     If Err.Number = 424 Then         Err.Raise 13, , "Type mismatch" & _         vbCrLf & "Your list is an " & mListType     End If End Property Public Function Append(x As NList) As NList Dim y As New NList Dim z As New NList y = x If mListCol.Count > 1 Then z = x ConcatCheck y Do Until z = "nil"     mListCol.Add z.Head, , before:=mListCol.Count     z.Tail_Cut Loop Else     Do Until y = "nil"         Check (y.Head)         y.Tail_Cut     Loop     Do Until x = "nil"         If mListCol.Count = 0 Then             mHelpCol.Add SetType(x.Head)         Else             mHelpCol.Add SetType(x.Head), , before:=mListCol.Count         End If         x.Tail_Cut     Loop     mHelpCol.Add ("nil")     Set mListCol = mHelpCol     Set mHelpCol = Nothing End If End Function Property Get Tail() As String Dim i As Integer Dim s As String If mListCol.Count < 2 Then     Err.Raise 1, , "Your list is empty!"     Exit Property End If If mListType = "NList NList" Then   Tail = valOfNListNList(1) Else     If mListCol.Count <= 10 Then         For i = 2 To mListCol.Count - 1             s = s & CStr(mListCol.Item(i)) & "::"         Next         Tail = s & mListCol.Item(mListCol.Count)     Else         For i = 2 To 10             s = s & CStr(mListCol.Item(i)) & "::"         Next         Tail = s & "..."     End If End If End Property Public Function Tail_Cut() As NList If mListCol.Count > 1 Then     mListCol.Remove (1) Else     Err.Raise 1, , "List is empty" End If End Function '***************************************************** ' Purpose:   Reverses the string by given list format ' ' Inputs: '            s: the string in list format. ' Returns:   A Variant array with elements of the '            list to be created. '***************************************************** Private Function MyStrRevPoint(s As String) As Variant Dim i As Variant Dim revs As String Dim point As Variant point = Split(s, "::") For Each i In point     If revs = "" Then         revs = i & revs     Else         revs = i & "::" & revs     End If Next MyStrRevPoint = Split(revs, "::") End Function '***************************************************** ' Purpose:   Creates a list from a string expression ' ' Inputs: '            s: the string in list format. ' Returns:   list of given elements. '***************************************************** Private Function ListCreate(mliststr As String) As NList Dim i As Variant Dim point As Variant point = MyStrRevPoint(mliststr) 'For Each i In point '    Check (i) 'Next For Each i In point     If i <> "nil" Then         Cons (i)     End If Next End Function '***************************************************** ' Purpose:   Adds an element to the beginning of a list. ' ' Inputs:    s: an element as a string. ' ' Returns:   A list with the element in the beginning. '***************************************************** Public Function Cons(ByVal s As Variant) As NList On Error GoTo ErrorHandle If TypeName(s) = "NList" Then     If mListType <> "NList NList" Then         Err.Raise 13     End If     mHelpList = s     Do Until mHelpList = "nil"         mHelpCol.Add mHelpList.Head         mHelpList.Tail_Cut     Loop     Set mHelpList = Nothing     mHelpCol.Add ("nil")     If mListCol.Count = 0 Then         mListCol.Add ("nil")     End If     mListCol.Add mHelpCol, before:=1     Set mHelpCol = Nothing Else     Check (s)     If Left(s, 2) = "&H" And mListCol.Count < 2 Then         If mListType <> "Byte NList" And mListType <> "Variant NList" Then             Err.Raise 13         End If     End If     s = SetType(s)     If mListCol.Count < 1 Then         mListCol.Add ("nil")         mListCol.Add s, before:=1     Else         mListCol.Add s, before:=1 ', before:=mListCol.Count     End If End If ErrorHandle:     If Err.Number = 13 Then                     ' type mismatch         Err.Raise 13, , "Type mismatch" & _         vbCrLf & "Your list is an " & mListType     End If End Function Property Get ListType() As String 'If mListCol.Count > 1 Then ListType = mListType ErrorHandle: If Err.Number = 13 Then                     ' type mismatch     Err.Raise 13, , "Type mismatch" & _     vbCrLf & "Your list is an " & ListType End If End Property '***************************************************** ' Purpose:   Reverses a list of type NList. ' ' Returns:   Reversed list of type NList. '***************************************************** Public Function Rev() As NList Dim i As Integer For i = mListCol.Count - 1 To 1 Step -1     mHelpCol.Add mListCol.Item(i) Next     mHelpCol.Add "nil"     Set mListCol = mHelpCol     Set mHelpCol = New Collection End Function Public Function toString() As String Dim i As Integer Dim s As String For i = 1 To mListCol.Count - 1     s = s & mListCol.Item(i) Next toString = s End Function Private Sub Class_Initialize() mListType = "Variant NList" ErrorHandle: If Err.Number = 13 Then                     ' type mismatch     Err.Raise 13, , "Type mismatch" & _     vbCrLf & "Your list is an " & ListType End If End Sub

интерестно очень сделано

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

Присоединённый файл ( Кол-во скачиваний: 1 )
 RefList.rar 1,17 Kb