ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кол-во элементов в массиве
32 сообщений из 32, показаны все 2 страниц
  все  
кол-во элементов в массиве
    #32664346
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
Привет всем
как подсчитать кол-во элементов в массиве?
dim MyArray - массив
как узнать сколько в нем элементов?
Спасибо
...
Рейтинг: 0 / 0
25.08.2004, 11:23
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #32664361
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
ubound
...
Рейтинг: 0 / 0
25.08.2004, 11:29
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #32664362
Bolik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bolik
Участник
Где-то я это уже видел :)
Код: plaintext
1.
C = Ubound(MyArray) - LBound(MyArray) +  1
Это даст количество элемнтов. Если нужны непустые значения - только прямой перебор.
...
Рейтинг: 0 / 0
25.08.2004, 11:30
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #32664367
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
спасибо
я зделал через ubound
...
Рейтинг: 0 / 0
25.08.2004, 11:33
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #32664435
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Тут где-то массивы неопределённого размера бесплатно раздают? Что это все вдруг стали интересоваться?
...
Рейтинг: 0 / 0
25.08.2004, 12:08
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #32664499
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
Привет marvan

все это кто?
...
Рейтинг: 0 / 0
25.08.2004, 12:31
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #32664604
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
http://sql.ru/forum/actualthread.aspx?tid=117026
...
Рейтинг: 0 / 0
25.08.2004, 13:05
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
кол-во элементов в массиве
    #34294962
Х-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Х-men2
Гость
Народ, подскажите как добавит переменную в одномерный массив?
...
Рейтинг: 0 / 0
31.01.2007, 09:51
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34295522
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Dim a() As String

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Form_Load()
   ReDim a( 1  To  2 ) As String
   a( 1 ) = "First"
   a( 2 ) = "Second"
   ShowArray "Org array"
   ReDim Preserve a( 1  To  3 )
   a( 3 ) = "Third"
   ShowArray "Redim preserve to 3"
   ReDim a( 1  To  4 )
   ShowArray "Redim only"
End Sub

Private Sub ShowArray(ByVal Header As String)
   Dim i As Long
   Debug.Print Header
   For i = LBound(a) To UBound(a)
      Debug.Print "a(" & i & ")="; a(i)
   Next
End Sub
...
Рейтинг: 0 / 0
31.01.2007, 11:56
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34297976
Х-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Х-men2
Гость
Спасибо, конечно, но у меня немного другая ситуация: считываем строковую переменную и записываем ее в одномерный массив. И я так понимаю каждый элемент массива - это символ строки. Это возможно сотворить?
...
Рейтинг: 0 / 0
01.02.2007, 08:44
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34297981
Х-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Х-men2
Гость
... И еще вопросик. Как передать функции(не важно какой, например mifaresessionopen2(@cert,_port), @cert - это вот должен быть адрес, но это так на Delphi написано) адрес массива?
...
Рейтинг: 0 / 0
01.02.2007, 08:46
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34314713
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
Ну чего, никто не подскажет?
...
Рейтинг: 0 / 0
08.02.2007, 09:41
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34314738
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
CByte но это не тривиально.
а так - делай сам Mid, Asc

аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
08.02.2007, 09:48
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34314835
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Х-men2... И еще вопросик. Как передать функции(не важно какой, например mifaresessionopen2(@cert,_port), @cert - это вот должен быть адрес, но это так на Delphi написано) адрес массива?Передавай указатель на первый элемент массива - VarPtr(r(0))
...
Рейтинг: 0 / 0
08.02.2007, 10:17
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34315504
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
Antonariy Х-men2... И еще вопросик. Как передать функции(не важно какой, например mifaresessionopen2(@cert,_port), @cert - это вот должен быть адрес, но это так на Delphi написано) адрес массива?Передавай указатель на первый элемент массива - VarPtr(r(0))

??? Чего то не понял - первый элемент и будет являться адресом массива? Так что ли?
...
Рейтинг: 0 / 0
08.02.2007, 12:51
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34327646
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
Ну VarPtr - это "недокументированная" функция. А вот есть ее аналог(или нет?) agGetAddressForObject(myarray(0)), но она почему то не работает... или ее объявлять надо?
...
Рейтинг: 0 / 0
13.02.2007, 16:17
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34329147
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
WorobjoffDim a() As String

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Form_Load()
   ReDim a( 1  To  2 ) As String
   a( 1 ) = "First"
   a( 2 ) = "Second"
   ShowArray "Org array"
   ReDim Preserve a( 1  To  3 )
   a( 3 ) = "Third"
   ShowArray "Redim preserve to 3"
   ReDim a( 1  To  4 )
   ShowArray "Redim only"
End Sub

Private Sub ShowArray(ByVal Header As String)
   Dim i As Long
   Debug.Print Header
   For i = LBound(a) To UBound(a)
      Debug.Print "a(" & i & ")="; a(i)
   Next
