Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Verfolgung starten Optionen

VB6 Textfeld & löschen

andreas (Anonym) / 1 Antworten / Baumansicht Nickles

Hallo zusammen,

Ich bin mit meinem Programm fast fertig. Mir fehlt allerdings eine kleinigkeit.
Ich lade in ein Textfeld eine Textdatei hinein, die ich bearbeite.
Ich möchte einige Wörter durch andere Wörter ersetzen. Dafür habe ich mir ein Button
im Formular angelegt.
Wie sag ich dem Programm nun, das es alle Wörter wie z.B. "PROBLEM" löscht und an dieser
Stelle z.B. "DANKE" einfügt. Ich hab den ganzen Tag schon probiert....aber irgendwie geht
das nicht so ganz....Kann mir da jemand weiter helfen??

Vielen dank

Andreas.

bei Antwort benachrichtigen
schierl (Anonym) andreas (Anonym) „VB6 Textfeld & löschen“
Optionen

dim txt as string, vorher as string, nachher as string, position as integer
text=Textfeld.text
vorher="PROBLEM"
nachher="DANKE"
do
position= instr(txt,vorher)
if position0 then
text=left$(txt,i-1)+nachher+mid$(txt,i+len(vorher))
else
exit do
end if
loop
Textfeld.text=txt

hoffe das passt so, aber im prinzip müsste das so stimmen:
Text1 suchen, rausbauen und dann Text2 einbauen

^^ichael

bei Antwort benachrichtigen