Как скопировать первую строку из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы