Как скопировать первую строку из TextBox и вставить в другой TextBox - VB
Формулировка задачи:
1.Как скопировать первую строку из textbox1 и вставить эту строку в textbox2
2. Как найти одинаковые строки в textboxе и удалять их чтобы не повторялись например в текстбоксе два слова привет
привет привет
Как удалить все кроме одного ? Одним словом чтобы не было повторений
Решение задачи: «Как скопировать первую строку из TextBox и вставить в другой TextBox»
textual
Листинг программы
sub Command1_click() ' "копируем" и вставляем первую строку dim Arg() as string 'будущий массив строк Arg() = split(Textbox1.text, vbCrlf) ' получаем массив строк начинающийся с [B]0[/B] Textbox2.text = Arg(0) & VbCrlf & Textbox2.text ' Arg(0) - это и есть первая строка end Sub Sub Command2_Click() ' проверка строк и оставляем во втором Текстбоксе только те строки, которые не повторяются в первом dim Arg1() as string, Arg2() as string Dim X as long, Y as long, Find as boolean Arg1() = split(Textbox1.text, vbCrlf) Arg2() = split(Textbox2.text, vbCrlf) Textbox2.text="" for x=0 to ubound(Arg2) Find = false for y=0 to ubound(Arg1) if Arg2(x) = Arg1(y) then Find =true Exit For end if next if Not Find then Textbox2.text = Arg2(x) & Textbox2.text & VbCrlf end if next end Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д