Join

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Mirus
Бывалый
Бывалый
 
Сообщения: 259
Зарегистрирован: 09.12.2001 (Вс) 18:25
Откуда: Russia

Join

Сообщение Mirus » 17.06.2003 (Вт) 2:21

Есть массив
Dim MyByte(100) As Byte
Как можно его содержимое соединить в строку с разделителем "."?
Mirus

NJ
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 10.12.2001 (Пн) 9:02
Откуда: Russia, Tomsk

Сообщение NJ » 17.06.2003 (Вт) 5:42

MyByte должен быть Variant... А заJOINить как ты говоришь довольно просто:
Код: Выделить всё
MsgBox Join(MyByte,".")


Да. А можно ещё типа свой Join сделать для своего типа (Byte в частности):
Код: Выделить всё
Function myJoin(srcArray() As Byte, Optional delimiter As String = " ") As String
  Dim i As Long

  myJoin = srcArray(LBound(srcArray))
  For i = LBound(srcArray) + 1 To UBound(srcArray)
    myJoin = myJoin & delimiter & srcArray(i)
  Next
End Function
-=*=-
Трудно быть хорошим.

Mirus
Бывалый
Бывалый
 
Сообщения: 259
Зарегистрирован: 09.12.2001 (Вс) 18:25
Откуда: Russia

Сообщение Mirus » 17.06.2003 (Вт) 13:05

Хотелось что-то вроде этого:
Join(Str(MyByte),".") а не работает :(

А еще как зарезервировать массив
Dim Param(???) As Boolean
чтоб зарезервированны были только Param(1), Param(2), Param(4) ,Param(8) ,Param(16)
Mirus


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 1

    TopList