Удобно восползоваться функцией Slpit

dim s() as string

s = split(text1.text, ";")

s - массив значений с буквенными обазночениями.

А дальше уже в цикле пробежать по s и загнать в text2

for i = 0 to ubound(s)-1

text2.text = text2.text & mid(s(i),3) & vbnewline

next i

Ответить

boevik , che-to u menja nifiga na poluchaetsa....

napisal v text1: "bla1; bla2"...a v Text2 on mne vqdajot tolko "a1" i vsjo.... che ja delaju ne tak?

Ответить

Ответить

Ответить

Код выложи. Хотя уже не надо.

Думаю у тебя в Text2 не определенно Multiline=true

и еще в вопросе ты указал что тебе надо после знака '=', вот я тебе и показал как брать строку с третей позиции

Ответить

v Text2 u menja multilie True

ha...a teper u menja eshjo koechto stranno...pishu v Text1:

"a=x1;b=x2;c=x3", nazqmaju na Command1( v kotorm kod kotorqi tq mne dal)...Text2 otobrazaet mne tolko to, chto u menja v znachenii A i v B, a C ne hochet....

Ответить

Напиши, for i = 0 to ubound(s) (без минус 1).

Это я немного с count перепутал

Ответить

vsjo, teper vsjo rabotaet

PASIBA

Ответить

A mozno eshjo 2 vopros po etoi ze teme???

1. A kak mne vqesti v Text2 "A=bla1" t.e. eshjo i "A" i ravno???

2. Kak mne schitat kazduju liniju Text2. t.e. mne dupustim nuzno znat`, chto napisano na 1-oi linii ili na 2-oi..i t.d.

Ответить

1. Оставить букву и знак, так не надо использовать Mid. Достаточно text2.text = text2.text & s(i) & vbnewline

2. В массиве s у тебя уже указано все по строкам.

Я сижу в чате на этом сайте или стучи ко мне в аську.

Ответить

Вот кому надо, могут попользовать

Как тут было сказано обычный текст по строком разбить труда не составляет... так что, после этого, можно использовать вот эту функцию:

    ' Аналог функции GetINI, но берет данные из массива
Public Function GetINIByMem(ByVal sSection As String, _
                            ByVal sKey As String, _
                            ByRef sSource() As String, _
                   Optional ByVal sDefaultVal As String = vbNullString) As String
    Dim gini As Integer, jini As Integer
    
    For gini = &H0 To UBoundS(sSource)
        If Chr$(&H5B) & sSection & Chr$(&H5D) = Trim$(sSource(gini)) Then
            For jini = gini + &H1 To UBound(sSource)
                If Left$(sSource(jini), &H1) = Chr$(&H5B) Then Exit For
 
                sSource(jini) = NormIniLine(sSource(jini))
 
                If sKey & Chr$(&H3D) = Left$(NormIniLine(sSource(jini)), Len(sKey) + 1&) Then
                    GetINIByMem = Right$(sSource(jini), Len(sSource(jini)) - Len(sKey) - &H1)
                    Exit Function
                End If
            Next
            GetINIByMem = sDefaultVal
            Exit Function
        End If
    Next
    GetINIByMem = sDefaultVal
End Function
 
Private Function NormIniLine(inLine As String) As String
    Dim lRes As Long
 
    lRes = InStr(1, inLine, Chr$(&H3D))
    If lRes < 1& Then Exit Function
 
    NormIniLine = TrimEx(Trim$(Left$(inLine, lRes - 1&)), vbTab)
    NormIniLine = NormIniLine & Chr$(&H3D) & TrimEx(Trim$(Right$(inLine, Len(inLine) - lRes)), vbTab)
End Function
 
Private Function TrimEx(ByVal inString As String, _
                        ByVal Character As String) As String
    TrimEx = inString
 
    Do While Left$(TrimEx, 1&) = Character
        TrimEx = Right$(TrimEx, Len(TrimEx) - 1&)
    Loop
    Do While Right$(TrimEx, 1&) = Character
        TrimEx = Left$(TrimEx, Len(TrimEx) - 1&)
    Loop
End Function

Ответить

Да, вот забыл,

Public Function UBoundS(ArrItem() As String) As Long
    On Error GoTo Handler
    UBoundS = UBound(ArrItem)
    Exit Function
Handler:
    UBoundS = &HFFFF
End Function

Ответить