11. august 2003 - 19:16Der er
10 kommentarer og 1 løsning
Lægge data fra LOOP ind i en variabel.
Hejsa.
Jeg har et problem med et loop. Lige nu læser jeg data fra en txt-fil. Jeg bruger SPLIT funktionen to gange.
Eks på data:
1G; Bent Andersen
Første funktion splitter (;) Anden funktion splitter ( ) - altså mellemrum.
Dette gør jeg, fordi jeg skal have delt navnet op, da jeg skal have lagt efternavnet ind i en kolonne, mens resten af navnet skal ind i en anden.
Eks af min kode
Do While Not TS.AtendOfStream
strLine = TS.ReadLine ' Read one line at a time strelev2 = split(strLine,";") elev = strelev2(1) efter2 = split(elev," ") efter = ubound(efter2) elever = elever + 1
klasse = strelev2(0)
for I = 0 to efter-1 response.write efter2(I) &" " next
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Do While Not TS.AtendOfStream strLine = TS.ReadLine ' Read one line at a time strelev2 = split(strLine,";") elev = strelev2(1) efter2 = split(elev," ") efter = ubound(efter2) elever = elever + 1 klasse = strelev2(0)
Hvad med det her: Do While Not TS.AtendOfStream fornavn="" strLine = TS.ReadLine ' Read one line at a time strelev2 = split(strLine,";") elev = strelev2(1) efter2 = split(elev," ") efter = ubound(efter2) for i=0 to ubound(efter2) - 1 fornavn = fornavn + efter(i) next elever = elever + 1 klasse = strelev2(0)
Do While Not TS.AtendOfStream strLine = TS.ReadLine 'Read one line at a time strelev2 = split(strLine,";") elev = strelev2(1) names = split(elev," ") if UBound(names) > 2 then fornavn = names(0) efternavn = "" for i=1 to UBound(names) efternavn = efternavn & " " & names(i) next end if elever = elever + 1 klasse = strelev2(0) 'response.Write(fornavn&"<br>"&efternavn&"<br>"&klasse) connObj.Execute("INSERT INTO dintabel (Klasse, Efternavn, Navn) VALUES('" & klasse & "','" & efternavn & "','" & fornavn & "')") Loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
