Как создать глобальный динамический массив и заполнить его

@Rito4ka · Регистрация: 09.11.2012

Студворк — интернет-сервис помощи студентам

Всем привет! Мне нужно каким-то образом создать глобальный динамический массив и заполнить его. но когда я пишу вот так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Module Module1
    Public k As Integer = 0
    Public s() As String
End Module
' тут дальше еще кое-что понаписано, но оно отношения к делу не имеет
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
 
        For Each strLine As String In TextBox3.Text.Split(vbNewLine) '' присваиваем каждому элементу массива строчку (из textbox)
            s(k) = strLine
            k = k + 1
        Next strLine
    End Sub

вылезает ошибка NullReferenceexeption по поводу s(k)= strline. ну правильно в массиве то все элементы nothing. И что с этим делать? Мне просто этот массив нужно будет потом использовать в другой sub.

Памирыч · 23.11.2012, 11:11

Rito4ka, используйте List(Of String)
Очень вкусная булочка, ИМХО.

@_Лёша_ · 23.11.2012, 11:35

VB.NET
1
2
3
4
5
6
7
Public Module Module1
    Public StrList as New List(Of String)
End Module
 
Sub Button1Click(sender As Object, e As EventArgs)
 StrList.AddRange(TextBox1.Text.Split(vbNewLine))   
End Sub

@Rito4ka · 23.11.2012, 11:45 **[ТС]**

спасибо! все заработало!

Памирыч · 23.11.2012, 11:48

_Лёша_, List принимает и коллекцию.
А TextBox имеет свойство Lines.
Почему бы их не "подружить"

VB.NET
1
2
        Dim Lst As New List(Of String)
        Lst.AddRange(TextBox1.Lines)

@_Лёша_ · 23.11.2012, 11:53

Если принципиальнос массивом, то

VB.NET
1
2
3
4
5
6
7
Public Module Module1
    Public s As String()
End Module
 
    Sub Button1Click(sender As Object, e As EventArgs)
          s = TextBox1.Lines
    End Sub

Памирыч · 23.11.2012, 11:54

_Лёша_, а если потом надо будет добавлять еще элементов (или удалять)?

@_Лёша_ · 23.11.2012, 11:55

Не по теме:

спс Памирыч, затупил)

Добавлено через 32 секунды

Сообщение от Памирыч

_Лёша_, а если потом надо будет добавлять еще элементов (или удалять)?

а в чем проблема?

Памирыч · 23.11.2012, 12:00

Сообщение от _Лёша_

а в чем проблема

проблема в том, что придется использовать ReDim Preserve
А это уже, мягко говоря, не по NET-овски
А с удалением так вообще жуть.

@eJ_Studio · 25.11.2012, 00:05

Rito4ka, тут же налицо не заданное количество элементов в массиве.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module Module1
    Public k As Integer = 0
    Public s() As String
End Module
' тут дальше еще кое-что понаписано, но оно отношения к делу не имеет
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
!!! s = TextBox3.Text.Split(vbNewLine)!!!!
 
        For Each strLine As String In TextBox3.Text.Split(vbNewLine) '' присваиваем каждому элементу массива строчку (из textbox)
            s(k) = strLine
            k = k + 1
        Next strLine
    End Sub

@all_angarsk · 25.11.2012, 02:19

Если я правильно понял!
но у меня ошибка

@all_angarsk · 25.11.2012, 02:30

Поменял строки и проверил значения к = 1, а strLine имеет значение, но не работает

@all_angarsk · 25.11.2012, 03:11

просто массив не создается

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Module Module1
    
End Module
Public Class Form1
    Dim r As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim k As Integer = 0
        Dim s As String()
        For Each strLine As String In TextBox1.Text.Split(vbNewLine) '' присваиваем каждому элементу массива строчку (из textbox)
            s(k) = strLine
            k = k + 1
 
        Next
        'проверка
        For Each t In s
            r = r + t + vbCrLf
        Next
        MsgBox(r)
    End Sub
 
End Class

@eJ_Studio · 25.11.2012, 03:53

сори сори, это я тупанул

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Module Module1
    
