| Вопрос: Конверсия массивов в VB .net | Добавлено: 01.02.08 05:01 |
Автор вопроса:  Дилетант
|
|
В VB6 мне нужно было собрать в процедуре 2 массива из строковых переменных, и я сделал это через функцию Array(). А сами массивы объявлял как variant (по-другому программа не хотела с ними работать).
Dim arrSrc As Variant, arrTgt As Variant arrSrc = Array(strDefisS1, strDefisS2, strDefisS3, strDefisS4, strDefisS5, strDefisS6, strDefisS7, _ strDefisS8, strDefisS9, strDefisS10, strDefisS11, strDefisS12, strDefisS13, strDefisS14, strDefisS15, _ strDefisS16, strDefisS17, strDefisS18, strDefisS19, strDefisS20, strDefisS21, strDefisS22, _ strDefisS23, strDefisS24, strDefisS25, strDefisS26, strDefisS27, strDefisS28, strDefisS29) arrTgt = Array(strDefisT1, strDefisT2, strDefisT3, strDefisT4, strDef isT5, strDefisT6, strDefisT7, _
strDefisT8, strDefisT9, strDefisT10, strDefisT11, strDefisT12, strDefisT13, strDefisT14, strDefisT15, _ strDefisT16, strDefisT17, strDefisT18, strDefisT19, strDefisT20, strDefisT21, strDefisT22, _ strDefisT23, strDefisT24, strDefisT25, strDefisT26, strDefisT27, strDefisT28, strDefisT29) Вопрос: как сконвертировать это в VB .net? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Дилетант Вопросов: 13 Ответов: 30 |
Профиль | | #1 | Добавлено: 01.02.08 05:05 |
|
Извините, тэг криво поставил, а опции редактирования нет.
Код вот такой. arrSrc = Array(strDefisS1, strDefisS2, strDefisS3, strDefisS4, strDefisS5, strDefisS6, strDefisS7, _
strDefisS8, strDefisS9, strDefisS10, strDefisS11, strDefisS12, strDefisS13, strDefisS14, strDefisS15, _ strDefisS16, strDefisS17, strDefisS18, strDefisS19, strDefisS20, strDefisS21, strDefisS22, _ strDefisS23, strDefisS24, strDefisS25, strDefisS26, strDefisS27, strDefisS28, strDefisS29) arrTgt = Array(strDefisT1, strDefisT2, strDefisT3, strDefisT4, strDefisT5, strDefisT6, strDefisT7, _ strDefisT8, strDefisT9, strDefisT10, strDefisT11, strDefisT12, strDefisT13, strDefisT14, strDefisT15, _ strDefisT16, strDefisT17, strDefisT18, strDefisT19, strDefisT20, strDefisT21, strDefisT22, _ strDefisT23, strDefisT24, strDefisT25, strDefisT26, strDefisT27, strDefisT28, strDefisT29) |
||
|
Номер ответа: 2 Автор ответа: xuserВопросов: 1 Ответов: 20 |
Профиль | | #2 | Добавлено: 01.02.08 08:03 |
| Dim stringsarray() As String = {str1, str2, str3} | ||
|
Номер ответа: 3 Автор ответа: xuserВопросов: 1 Ответов: 20 |
Профиль | | #3 | Добавлено: 01.02.08 08:11 |
| А собирать удобно используя статический (Shared) метод Copy любого массива. Там его несколько перегруженных вариантов. | ||
|
Номер ответа: 4 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295 |
Профиль | | #4 | Добавлено: 02.02.08 02:08 |
|
Dim arr() As Integer = New Integer(){1, 2, 3}
|
||
|
Номер ответа: 5 Автор ответа: xuserВопросов: 1 Ответов: 20 |
Профиль | | #5 | Добавлено: 02.02.08 03:00 |
|
Dim strarray1() As String = {"ухо", "горло", "нос"} Dim strarray2() As String = {"раз", "два", "раз"} Dim strarray3(5) As String Call Array.Copy(strarray1, 0, strarray3, 0, strarray1.Length) Call strarray2.CopyTo(strarray3, strarray2.Length) MsgBox(Join(strarray3, vbCrLf)) |
||
Страница: 1 |