8 svar · 163 visningar · startad av aleborg
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?
'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
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'
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
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
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
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
Någon som vet hur man får fram ord 3 istället???
'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