Söka efter unikt id i text

2 svar · 330 visningar · startad av SannyW 26 okt. 2004

SannyWMedlem sedan jan. 2003438 inlägg

Frågan26 okt. 2004 18:42#1

Hej!

Jag är ute efter att söka efter ett unikt id i en text (typ 25). Nästföljande (,) skall användas om där finns siffror framför och bakom (typ 2,5).

Så att texten som jag vill söka i kan se ut typ som detta:

Då id 25 uppfylldes, så måste värdet vara 2,5. Medan id 46 hade ett värde på 7,8.

x= siffran innan , (2)
y = siffran efter , (5)

Tanken är sedan jag skall använda x och y som uppfyller idet och skicka in resultatet i en databas.

Har sökt runt och kolla men inte träffat rätt, är det någon som kan ge mig en knuff i rätt riktning?

Tack på förhand.

SannyWMedlem sedan jan. 2003438 inlägg

26 okt. 2004 22:43#2

Om vi ändrar lite på frågeställningen.

	objHTTP.Send

	Set objRegExp = New regexp
	objRegExp.Global = True
	objRegExp.IgnoreCase = True
	
	str = BinToText(objHTTP.responseBody,35000)
	Set objHTTP = Nothing

	objRegExp.Pattern = "</td>"
	str = objRegExp.Replace(str, ";")    

	objRegExp.Pattern = "<[^>]*>"
	str = objRegExp.Replace(str, "")

	objRegExp.Pattern = "&nbsp;"
        str = objRegExp.Replace(str, "")'"

	objRegExp.Pattern = "\s"
	str = objRegExp.Replace(str, "") 

        str = Right(str,Len(str)-InStr(str,sFind)+1-len(sFind))
	str = Left(str,InStr(str,"Tillbaka")-1)
	a=split(str,"Top")
	for i = 0 to Ubound(a)
		if i = n then
			exit for
		end if
		myStr=myStr+a(i)
	next
	getNews = myStr

End Function
Response.Write (getNews(1))

Får ut följande:

25;Namn;2,5;;46;Namn;7,8;;

Är det då möjligt att binda Where id=25 och bryta ut

2,5 med hjälp av semikolonen för att sedan på nytt lägga in 2 och 5 på olika ställen i databasen?

Att man räknar fram antalet semikolon från Id:et?

Hoppas det går att förstå vad jag menar.

@ndersMedlem sedan juni 200032 967 inlägg

27 okt. 2004 06:25#3

Använd Split() för att på semikolon dela upp strängen till en array. Därifrån är det bara att ta ut värdena i de positioner du är ute efter.