trække x antal bogstaver fra 3 ord i samme felt

p = "samsung lcd - r32m21" ' test
' p = "lg tv & video" ' test

' fjern specialtegn:
p = replace(p, "-", "")
p = replace(p, "&", "")

p = trim(p) ' fjern overflødige mellemrum

p = split(p, " ") ' split strenge op ved mellemrum

a = left(p(0), 4)
b = left(p(1), 3)
c = left(p(3), 2)

response.write a & " " & b & " " & c ' fjern mellemrum for at se ordet uden mellemrum :-)

Som funktion:

function henttegn(data)

' fjern specialtegn:
data = replace(data, "-", "")
data = replace(data, "&", "")

data = trim(data) ' fjern overflødige mellemrum

data = split(data, " ") ' sdatalit strenge odata ved mellemrum

a = left(data(0), 4)
b = left(data(1), 3)
c = left(data(3), 2)

henttegn = a & b & c
end function

response.write henttegn("samsung lcd - r32m21")
response.write "<br>"
response.write henttegn("lg tv & video")

lir - det spiller - men den fejler hvis der ikke er 3 ord:
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 3]'

/csv_export/products.asp, line 16

Hmm.. kigger lige på det..

Sådan:

function henttegn(data)

' fjern specialtegn:
data = replace(data, "-", "")
data = replace(data, "&", "")

data = split(data, " ") ' split strenge odata ved mellemrum

dim i, tmp
tmp = ""
' fjerne tomme elementer i arrayet:
for i = 0 to ubound(data)
    if data(i) <> "" then tmp = tmp & data(i) & "^"
next
tmp = left(tmp, len(tmp) - 1)

data = split(tmp, "^")

dim a, b, c
a = ""
b = ""
c = ""

if ubound(data) >= 0 then a = left(data(0), 4)
if ubound(data) >= 1 then b = left(data(1), 3)
if ubound(data) >= 2 then c = left(data(2), 2)

henttegn = a & b & c
end function

response.write henttegn("samsung lcd -  r32m21")
response.write "<br>"
response.write henttegn("lgtv & video")

fedt mand - det spiller

lige en sidste ting - hvordan fjerner man " gåseøjne ?
data = replace(data, """, "") - den går vel ikke :)

der er en lille bug: http://www.emeyu.com/csv%5Fexport/products.asp

produkt: teacglacup–

fuldt navn: glass cup – hand crafted

det skal være: teaglacupha

Fjernelse af gåseøjne: data = replace(data, """", "") eller data = replace(data, Chr(34), "")

Jeg gik ud fra, at der kun var 3 stumper, i det du skrev:

"udtræk skal være 4 karakterer fra første ord, 3 fra andet ord og 2 fra tredje ord"

Der kan jeg ikke se et 4. ord.. :-)

Hvordan kommer vi videre?

Jeg har ikke excel filen mere, så jeg kan ikke se produktet..

Jeg kan ikke se sammenhænget mellem 07/11-2006 09:40:29 og dit oprindelige spørgsmål, og de andre produkter (f.eks. "samsung lcd -  r32m21")..

my bad- sorry. du har løst mit problem har glemt at lukke og give point. det må du undskylde

Helt iorden.. :-)