| Вопрос: Как преоброзовать Массив в переменную и обратно | Добавлено: 17.08.06 16:47 |
Автор вопроса:  mimino
|
|
на VB 6.0 Можно ли преобразовать Массив как переменную и обратно?. Как в ПХП serialize и unserialize.
например a=serialize(array) array=unserialize(a) Есть функции для этого ? |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 17.08.06 17:04 |
| Смотря какую переменную и в какой массив, ты не находишь? | ||
|
Номер ответа: 2 Автор ответа: mimino Вопросов: 6 Ответов: 16 |
Профиль | | #2 | Добавлено: 17.08.06 17:15 |
|
Мне это надо дла передачи через winsock
мне кажется что winsock не отправляет Массив примерно так: dim array(3) as string array(1)=1 array(2)=2 array(3)=3 и отправить через winsock1.senddata array а получить у меня не получается |
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 17.08.06 17:23 |
| Склей их через Join. | ||
|
Номер ответа: 4 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 17.08.06 18:11 |
| Можешь передавать по сети структуру SAFEARRAY и данные, на которые она ссылается. | ||
|
Номер ответа: 5 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #5 | Добавлено: 17.08.06 18:21 |
Ага, SAFEARRAY + пачку BSTR вдогонку, затем самому в SAFEARRAY исправить pvData  )
|
||
|
Номер ответа: 6 Автор ответа: miminoВопросов: 6 Ответов: 16 |
Профиль | | #6 | Добавлено: 18.08.06 08:05 |
|
Спасибо всем LamerOnLine Sharp
Думаю Join и Split подходит. А вот SAFEARRAY как его использовать выше приведенном прмере ? Честное слово прочитал статью про SAFEARRAY ни хера не понял. Думаю что мне пока рано. |
||
|
Номер ответа: 7 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #7 | Добавлено: 18.08.06 11:23 |
|
SAFEARRAY по сути стандартный VBшный массив. Только передать его через Winsock так просто не получится. Sharp, очевидно, пошутил
|
||
|
Номер ответа: 8 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #8 | Добавлено: 18.08.06 14:49 |
| ну блин, в String их через запятую по циклу да и всё | ||
|
Номер ответа: 9 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #9 | Добавлено: 21.08.06 11:10 |
|
dim b() As Byte, s As String
b = StrConv(s, vbFromUnicode) s = StrConv(b, vbUnicode) |
||
|
Номер ответа: 10 Автор ответа: miminoВопросов: 6 Ответов: 16 |
Профиль | | #10 | Добавлено: 21.08.06 11:44 |
|
Думаю что Join лучше, чем циклить
dim Qsn(3) as string Qsn(1)="Blaba" Qsn(2)="Blabalalal" Qsn(3)=""blabulal" dt = Join(Qsn, "|" 
Winsock1.SendData dt а на выходе Winsock1.Getdata dt Qsn = Split(Q, "|"
Работает ! |
||
|
Номер ответа: 11 Автор ответа: miminoВопросов: 6 Ответов: 16 |
Профиль | | #11 | Добавлено: 21.08.06 11:45 |
|
отпечатка вышло
а на выходе Winsock1.Getdata Q Qsn = Split(Q, "|"
|
||
Страница: 1 |