Разделить текст - VB
Формулировка задачи:
Всем привет! Нужна помощь. Как осуществить функцию split, может как-то по другому. К примеру даётся такой список:
текст1:один
текст2:два
текст3:три и т.д
Нужно их отделить по разным текстбоксам, чтоб было так:
Text1.=
текст1
текст2
текст3
и Text2=
один
два
три. Т.е Разделить текст до первого двоеточия
Вот что-то похожее
Решение задачи: «Разделить текст»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim s1 As String, s2 As String SubString Text3.Text, s1, s2 Text1.Text = s1 Text2.Text = s2 End Sub Private Sub SubString(ByVal InputText As String, ByRef txt1 As String, ByRef txt2 As String) Dim s1, s2, i As Integer s1 = Split(InputText, vbCrLf) On Error Resume Next For i = 0 To UBound(s1) s2 = Split(s1(i), ":") txt1 = txt1 & s2(0) & vbCrLf txt2 = txt2 & s2(1) & vbCrLf Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д