Массив + textbox

@salens · Регистрация: 16.03.2009

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

как разбить текст на массив находящейся в текстовом поле т.е. каждому элементу массива надо присвоить каждую буквы текста.
text1.text="буква" и как сделать чтобы

массив(1)=б
массив(2)=у
массив(3) =к
массив(4)=в
массив(5)=а

При том что текст в textbox становится известен только после запуска программы???

Пожайлуста помогите!!!

@BasicMan · 27.03.2009, 11:12

фрагмент задачи

Visual Basic
1
2
3
4
5
n=len(text1.text)
dim массив(n)
for i=1 to n
массив(i)=mid(text1.text,i,1)
next i

@Alex77755 · 29.03.2009, 23:44

Сообщение от Влад69

фрагмент задачи

Visual Basic
1
2
3
4
5
n=len(text1.text)
dim массив(n)
for i=1 to n
массив(i)=mid(text1.text,i,1)
next i

не соответсвует условию

надо присвоить каждую буквы текста

@Abu · 30.03.2009, 00:20

Alex77755, так Влад69 каждую букву и присваивает, единственное, что vb не даёт объявлять статический массив с неизвестным значением. Т.е. надо так

Visual Basic
1
2
3
4
5
6
Dim массив()
n = Len(Text1.Text)
ReDim массив(n)
For i = 1 To n
    массив(i) = Mid(Text1.Text, i, 1)
Next i

Добавлено через 14 минут 41 секунду
Ой, чуть не забыла, первый элемент массива массив(0) будет равен "", ну и, возможно, просто мешаться. Чтобы его не было вообще нужно в General прописать Option Base 1, тада все массивы будут начинаться с 1, или вместо ReDim массив(n) написать ReDim массив(1 To n), тада только сей массив будет от 1 до n.

@Alex77755 · 30.03.2009, 00:25

Я имел в виду, что в тексте могут писутсвовать не только буквы(пробелы, знаки препинания...)

@Abu · 30.03.2009, 00:38

Не, ну это да, но в то же время

Сообщение от salens

text1.text="буква"

@santela · 06.02.2010, 17:40

Доброго всем времени суток!Подскажите пожалуйста, а можно ли в VB загнать TextBox в цикл,так,что бы потом можно было считывать данные с одельных ячеек,т.е если я введу,например, в 5 текст боксов значения какие-то, могу ли я как-то потом их использовать в цикле???Заранее спасибо!

@Alex77755 · 06.02.2010, 18:00

Это проще сделать если создан массв тектбоксов. Так можно заполнить массив произвольными числами

Visual Basic
1
2
3
4
5
6
7
Private Sub Комманда1_Click()
Dim i
Randomize
For i = 0 To Текст1.Count - 1
Текст1(i).Text = Int(1000 * Rnd + 100)
Next i
End Sub

Аналогично и считывать

@gaw · 06.02.2010, 19:18

если я правильно понял исходную задачу

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
 
Dim массив()
n = Len(Text1.Text) + 5
ReDim массив(n)
Text2.Text = ""
For i = 1 To n
If i < 6 Then
массив(i) = Mid("буква", i, 1)
Else
    массив(i) = Mid(Text1.Text, i - 5, 1)
End If
Text2.Text = Text2.Text & массив(i)
Next i

@santela · 08.02.2010, 13:51

нет,но все равно спасибо!...чуток не так ....вот у меня есть пять textbox, т.е text1.text мне нужно использовать для нахождениия Р1, потом text2.text для Р2 и т.д, просто хочется узнать возможно ли это сделать с помощью цикла....я понимаю,что 5 это не много,можно все врнучную написать, а вот если напиример там 40 значений будет?!?!

@Alex77755 · 08.02.2010, 14:08

Ты как-то сформулируй чётче. Надо перебрать все тексбоксы и найти какую-то P1
Так сделай массив текстбоксов и ищи

Code
1
2
3
4
5
For i = 0 to Текст1.count - 1
If Текст1(i).текст = Р1 Then 
----- тыры пырры
end  If
Next i

ну или, например просуммировать

Code
1
2
3
For i = 0 to Текст1.count - 1
Сумма = Сумма + Val(Текст1(i).Текст
end  If

@santela · 08.02.2010, 14:28

Сообщение от Alex77755

Ты как-то сформулируй чётче. Надо перебрать все тексбоксы и найти какую-то P1
Так сделай массив текстбоксов и ищи

Code
1
2
3
4
5
For i = 0 to Текст1.count - 1
If Текст1(i).текст = Р1 Then 
----- тыры пырры
end  If
Next i

ну или, например просуммировать

Code
1
2
3
For i = 0 to Текст1.count - 1
Сумма = Сумма + Val(Текст1(i).Текст
end  If

там чуток не так...там есть textbox1....textbox5 и соответственно что бы брать из них введенные значения, то надо же писасать text1.text....text5.text соответственно.... просто там Р1 не равно text1.text. для вычисления Р1 там математическая формула.....Спасибо за ответ!!

@gaw · 08.02.2010, 14:42

"там 40 значений будет?!?! " ===> text1(1).text...text1(40).text (40) ??? зачем?

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@salens 0 / 0 / 0 Регистрация: 16.03.2009 Сообщений: 6

	Массив + textbox 27.03.2009, 11:05. Показов 5029. Ответов 12 Метки нет (Все метки) как разбить текст на массив находящейся в текстовом поле т.е. каждому элементу массива надо присвоить каждую буквы текста. text1.text="буква" и как сделать чтобы массив(1)=б массив(2)=у массив(3) =к массив(4)=в массив(5)=а При том что текст в textbox становится известен только после запуска программы??? Пожайлуста помогите!!! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	30.03.2009, 00:25
	Я имел в виду, что в тексте могут писутсвовать не только буквы(пробелы, знаки препинания...) 0

@santela 0 / 0 / 0 Регистрация: 04.02.2010 Сообщений: 5
	06.02.2010, 17:40
	Доброго всем времени суток!Подскажите пожалуйста, а можно ли в VB загнать TextBox в цикл,так,что бы потом можно было считывать данные с одельных ячеек,т.е если я введу,например, в 5 текст боксов значения какие-то, могу ли я как-то потом их использовать в цикле???Заранее спасибо! 0

@santela 0 / 0 / 0 Регистрация: 04.02.2010 Сообщений: 5
	08.02.2010, 13:51
	нет,но все равно спасибо!...чуток не так ....вот у меня есть пять textbox, т.е text1.text мне нужно использовать для нахождениия Р1, потом text2.text для Р2 и т.д, просто хочется узнать возможно ли это сделать с помощью цикла....я понимаю,что 5 это не много,можно все врнучную написать, а вот если напиример там 40 значений будет?!?! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	08.02.2010, 14:42
	"там 40 значений будет?!?! " ===> text1(1).text...text1(40).text (40) ??? зачем? 0