[vbscript] vervangen text na een bepaald woord

[Verwijderd]

Ik heb hier 3 regels tekst:

"Dit is een tekst met iets erachter"
"Dit is nog een tekst met iets erachter"
"Dit is de laatste tekst met iets erachter"

Nu wil ik het zo voor elkaar krijgen dat alles na het woord tekst vervangen wordt met niks.

Dan ziet het er dus zo uit:

"Dit is een tekst"
"Dit is nog een tekst"
"Dit is de laatste tekst"

Ik heb wel met "left" en "mid" dingetjes geprobeerd maar dat is niet constant

code:

Message = left(Message,254)

Is er dus een mogelijkheid met vbscript om te zoeken naar het woordje "tekst" en vanaf daar de boel verwijderen of te "replacen"?

[bigbeng]

Visual Basic:

NewString = Replace(oldString, keyWord, "" )

[Markieman]

Verwijderd schreef op 29 april 2004 @ 16:29:
Is er dus een mogelijkheid met vbscript om te zoeken naar het woordje "tekst" en vanaf daar de boel verwijderen of te "replacen"?

Jawel:

code:

Dim P As Long
Dim S As String
Dim Woord as string

S = "Dit is een tekst met iets erachter"
Woord = "tekst"

P = instr(S, Woord)
If P<>0 Then
   S = Left(S, P+Len(Woord)-1)
End If

Msgbox S

[Markieman]

bigbeng schreef op 29 april 2004 @ 16:32:

Visual Basic:

NewString = Replace(oldString, keyWord, "" )

Dit maakt van

"Dit is een tekst met iets erachter"

dit:

"Dit is een met iets erachter

ipv

"Dit is een tekst"

(want je weet dat iets erachter niet)

[Verwijderd]

bigbeng schreef op 29 april 2004 @ 16:32:

Visual Basic:

NewString = Replace(oldString, keyWord, "" )

Als ik dat doe, dan wordt alleen het woordje tekst vevangen, en alles wat erachter staat bijft ook staan. Of doe ik iets niet goed?


Mijn voorbeeld ziet er dan zo uit:

"Dit is een met iets erachter"
"Dit is nog een met iets erachter"
"Dit is de laatste met iets erachter"

[RedRose]

Je kan ook aan de gang met regexps

[bigbeng]

@Markieman:
Damn je hebt gelijk.

[faabman]

download anders even de Microsoft Windows Script Technologies SDK daarmee kun je dit soort probleempjes eenvoudig oplossen...

[gorgi_19]

Denk ik nu gek of kan je gewoon met
InStr en left de boel oplossen?

[bigbeng]

gorgi_19 schreef op 29 april 2004 @ 17:40:
Denk ik nu gek of kan je gewoon met
InStr en left de boel oplossen?

Spuit 11
Markieman heeft de oplossing al gegeven.

[gorgi_19]

bigbeng schreef op 29 april 2004 @ 17:41:
[...]

Spuit 11
Markieman heeft de oplossing al gegeven.

Compleet overheen gelezen...

Voor het geval nog meer mensen dat van plan zijn, gaat hij maar dicht.. Voor de TS voor volgende keer: iets beter de documentatie misschien doorlezen op MSDN.