Склейщик

@-Storm- · Регистрация: 28.01.2011

Author24 — интернет-сервис помощи студентам

Добрый день. Моя цель сделать так называемый "склейщик". На первом скрине, код моей программы. На втором пример ее работы с 1 строкой. На 3-ем скрине, проблема которая возникает при 2 и больше строк. На 4-ом скрине пример ее идеальной работы. Помогите пожалуйста.

@gitarillo · 12.09.2011, 13:52

Visual Basic

Private Sub Command1_Click()
Text2.Text = vbNullString
Dim a() As String
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
Text2.Text = Text2.Text & a(i) & ";" & a(i) & vbCrLf
Next
End Sub

@-Storm- · 12.09.2011, 13:57 **[ТС]**

Сообщение от gitarillo

Visual Basic

Private Sub Command1_Click()
Text2.Text = vbNullString
Dim a() As String
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
Text2.Text = Text2.Text & a(i) & ";" & a(i) & vbCrLf
Next
End Sub

Огромное спасибо, все работает

@-Storm- 1 / 1 / 0 Регистрация: 28.01.2011 Сообщений: 31
		1
	Склейщик 12.09.2011, 13:44. Показов 691. Ответов 2 Метки нет (Все метки) Добрый день. Моя цель сделать так называемый "склейщик". На первом скрине, код моей программы. На втором пример ее работы с 1 строкой. На 3-ем скрине, проблема которая возникает при 2 и больше строк. На 4-ом скрине пример ее идеальной работы. Помогите пожалуйста. Миниатюры 0

	12.09.2011, 13:57