Нужен хэлп !!!!

[Monax]

Я хочу зделать прогу с двумя текстовыми полями на форме и кнопкой.
Смысл проги в том: в Text1 пишеш любой текст, при нажатии на кнопку этот текст перелетает во второе текстовое поле но с заменой буквы А на +. Как это сделать?

[GSerg]

text2.text=replace(text1.text, "A", "+")

[Viper]

если у него VB6 то там и найдет, а если более ранний, то заодно и напишет... Пригодится

[A.A.Z.]

А че там писать-то?

Код: Выделить всё

Function Replace(Expression As String, Find As String, Replace As String, Optional Start As Long = 1, Optional Count As Long = -1, Optional Compare As VbCompareMethod = vbBinaryCompare) As String
Dim I&, Pos&, S$
S = Expression
Pos = InStr(Start, S, Find, Compare)
While I > Count And Pos <> 0
S = Left$(S, Pos - 1) & Replace & Right(S, Len(S) - (Pos - 1) - Len(Find))
I = I + 1
DoEvents
Pos = InStr(Pos + 1, S, Find, Compare)
Wend
Replace = S
End Function

[GSerg]

Чё писать, говоришь?
http://www.vbstreets.ru/VB/Articles/65769.aspx

skiperski рулит

[alibek]

А че там писать-то?

В этом коде есть пара серьезных недостатков. Сейчас я их уже не вспомню, подумать надо, но раньше я их искал и находил.

[A.A.Z.]

Эт я читал И на ус мотал
Но, имхо, афтару достаточно и этого

[Monax]

2GSerg ага... а функцию реплэйс он где возмет?

На VB6 всё есть так что всё работает только есть ешё одна проблема
как быть если мне нужно заменить А на ! и в тоже время В на #

[WERT-007]

А можно и так:

Это в модуль:

Код: Выделить всё

Public toReplace() As SUPERREPLACE_TYPE

Public Type SUPERREPLACE_TYPE
    Old_s As String
    New_s As String
End Type

Public Sub ClearReplace()
    ReDim toReplace(0)
End Sub

Public Sub AddToReplace(Old_s As String, New_s As String)
    ReDim Preserve toReplace(UBound(toReplace) + 1)
    toReplace(UBound(toReplace)).New_s = New_s
    toReplace(UBound(toReplace)).Old_s = Old_s
End Sub

Public Function ReplaceALL(Source As String, Optional Start As Long = 1) As String
    Dim i&, q&, t$
    For q = 1 To UBound(toReplace)
        t = toReplace(q).Old_s
        For i = Start To Len(Source) - Len(t) + 1
            s = Mid$(Source, i, Len(t))
            If s = toReplace(q).Old_s Then
                s = toReplace(q).New_s
                Source = Left$(Source, i - 1) & s & Mid$(Source, i + Len(toReplace(q).Old_s))
            End If
        Next i
    Next q
    ReplaceALL = Source
End Function


И вызывается это дело примерно так:

Код: Выделить всё

Private Sub Command1_Click()
    ClearReplace
    AddToReplace "a", "1"
    AddToReplace "b", "#"
    AddToReplace "coffee","Tea"
    AddToReplace "ppp",""
    Text2 = ReplaceALL(Text1)
End Sub


Медленно, но надежно!

[GSerg]

Интересно, как быть в том случае, когда одна заменяемая строка является частью другой?

[alibek]

Интересно, как быть в том случае, когда одна заменяемая строка является частью другой?

Хе
А я как-то делал пакетный Replace с обработкой различных ситуаций, в т.ч. и этой. Кучу всяких оптимизаций делал, чтобы ускорить.

[WERT-007]

Интересно, как быть в том случае, когда одна заменяемая строка является частью другой?

Тогда ставить приоритеты - что раньше добавлено, то первым и обработается!