Как добавить текст после каждой строки текстового поля в VB.NET
Я всюду искал, не могу найти пути. Я хочу найти способ добавлять текст после каждой строки текстового поля, но не могу найти способ сделать это. У меня есть текстовое поле1 с:
example1
example2
example3
And so on...
и еще одно текстовое поле2 с @ gmail.com
Я хочу, чтобы текстовое поле2 было добавлено в конец каждой строки в текстовом поле1, например:
[email protected]
[email protected]
[email protected]
And so on...
Как это сделать? Заранее спасибо.
Я немного новичок в vb.net, я не знаю ... Мне просто нужно, чтобы он выполнял за меня задачу, а не делал это сам. Пожалуйста, не судите ... Я действительно в отчаянии ...
Это не так, как работает Stack Overflow. Мы можем помочь, но вы должны пойти нам навстречу. Опубликуйте свой код попытки.
Я понимаю, приятель, но я действительно не могу обойти это ... Спасибо за ваш честный ответ, но я думаю, что сдамся, я действительно не могу сделать это в одиночку ... еще раз спасибо ...
Ответы 2
Это полный рабочий код. Наслаждайтесь !!!!
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Me.TextBox1.Lines.Length = 0 Then
MsgBox("Please enter some data in textbox1")
Exit Sub
End If
'---------------------------
Dim b(Me.TextBox1.Lines.Length - 1) As String
Dim i As Integer = 0
For Each a As String In Me.TextBox1.Lines
b(i) = a + Me.TextBox2.Text
i = i + 1
Next
'-----------------
Me.TextBox1.Clear()
Me.TextBox1.Lines = b
End Sub
Пожалуйста, объясните свой код. Просто сбросив копируемый код, OP ничего не узнает, и, скорее всего, никто из будущих читателей в этом отношении тоже не узнает. Stack Overflow не предназначен для использования в качестве службы кодирования. Цель состоит в том, чтобы на самом деле учить задающий вопрос что-то.
Все в моем ответе очевидны, все коды ясны, и моя цель - помогать людям. Я учусь в средней школе с 1999 года, поэтому я знаю, как ответить, чтобы получить лучший результат !!!!
То, что для вас очевидно, может быть очевидным не для всех. Видя, что OP не смог решить эту проблему самостоятельно (и поскольку он даже прямо заявил в комментарии, что он новичок в этом), он может вообще этого не понять, не говоря уже о других новичках, которые находят этот вопрос. За годы работы в SO я узнал, что большинству новичков действительно сложно понять концепцию циклов и массивов.
Почему вы выбрали для каждого, а затем увеличили целое число. Вместо этого можно использовать перечислитель For Loop. Вам не нужно снимать флажок, если вы заменяете коллекцию Lines.
Я не намеревался показаться скупым в своих комментариях, но, отвечая на вопрос через Интернет, человек теряет важную коммуникацию, такую как язык тела и вариации тона в своей речи, что затрудняет понимание людьми друг друга по сравнению с тем, когда вы говорить лицом к лицу. Таким образом, то, что один человек говорит в Интернете, труднее понять и интерпретировать. Я просто пытался помочь вам еще больше помочь OP, чтобы убедиться, что он понимает его.
Нет проблем, вы можете использовать For ... Все вместо цикла for идентичны.
Это решение краткое и удаляет пустые строки.
Private Function appendTextToOtherTextLines(textToAppend As String, otherText As String) As String
Return String.Join(Environment.NewLine, otherText.
Split(Environment.NewLine.ToArray(), StringSplitOptions.RemoveEmptyEntries).
Select(Function(s) s & textToAppend))
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox3.Text = appendTextToOtherTextLines(TextBox2.Text, TextBox1.Text)
End Sub
Вот ваш пример работы
И если у вас была пустая строка, она удаляется в получившейся строке
Конечно, вместо этого вы можете перезаписать исходное текстовое поле, но будьте осторожны, чтобы не нажимать кнопку дважды!
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = appendTextToOtherTextLines(TextBox2.Text, TextBox1.Text)
End Sub
Другой вариант - обработчик событий, который сделает это автоматически при нажатии Enter в конце новой строки. Это полезно только в том случае, если вы активно вводите строки вручную.
Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 2) & TextBox2.Text & Environment.NewLine
TextBox1.SelectionStart = TextBox1.Text.Length
End If
End Sub
(эта опция требует некоторой дисциплины при нажатии Enter)
Вы пробовали пройтись по коллекции Lines?