Массив + 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) ??? зачем?

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

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

	Массив + textbox 27.03.2009, 11:05. Показов 5047. Ответов 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