Replace <test> til testet

Label.Caption = Replace(Label.Caption, "<test>", "testet")

//>Rune

prøver lige at skrive spørgsmålet igen hehe

Jeg vil gerne have <test> byttet ud med testen

label1.caption = "bla bla bla <test> bla bla"

Så gør du bare sådan her:

label1.caption = Replace("bla bla bla <test> bla bla", "<test>", "testet")

//>Rune

Function ReplaceChars(What)
  What = Replace(What, "<test>", "testet")
  What = Replace(What, "<title>", "din titel")
End Function

label1.caption = ReplaceChar("bla bla bla <test> bla bla<title>")

//>Rune

Agh, hov:

Function ReplaceChars(What)
  What = Replace(What, "<test>", "testet")
  What = Replace(What, "<title>", "din titel")
  ReplaceChars = What
End Function

label1.caption = ReplaceChar("bla bla bla <test> bla bla<title>")

//>Rune

Agh, funktionsnavnet skal jo så oxo lgie være det samme:

Function ReplaceChars(What)
  What = Replace(What, "<test>", "testet")
  What = Replace(What, "<title>", "din titel")
  ReplaceChars = What
End Function

label1.caption = ReplaceChars("bla bla bla <test> bla bla<title>")

//>Rune

Thx 4 Poinz

//>Rune

Mange tak for det hurtige svar :D:D:D

NP.

//>Rune