ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите, плиз, перестроить массив в VBA Excel
8 сообщений из 8, страница 1 из 1
помогите, плиз, перестроить массив в VBA Excel
    #34764257
evgenius_b
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evgenius_b
Участник
Есть такой массив:
i MyArray(i)1 session duration: 2484 ms.2 session duration: unknown.3 session duration: 1000 ms.

В итоге нужен:
i MyArrayNew(i)1 session duration: 2484 ms.2 session duration: 1000 ms.
...
Рейтинг: 0 / 0
30.08.2007, 12:43:18
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34764638
evgenius_b
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evgenius_b
Участник
Люди добрые, почему не работает то, что я наваял?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub test1()
    Dim MyArray( 1  To  3 ) As String, MyArrayNew() As Variant, MyArrayTemp( 1  To  3 ) As Variant
    MyArray( 1 ) = ", session duration: 2484 ms."
    MyArray( 2 ) = ", session duration: unknown ms."
    MyArray( 3 ) = ", session duration: 1000 ms."
    k =  0 
    ReDim MyArrayNew(k) As Variant
    For i =  1  To  3 

        MyArrayTemp(i) = Application.Index(Split(MyArray(i), " "),  4 )
'        Debug.Print MyArrayTemp(i)
'        Debug.Print MyArrayTemp(i) Like "*unknown*"
        If (MyArrayTemp(i) Like "*unknown*") = False Then
        MyArrayNew(k) = MyArrayTemp(i)
'        Debug.Print MyArrayNew(k)
        k = k +  1 
        Else
        End If

    Next i
End Sub

Затыкается на третьем проходе цикла на строке MyArrayNew(k) = MyArrayTemp(i) с ошибкой Subscript out of range.
Это как понимать?

А есть ли метод элегантней?
...
Рейтинг: 0 / 0
30.08.2007, 14:13:35
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34764707
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub test1()
    Dim MyArray( 2 ) As String, MyArrayNew() As Variant, MyArrayTemp( 2 ) As Variant
    MyArray( 0 ) = ", session duration: 2484 ms."
    MyArray( 1 ) = ", session duration: unknown ms."
    MyArray( 2 ) = ", session duration: 1000 ms."
    k =  0 
    ReDim MyArrayNew(k) As Variant
    For i =  0  To  2 

        MyArrayTemp(i) = Application.Index(Split(MyArray(i), " "),  4 )
'        Debug.Print MyArrayTemp(i)
'        Debug.Print MyArrayTemp(i) Like "*unknown*"
        If (MyArrayTemp(i) Like "*unknown*") = False Then
        MyArrayNew(k) = MyArrayTemp(i)
'        Debug.Print MyArrayNew(k)
        k = k +  1 
        Else
        End If

    Next i
End Sub
...
Рейтинг: 0 / 0
30.08.2007, 14:32:22
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34764708
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub test1()
Dim MyArray( 1  To  3 ) As String, MyArrayNew() As Variant
    Dim c As Long, i As Long, strCheck As String
    MyArray( 1 ) = "session duration: 2484 ms."
    MyArray( 2 ) = "session duration: unknown ms."
    MyArray( 3 ) = "session duration: 1000 ms."


    For i =  1  To UBound(MyArray)
        strCheck = Split(MyArray(i), ":")( 1 )
        If Not strCheck Like "*unknown*" Then
            c = c +  1 
            ReDim Preserve MyArrayNew(c)
            MyArrayNew(c) = MyArray(i)
        End If
    Next i
    For i =  1  To UBound(MyArrayNew)
        Debug.Print MyArrayNew(i)
    Next i
End Sub

...
Рейтинг: 0 / 0
30.08.2007, 14:32:41
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34764745
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
ещё строку
Код: plaintext
        ReDim MyArrayNew(k) As Variant
надо поместить внутрь цикла (т.е. на одну в низ)
...
Рейтинг: 0 / 0
30.08.2007, 14:39:02
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34765094
evgenius_b
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evgenius_b
Участник
магия!
еще раз спасибо.

Сорри за неграмотность. Кодирую недавно. Цейтнот. Одна книжка Уокенбаха и инет.
...
Рейтинг: 0 / 0
30.08.2007, 15:44:29
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34765642
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
А так, еще проще :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub test1()
    Dim MyArray( 1  To  3 ) As String
    Dim MyNewCollection As New Collection
    Dim s As Variant
    
    MyArray( 1 ) = ", session duration: 2484 ms."
    MyArray( 2 ) = ", session duration: unknown ms."
    MyArray( 3 ) = ", session duration: 1000 ms."
    
    For Each s In MyArray
        If InStr(s, " unknown ") =  0  Then
            MyNewCollection.Add (s)
        End If
    Next
 
 ' ну и выведем результаты чтоб убедиться
    For Each s In MyNewCollection
        Debug.Print s
    Next
End Sub
...
Рейтинг: 0 / 0
30.08.2007, 17:41:45
| Ответить | Цитировать | Написать  
помогите, плиз, перестроить массив в VBA Excel
    #34766730
evgenius_b
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evgenius_b
Участник
2White Owl: если не лишне мое мнение - блеск.
Спасибо, друзья, - выручили.
...
Рейтинг: 0 / 0
31.08.2007, 10:09:22
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите, плиз, перестроить массив в VBA Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2182367]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 194ms
total:  296ms
созд. / загр.: 296ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]