Hi Danwe,
du könntest eine funktion schreiben, die du immer wieder verwendest.
der übergibst du einfach das objekt.
bsp.
function textdurchsuchen(objekt as object)
For c = 1 To 1024 Step 1
If Mid(txt, c, 6) = "(Name)" Or _
Mid(txt, c, 6) = "(name)" Then
objekt.Caption = Mid(txt, 1, c - 1)_
& Name & Mid(txt, c + 6)
txt = objekt.Caption
End If
Next c
return txt
end function
(nicht getestet! )
hilft dir das nun? :-)
viele grüße
rasta
Danwe schrieb am 01.12.2005 11:10:19:
Naja, ich habe einen Text.
in diesem text stehen meine Signalwörter (signal) diese werden dann durch bestimmte Excel Zelleninhalte ersetzt. Es gibt inzwischen 6 Stück davon, für jedes brauche ich eine eigene Suchroutine, das ist ja noch nicht schlimm.
Aber ich habe mehrere Felder wo diese (signal) wörter vorkommen können. Also brauche ich all diese Suchroutinen nochmal für jedes der Felder!! Beispiel:
For c = 1 To 1024 Step 1
If Mid(txt, c, 6) = "(Name)" Or _
Mid(txt, c, 6) = "(name)" Then
lblPreviewBetreff.Caption = Mid(txt, 1, c - 1)_
& Name & Mid(txt, c + 6)
txt = lblPreviewBetreff.Caption
End If
Next c
Anstelle von dem lblPreviewBetreff kann die Analyse auch in dem Feld lblPreviewMail vorkommen usw. |