ta bort allt utan...

DavidBMedlem sedan jan. 20001 372 inlägg

Frågan21 juli 2001 21:00#1

hur gör man om man har en text som ligger i en variabel och man matchar ett ord med hjälp av RegExp och vill att all annan text utan dessa ord tas bort så att endast dessa ord ligger kvar i variabeln?

------------------
// David - Probably the best guy in the world

PatrikBMedlem sedan mars 20002 836 inlägg

21 juli 2001 21:27#2

ngt liknande kanske:

<%
Function getWords(ByVal vData, ByVal sMatch)
	Dim objRegExp, match, matches, vOutPut, aMatch
	aMatch = Split(sMatch)
	Set objRegExp = New RegExp
		objRegExp.Global = True
		objRegExp.IgnoreCase = true
		For I = 0 To UBound(aMatch)
			objRegExp.Pattern = aMatch(I)
			Set matches = objRegExp.Execute(vData)
			For Each match In matches
				vOutPut = vOutPut & match
			Next
		Next
		Set matches = Nothing
	Set objRegExp = Nothing
	getWords = vOutPut
End Function

strText = "Detta vill jag få ut från min sökning. Det jag vill få ut är: ingenting."

strResult = getWords(strText,"få jag")

Response.Write strResult
%>

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*

[Redigerat av PatrikB den 21 jul 2001]