End Module
Public Class Form1
    Dim r As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim k As Integer = 0
        Dim s As String() = New String(TextBox1.Text.Split(vbNewLine).length-1) {} или проще ' Dim s(TextBox1.Text.Split(vbNewLine).length-1) As String
        For Each strLine As String In TextBox1.Text.Split(vbNewLine) '' присваиваем каждому элементу массива строчку (из textbox)
            s(k) = strLine
            k = k + 1
 
        Next
        'проверка
        For Each t In s
            r = r + t + vbCrLf
        Next
        MsgBox(r)
    End Sub
 
End Class

Добавлено через 1 минуту

VB.NET
1
Dim s As String() = New String(TextBox1.Text.Split(vbNewLine).length-1) {} 'или проще  Dim s(TextBox1.Text.Split(vbNewLine).length-1) As String

@all_angarsk · 25.11.2012, 04:01

работает хорошо, но задача была ...

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Module Module1
    Public k As Integer = 0
    Public s As String() = New String(TextBox1.Text.Split(vbNewLine).Length - 1) {}
End Module
Public Class Form1
    Dim r As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'или проще ' Dim s(TextBox1.Text.Split(vbNewLine).length-1) As String
        For Each strLine As String In TextBox1.Text.Split(vbNewLine) '' присваиваем каждому элементу массива строчку (из textbox)
            s(k) = strLine
            k = k + 1
 
        Next
        'проверка
        For Each t In s
            r = r + t + vbCrLf
        Next
        MsgBox(r)
    End Sub
 
End Class

сейчас ругается на Textbox - он не объявлен

@eJ_Studio · 25.11.2012, 04:10

это вписывай при нажатии на кнопку,а в модуле удали то что после
равно стоит
s = New String(TextBox1.Text.Split(vbNewLine).le ngth-1) {}

@all_angarsk · 25.11.2012, 05:40

массив будет глобальным?

не дает сделать

@all_angarsk · 25.11.2012, 05:46

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Module Module1
    Public k As Integer = 0
    Public s As String()
End Module
Public Class Form1
    Dim r As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        s = New String(TextBox1.Text.Split(vbNewLine).Length - 1) {}
        'или проще ' Dim s(TextBox1.Text.Split(vbNewLine).length-1) As String
        For Each strLine As String In TextBox1.Text.Split(vbNewLine) '' присваиваем каждому элементу массива строчку (из textbox)
            s(k) = strLine
            k = k + 1
 
        Next
        'проверка
        For Each t In s
            r = r + t + vbCrLf
        Next
        MsgBox(r)
    End Sub
 
End Class

так работает

@eJ_Studio · 25.11.2012, 13:13

ну ты че..я же так и писал тебе

@all_angarsk · 25.11.2012, 15:49

прочитал плохо, а потом сам доехал

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	23.11.2012, 11:11
	Rito4ka, используйте List(Of String) Очень вкусная булочка, ИМХО. 2

@Rito4ka 5 / 2 / 0 Регистрация: 09.11.2012 Сообщений: 26
	23.11.2012, 11:45 [ТС]
	спасибо! все заработало! 0

Памирыч Почетный модератор 23253 / 9167 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	23.11.2012, 11:54
	_Лёша_, а если потом надо будет добавлять еще элементов (или удалять)? 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	25.11.2012, 02:19
	Если я правильно понял! но у меня ошибка Миниатюры 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	25.11.2012, 02:30
	Поменял строки и проверил значения к = 1, а strLine имеет значение, но не работает Миниатюры 0

@eJ_Studio 169 / 149 / 14 Регистрация: 13.07.2011 Сообщений: 477
	25.11.2012, 04:10
	это вписывай при нажатии на кнопку,а в модуле удали то что после равно стоит s = New String(TextBox1.Text.Split(vbNewLine).le ngth-1) {} 1

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	25.11.2012, 05:40
	массив будет глобальным? не дает сделать Миниатюры 0

@eJ_Studio 169 / 149 / 14 Регистрация: 13.07.2011 Сообщений: 477
	25.11.2012, 13:13
	ну ты че..я же так и писал тебе 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	25.11.2012, 15:49
	прочитал плохо, а потом сам доехал 0