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

[fedotxxl]

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

 

[morpheus]

Для: fedotxxl
не знаю даже.... но можно быстро пройтись

Dim sLastValue as string
Dim My_List List As String
ForAll x in My_List
sLastValue = ListTag( x )
End ForAll

вот sLastValue - в конце отработки ForAll и будет содержать tag последнего элемента

 

[wowa]

а UBound тут не сработает?
sLastValue = My_List ( UBound(My_List) )

 

[Omh]

Для: wowa
не сработает

 

[morpheus]

Для: wowa
а с каких это пор УБаунт работает с листами

 

[Kee_Keekkenen]

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

 

[Omh]

Для: Morpheus
Да уж лет сто как...

Код вида:

Dim tmp List As String
tmp("1") = "1"
tmp("2") = "1"
tmp("3") = "1"

Messagebox(Ubound(tmp))

Даже не жаёт сохранить: несовпадение типов на строке Ubound от листа..

 

[fedotxxl]

Для: Kee_Keekkenen
Угу...