Array-trouble

hmmm....hvis du kun skal legge til data i ditt array, så skal du benytte

ReDim preserve data(nylengde)

er jeg galt på den ?

Men jeg kender jo ikke den nye længde

joda...du setter en UBOUND på den array du får fra din split

fx

ReDim preserve data( UBOUND(Split(res(\"elemarg\"),\" \",-1,1) ) )

/nute

Vil du hjælpe mig i gang hvis du lige får lidt kode?

______________________________________________

Set res = Server.CreateObject(\"ADODB.Recordset\")
sql = \"SELECT elemarg FROM pageelements WHERE pageidx = \" & pageid & \" ORDER BY elemprio\"
res.Open sql, ado, 3, 1

Do While Not res.EOF
    data = Split(res(\"elemarg\"),\" \",-1,1)
    res.MoveNext
Loop

Formålet er at lave et array med alle ord fra alle felterne der kommer ud af sql-selecten. Som den er nu overskriver hvert loop den forrige.

oki...jeg tror jeg forstår hva du mener, men jeg villige ha et par ting på plass

- den array du har postet...er det en globalt tilgjengelig array for scriptet ?

hvis ja:

- du utfører en annen SQL-select senere i scriptet som du gjerne vil proppe inn i samme array ?

/nute

jeg er ikke sikker på hvad du mener med globalt tilgængelig..

Nej... det er den samme select....

globalt tilgjengelig: at det er en array hvis innhold er tilgjengelig for alle funksjoner i ditt script...

siden det er samme select:

ligger det allerede noe innhold i \'data\' arrayet idet du eksekverer denne SQL ?

nej intet andet.

ahhh....unnskyld....jeg leser ikke ditt spm ordentlig :-(

a) det du ønsker er å opprette en array som du he´le tiden legger nye elemeter inn i. Dvs at hvis ditt recordsets første record innehold \"Jeg er norsk\" så legger du verdien \"Jeg\" inn i første index i ditt array, \"er\" i andre index og \"norsk\" i tredje index. Deretter hvis ditt recordsets andre record inneholder \"Du er dansk\", så legger du verdien \"Du\" i fjerde index i ditt array, \"er\" i femte index osv

eller

b) du oppretter en array som har lik lengde som ditt recordset, og hver index i din array inneholder en array med ordene fra ditt record ?

A! Lige præcis :o)

AHA !!!! så begynner vi å nærme oss :-D

prøv dette:

Set res = Server.CreateObject(\"ADODB.Recordset\")
sql = \"SELECT elemarg FROM pageelements WHERE pageidx = \" & pageid & \" ORDER BY elemprio\"
res.Open sql, ado, 3, 1


Do While Not res.EOF
    tmpStr = Join( data, \" \" ) & \" \" & res(\"elemarg\")
    data = Split( tmpStr ,\" \",-1,1)
    res.MoveNext
Loop

alternativt kan du vel bare legge alt i en streng som du propper ned i et array til sist (som nok er den mest økonomiske måten)

tmpStr = \"\"
Do While Not res.EOF
    tmpStr = tmpString & \" \" & TRIM( res(\"elemarg\") )
    res.MoveNext
Loop
data = Split( tmpStr ,\" \",-1,1)

/nute

nute >> You saved my day once again :o)

det var da så lidt :) bare hyggelig å kunne hjelpe...

DOH!

Det skulle jeg lige til at foreslå, men så var der en kunde der ringede....

Det er sgu\' med at være hurtig herinde på Eksperten ;-)

/SoerenS

Søren >> Forhåbentlig fik du mere ud af at snakke med kunden end de 60 points nute fik ud af at hjælpe mig ;o)