Hallo Danwe,
wenns funktioniert, kanns ja nicht schlecht sein :-)
allerdings würde ich die suchzeichenfolge nicht mit einer schleife abarbeiten,sondern wie oliver gesagt hat, mit instr.
geht schneller- hier ein paar beispiele
Dim SuchText, SuchZeichen, Pos1
Suchtext ="XXpXXpXXPXXP" ' Zu durchsuchende
' Zeichenfolge.
SuchZeichen = "P" ' Nach "P" suchen.
' Reiner Textvergleich ab Position 4. Das Ergebnis ist 6.
Pos1 = Instr(4, Suchtext, SuchZeichen, 1)
' Binärer Vergleich ab Position 1. Das Ergebnis ist 9.
Pos1 = Instr(1, Suchtext, SuchZeichen, 0)
' Standardmäßig wird der Vergleich binär durchgeführt
' (wenn das letzte Argument nicht angegeben wird).
Pos1 = Instr(Suchtext, SuchZeichen) ' Liefert 9.
Pos1 = Instr(1, Suchtext, "W") ' Liefert 0.
viele grüße
rasta
Danwe schrieb am 25.11.2005 17:19:38:
Ok, danke Oliver,
Ich habe mir jetzt ne Lösung ausgedacht, die auf den ersten u. zweiten Blick zumindest mal ziehmlich gut funktioniert, hoffe mal es gibt keine Bugs mehr:
Dim TextNachricht As String
Dim c
Dim Inhalt
Private Sub CommandButton1_Click()
Inhalt = "Daniel Werner"
txt = txtInput.Text
txt_old = txtInput.Text
For c = 1 To 1024 Step 1
If Mid(txt, c, 6) = "(Name)" Then
'Mid(txt, c) = Inhalt
MsgBox "True"
txtoutput.Caption = Mid(txt, 1, c - 1) & Inhalt & Mid(txt, c + 6)
txt = txtoutput.Caption
End If
Next c
End Sub
Was hälst du davon? |