Как удалить последний элемент списка не зная его Listtag'a?

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 17 янв 2008.

  1. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Как удалить последний элемент списка не зная его listTag'a?
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: fedotxxl
    не знаю даже.... но можно быстро пройтись
    Код (Text):
    Dim sLastValue as string
    Dim My_List List As String
    ForAll x in My_List
    sLastValue = ListTag( x )
    End ForAll
    вот sLastValue - в конце отработки ForAll и будет содержать tag последнего элемента
     
  3. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    а UBound тут не сработает?
    sLastValue = My_List ( UBound(My_List) )
     
  4. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Для: wowa
    не сработает
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: wowa
    :) а с каких это пор УБаунт работает с листами
     
  6. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    знать не к месту используется лист, раз такой вопрос возник.
     
  7. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Для: Morpheus
    Да уж лет сто как...

    Код вида:
    Код (Text):
    Dim tmp List As String
    tmp("1") = "1"
    tmp("2") = "1"
    tmp("3") = "1"

    Messagebox(Ubound(tmp))
    Даже не жаёт сохранить: несовпадение типов на строке Ubound от листа..
     
  8. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Для: Kee_Keekkenen
    Угу...
     
Загрузка...

Поделиться этой страницей