End Sub


Как нибудь попроще можно поместить из текстового поля (String) на форме данные в массив (String)?
...
Рейтинг: 0 / 0
14.02.2007, 09:52
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34332093
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
А вот еще задачка - как сослаться на массив (ссылка на массив), Set(ом)?
...
Рейтинг: 0 / 0
15.02.2007, 09:12
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34332504
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
X-men2 Как нибудь попроще можно поместить из текстового поля (String) на форме данные в массив (String)?

Может лучше скажешь что ты в итоге хочешь получить?
А то совершенно непонятен твой вопрос...
...
Рейтинг: 0 / 0
15.02.2007, 11:12
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34332570
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Х-men2Спасибо, конечно, но у меня немного другая ситуация: считываем строковую переменную и записываем ее в одномерный массив. И я так понимаю каждый элемент массива - это символ строки. Это возможно сотворить?

Да элементарно - туда и обратно - следи за ручками:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Sub Main()
    Dim s As String, m() As Byte, i As Long, ss As String
    
    s = "Проверка"
    
    Debug.Print "s  = " & s
    
    m = s
    
    For i =  0  To UBound(m) Step  2 
        Debug.Print m(i +  1 ), m(i)
    Next i
    
    ss = m
    
    Debug.Print "ss = " & ss
End Sub
...
Рейтинг: 0 / 0
15.02.2007, 11:28
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34333009
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
AndrF X-men2 Как нибудь попроще можно поместить из текстового поля (String) на форме данные в массив (String)?

Может лучше скажешь что ты в итоге хочешь получить?
А то совершенно непонятен твой вопрос...

Ну если в общем то вот:

В текст. поле на форме есть значение 000ЕС000. Нужно записать его в массив таким образом чтоб каждый элемент был символом того значения, т.е. выводился такой массив '0','0','0','E' ... и т.д.
...
Рейтинг: 0 / 0
15.02.2007, 13:01
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34333068
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
X-men2В текст. поле на форме есть значение 000ЕС000. Нужно записать его в массив таким образом чтоб каждый элемент был символом того значения, т.е. выводился такой массив '0','0','0','E' ... и т.д.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub test()
Dim strMy As String, sArray(), i As Long, l As Long

strMy = "Just a test!"
l = Len(strMy)
ReDim sArray(l- 1 )

For i =  1  To l
    sArray(i -  1 ) = Mid$(strMy, i,  1 )
Next i

For i =  1  To l
    Debug.Print sArray(i -  1 )
Next i

End Sub
...
Рейтинг: 0 / 0
15.02.2007, 13:10
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34333433
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
Проходящий X-men2В текст. поле на форме есть значение 000ЕС000. Нужно записать его в массив таким образом чтоб каждый элемент был символом того значения, т.е. выводился такой массив '0','0','0','E' ... и т.д.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub test()
Dim strMy As String, sArray(), i As Long, l As Long

strMy = "Just a test!"
l = Len(strMy)
ReDim sArray(l- 1 )

For i =  1  To l
    sArray(i -  1 ) = Mid$(strMy, i,  1 )
Next i

For i =  1  To l
    Debug.Print sArray(i -  1 )
Next i

End Sub


А можно ли какой-либо переменной присвоить(поставить в соответсвие) адрес этого массива? Но только не через varptr, а как бы просто указатель, который передавал бы не адрес а сам массив. Я вот никак сам не разберусь, может при помощи Set?
...
Рейтинг: 0 / 0
15.02.2007, 14:25
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34333437
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
X-men2В текст. поле на форме есть значение 000ЕС000. Нужно записать его в массив таким образом чтоб каждый элемент был символом того значения, т.е. выводился такой массив '0','0','0','E' ... и т.д.

Вообще-то это дело в байтовый массив просится, насколько я понимаю, если это Hex-коды.

Или вообще в Long, если это число: CLng(&H000EC000) или CLng("&H" & "000EC000").
...
Рейтинг: 0 / 0
15.02.2007, 14:26
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34333480
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
X-men2А можно ли какой-либо переменной присвоить(поставить в соответсвие) адрес этого массива? Но только не через varptr, а как бы просто указатель, который передавал бы не адрес а сам массив. Я вот никак сам не разберусь, может при помощи Set?

Да вроде все просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function Test_array()
Dim ar( 1 )
ar( 1 ) = "Here you are"
Test_array = ar
End Function

Sub test()
Dim my_array
my_array = Test_array
Debug.Print my_array( 1 )
End Sub
или я не понимаю что требуется...

