shaileshshinde Ответов: 1

Разделить несколько линий управления richtextbox в слово в слово в текстовое поле

Мне нужно такое поведение, как при загрузке текстового файла в richtextbox, тогда каждая строка должна быть разбита на слова в textbox/richtextbox.

Что я уже пробовал:

если предположить, что я загружаю текстовый файл в richtextbox и предполагаю, что число строк текстового файла "n" равно :

строка 1 = abcd 1235 xyz pqr

строка 2 = 12345 set xyzfdsfsdf

строка 3 = ритытрыртытр

Имеется " N " количество строк в richtextbox элемент.

затем строка за строкой строка должна быть разбита на слово за словом в текстовом поле/richtextbox, и когда будет нажата кнопка сохранить, то все разбитые слова должны быть объединены, как это было ранее.

Maciej Los

А что вы пробовали?

shaileshshinde

Dim dataArry() As String = RichTextBox2.Text.Split("&")
TextBox1.Text = dataArry(0)
TextBox2.Text = dataArry(1)
Если CheckBox1.Checked = False, То
Текстовое поле textbox1.Текст = ""
Поле textbox2.Текст = ""

Конец, Если

Maciej Los

Вы на правильном пути! Нужны только небольшие изменения:

Dim dataArray() As String = RichTextBox2.Lines(selecttedline).Split(" ")
Dim i As Integer = 1
For Each s As String In dataArray
    Dim txt As TextBox = DirectCast(Me.Controls("TextBox" & i), TextBox)
    txt.Text = s
    i+=1
Next

1 Ответов

Рейтинг:
1

Maciej Los

Попробовать это:

Dim dataArray() As String = RichTextBox2.Lines(selectedline).Split(" ")
Dim i As Integer = 1
For Each s As String In dataArray
    Dim txt As TextBox = DirectCast(Me.Controls("TextBox" & i), TextBox)
    txt.Text = s
    i+=1
Next


Где selectedline в данный момент выбрана строка a RichTexBox1. Вы уже знаете, как это сделать (предварительный вопрос[^]).

shaileshshinde

я попробовал это сделать:

Private Sub SelectLine(направление как направление)

Dim lineindex As Integer = currentline + direction
Если lineindex < 0, то
- это первая линия!
Выход Из Субмарины
Конец, Если

Если lineindex > RichTextBox1.Lines.Тогда Считай - 1
- это последняя строчка!
Выход Из Субмарины
Конец, Если

Dim searchedtext = RichTextBox1.Lines(lineindex)
Dim indexofText As Integer = RichTextBox1.Find(searchedtext, RichTextBoxFinds.MatchCase)
RichTextBox1.Select(indexofText, searchedtext.Длина)
Richtextbox1 отображение.Сосредоточить()

Конец Подводной Лодки
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) обрабатывает CheckBox1.CheckedChanged

Dim dataArray() As String = RichTextBox2.Lines(SelectLine).Расщеплять(" ")
Dim i как целое число = 1
Для каждого s в виде строки в dataArray
Дим txt, как текстовое поле = DirectCast(мне.Элементы управления("текстовое поле" & я), текстовое поле)
формат txt.Текст = s
i += 1
Следующий
Конец Подводной Лодки


но я получаю ниже ошибок:
Ошибка 1:
Описание Кода Серьезности Состояние Подавления Строки Файла Проекта
Ошибка BC30269 'Private Sub SelectLine(direction As Form1.Direction)' имеет несколько определений с идентичными сигнатурами. RichtextBoxLineUpDown C:\Users\OM\Downloads\RichtextBoxLineUpDown\RichtextBoxLineUpDown\RichtextBoxLineUpDown\Form1.vb 18 Активен

Ошибка 2:
Описание Кода Серьезности Состояние Подавления Строки Файла Проекта
Ошибка BC30521 разрешение перегрузки не удалось, так как нет доступной "SelectLine" наиболее специфичной для этих аргументов:
'Частная суб SelectLine(направление, формы form1.Направление)': не самое определенное.
'Частная суб SelectLine(направление, формы form1.Направление)': не самое определенное. RichtextBoxLineUpDown C:\Users\OM\Downloads\RichtextBoxLineUpDown\RichtextBoxLineUpDown\RichtextBoxLineUpDown\Form1.vb 11 Активный


Ошибка 3:
Описание Кода Серьезности Состояние Подавления Строки Файла Проекта
Ошибка BC30521 разрешение перегрузки не удалось, так как нет доступной "SelectLine" наиболее специфичной для этих аргументов:
'Частная суб SelectLine(направление, формы form1.Направление)': не самое определенное.
'Частная суб SelectLine(направление, формы form1.Направление)': не самое определенное. RichtextBoxLineUpDown C:\Users\OM\Downloads\RichtextBoxLineUpDown\RichtextBoxLineUpDown\RichtextBoxLineUpDown\Form1.vb 15 Активных


Ошибка 4:
Описание Кода Серьезности Состояние Подавления Строки Файла Проекта
Ошибка BC30516 разрешение перегрузки не удалось, поскольку ни одна доступная "SelectLine" не принимает такое количество аргументов. RichtextBoxLineUpDown C:\Users\OM\Downloads\RichtextBoxLineUpDown\RichtextBoxLineUpDown\RichtextBoxLineUpDown\Form1.vb 85 Активен

shaileshshinde

@Maciej могу ли я получить ответ с вашей стороны на мой вышеуказанный вопрос, чтобы он был решен?

Maciej Los

Дорогой @shaileshshinde,
Я решил вашу проблему и привел полный пример. Ваш другой вопрос не относится к первоначально опубликованному вопросу.
Кстати: я не пишу код по требованию. Если вы хотите, чтобы ваши проблемы были решены другим человеком, вам придется нанять фрилансера.
Обратите внимание, что в свободное время я помогаю людям бесплатно. Так что не ждите, что я решу все ваши вопросы.
Овации
Мацей

shaileshshinde

Хорошо