---
title: "array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14173-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2002-02-02T13:45:00.000Z"
updated: "2002-02-03T19:30:00.000Z"
replies: 8
views: 163
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14173-array"
---

# array

## #1 — aleborg, 2002-02-02T13:45Z

jag har en sträng som ser ut ungefär så här:

ord1,ord2,ord3,ord4 vcrlf ord1,ord2,ord3,ord4 vcrlf ord1,ord2,ord3,ord4 vcrlf ord1,ord2,ord3,ord4 vcrlf ord1,ord2,ord3,ord4 vcrlf

Jag behöver ha ut ord1 i varje "rad" som är splittad med vbcrlf. HUR?

Permalänk: https://www.webforum.nu/p/14173

## #2 — LarsG, 2002-02-02T14:32Z

```
'str sträng med rader indelade av vbcrlf
dim a
a = split(str,vbcrlf)

dim words,firstWords()
words = ubound(a) + 1
redim firstWords(words)

dim i
for i = 0 to words
  firstWords(i) = left(a(i),instr(a(i),",")-1)
next
```

Permalänk: https://www.webforum.nu/p/309248

## #3 — aleborg, 2002-02-02T15:47Z

Glömde säga att dom 5 första "raderna" inte följer det mönstret och ska inte inkluderas överhuvudtaget!

Så nu får jag:
Invalid procedure call or argument: 'left'

Permalänk: https://www.webforum.nu/p/309249

## #4 — LarsG, 2002-02-02T15:59Z

Så här då, nu hoppar jag över de fem första och jag har även lagt till en kontroll om det finns ett komma. Om inte så lagras hela den raden som ett ord. 

```
'str sträng med rader indelade av vbcrlf
dim a
a = split(str,vbcrlf)
dim words,firstWords()
words = ubound(a) + 1 - 5
redim firstWords(words)

dim i,pos
for i = 0 to words
pos = instr(a(i+5),",")-1)
'dubbelkoll
if pos > 0 then
   firstWords(i) = left(a(i+5),pos)
else
   firstWords(i) = a(i+5)
end if
next
```

Permalänk: https://www.webforum.nu/p/309250

## #5 — aleborg, 2002-02-02T16:20Z

hmm, nu funkar det bättre men nu får jag

Subscript out of range: '\[number: 24\]' 

på rad:
pos = instr(a(i+5),",")-1

Permalänk: https://www.webforum.nu/p/309251

## #6 — LarsG, 2002-02-02T16:28Z

Jag gick ett steg för långt.

```
'str sträng med rader indelade av vbcrlf
dim a
a = split(str,vbcrlf)
dim words,firstWords()
words = ubound(a) + 1 - 5
redim firstWords(words)
dim i,pos
for i = 0 to words - 1
pos = instr(a(i+5),",")-1)
'dubbelkoll
if pos > 0 then
firstWords(i) = left(a(i+5),pos)
else
firstWords(i) = a(i+5)
end if
next
```

Permalänk: https://www.webforum.nu/p/309252

## #7 — aleborg, 2002-02-02T17:19Z

tack, nu funkar det!

om någon annan vill använda koden så ska det tilläggas att den här raden:
pos = instr(a(i+5),",")-1)

ska vara
pos = instr(a(i+5),",")-1

Permalänk: https://www.webforum.nu/p/309253

## #8 — aleborg, 2002-02-03T16:38Z

Någon som vet hur man får fram ord 3 istället???

Permalänk: https://www.webforum.nu/p/309254

## #9 — LarsG, 2002-02-03T19:30Z

```
'str sträng med rader indelade av vbcrlf
dim a
a = split(str,vbcrlf)
dim words,firstWords()
words = ubound(a) + 1 - 5
redim firstWords(words)
dim i,b
for i = 0 to words - 1
b = split(a(i+5),",")
if  ubound(b) >= 2 then
firstWords(i) = b(2)
else
firstWords(i) = a(i+5)
end if
next
```

Permalänk: https://www.webforum.nu/p/309255

---

Tråden på webben: https://www.webforum.nu/amne/asp/14173-array