AndrFВообще-то это дело в байтовый массив просится, насколько я понимаю, если это Hex-коды. Или вообще в Long, если это число: CLng(&H000EC000) или CLng("&H" & "000EC000").
Согласен. Скорее всего можно простыми битовыми операциями решить задачу. но автор хочет так.
...
Рейтинг: 0 / 0
15.02.2007, 14:34
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34335443
Х-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Х-men2
Гость
Проходящий X-men2А можно ли какой-либо переменной присвоить(поставить в соответсвие) адрес этого массива? Но только не через varptr, а как бы просто указатель, который передавал бы не адрес а сам массив. Я вот никак сам не разберусь, может при помощи Set?

Да вроде все просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function Test_array()
Dim ar( 1 )
ar( 1 ) = "Here you are"
Test_array = ar
End Function

Sub test()
Dim my_array
my_array = Test_array
Debug.Print my_array( 1 )
End Sub
или я не понимаю что требуется...

AndrFВообще-то это дело в байтовый массив просится, насколько я понимаю, если это Hex-коды. Или вообще в Long, если это число: CLng(&H000EC000) или CLng("&H" & "000EC000").
Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....

Согласен. Скорее всего можно простыми битовыми операциями решить задачу. но автор хочет так.
...
Рейтинг: 0 / 0
16.02.2007, 08:56
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34335508
Х-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Х-men2
Гость
Х-men2 Проходящий[quot X-men2]А можно ли какой-либо переменной присвоить(поставить в соответсвие) адрес этого массива? Но только не через varptr, а как бы просто указатель, который передавал бы не адрес а сам массив. Я вот никак сам не разберусь, может при помощи Set?

Да вроде все просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function Test_array()
Dim ar( 1 )
ar( 1 ) = "Here you are"
Test_array = ar
End Function

Sub test()
Dim my_array
my_array = Test_array
Debug.Print my_array( 1 )
End Sub
или я не понимаю что требуется...

AndrFВообще-то это дело в байтовый массив просится, насколько я понимаю, если это Hex-коды. Или вообще в Long, если это число: CLng(&H000EC000) или CLng("&H" & "000EC000").
Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....
...
Рейтинг: 0 / 0
16.02.2007, 09:33
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34335785
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Х-men2Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....

F1 и делее ищем ByRef .
...
Рейтинг: 0 / 0
16.02.2007, 11:00
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34336057
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Держи пример - передача массива по ссылке и по значению:

Public Sub Main()
Dim m() As String, i As Long

ReDim m(2)

For i = 0 To UBound(m)
m(i) = "Тест " & i
Next i

Debug.Print "ByVal Before --------"
MyProcByVal m

Debug.Print "ByVal After --------"
For i = 0 To UBound(m)
Debug.Print m(i)
Next i

Debug.Print "ByRef Before --------"
MyProcByRef m

Debug.Print "ByRef After --------"
For i = 0 To UBound(m)
Debug.Print m(i)
Next i
End Sub

Private Sub MyProcByVal(ByVal m As Variant)
Dim i As Long
For i = 0 To UBound(m)
Debug.Print m(i)
Next i
m(1) = "Тестик ByVal"
End Sub

Private Sub MyProcByRef(ByRef m() As String)
Dim i As Long
For i = 0 To UBound(m)
Debug.Print m(i)
Next i
m(1) = "Тестик ByRef 1"
End Sub
...
Рейтинг: 0 / 0
16.02.2007, 12:13
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34336650
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
M.. спасиб. Будем разбираться.
...
Рейтинг: 0 / 0
16.02.2007, 14:35
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34346419
X-men2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-men2
Гость
AndrF Х-men2Ну короче, я и сам не совсем разобрался что требуется, но вот только в Delphi ссылка создается с помощью символа @. Т.е. допустим Z - массив, @Z - ссылка на массив, но если смотреть на это в debuger(e) то передается не адрес, а сам массив, но это опять же в Delphi, а вот в Basic как?.....

F1 и делее ищем ByRef .
Нет, с этим беда, Basic не лицензионный(естественно), MSDNa нет...
А в инете никак не нарою внятных примеров использования директивы ByRef/
...
Рейтинг: 0 / 0
21.02.2007, 11:51
| Ответить | Цитировать | Написать  
кол-во элементов в массиве
    #34352586
blinow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blinow
Участник
Парень заморочился. Это Basic, тут усе просто и иногда тупо.
По умолчанию все параметры передаются ByRef, т.е. получив параметр в процедуре, ты его меняешь и он меняется во всей проге, ежели написать ByVal, тогда передаешь значение и скока ты его не меняй в процедуре, в основной проге он не измениться.
С массивами не морочься, объви его Public и ковыряйся скока хочешь
...
Рейтинг: 0 / 0
24.02.2007, 04:36
| Ответить | Цитировать | Написать  
32 сообщений из 32, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кол-во элементов в массиве
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2164451]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 170ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 86ms
get tp. blocked users:
 2ms
others: 227ms
total:  534ms
созд. / загр.: 534ms
x
x
Закрыть


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