Dela upp ett RecSet

myString = "hej på dig<br>bra med dig?<br>jorå det knallar<br>skönt å höra<br>jo, visst är det<br>japp<br>hejdå"
myPattern = "<br>"
Set objRegExp = new RegExp
with objRegExp
	.Global = true
	.IgnoreCase = true
	.Pattern = myPattern
end with
Set myMatches = objRegExp.Execute(myString)
i=1
for each item in myMatches
	if i = 5 then
		firstString = mid(myString, 1, item.FirstIndex)
		secondString = mid(myString, item.FirstIndex + 1 + len(myPattern), len(myString) - item.FirstIndex - len(myPattern))
	end if
	i = i -- 1	
next
if IsEmpty(firstString) = true then
firstString = myString
end if

Som synes väldigt Vide-inspirerat ;)

Den sista if-satsen kontrollerar om rs("mess") hade 5 eller fler rader, dvs om firstString tilldelades ett värde. Om så inte var fallet tilldelas den samma värde som myString (annars skrivs inget ut i tabellen).

Fråga om nåt är oklart.

------------------
/ jeps0

[Redigerat av jepsO den 18 jun 2001]

Hmm. Din kod delar alltså upp strängen i två delar; firstString och secondString.

Och sedan kan man alltså skriva ut dessa strängar som vanligt var man vill.

Korrekt?

------------------
"Datorer behöver i framtiden inte väga mer än 1,5 ton."
Popular Mechanics, 1949

Testa :e (ja, så är det tänkt).

------------------
/ jeps0