split streng

dur;

dim a()
a = split("din streng", ",")


ikke?

ja, den splitter strengen op hvor den er adskilt med "," men det yderligere vil jeg splitte det der er tilbage op i to arrays. det der står på den ene side af "-" og det der står på den anden side...

måske er det et eller andet med left og right

dim a()
a = split("din streng", ",")

b = split(a(1),"-")

så har du b(1) og b(2) for henhv. før og efter bindestreg

Hvis jeg så gør således:

dim a()
a = split(strText,", ")

For i = 0 to UBOUND(a)
  b = split(a(i),"-")
Next

- hvordan får jeg så hevet værdier ud af b?

For i = 0 to UBOUND(b)
  cvr = b(i)
  postnr = b(i+1)
Next

måske sådan?

<%
dim a()
dim b()
a = split(strText,", ")

For i = 0 to UBound(a)
  b = split(a(i),"-")
  for j = 0 to UBound(b)
    response.write b(j) & "<br>"
  next
Next
%>

Sådan her ?

<%
dim a()
dim b()
dim postnummer()
dim cvr()
a = split(strText,", ")

For i = 0 to UBound(a)
  b = split(a(i),"-")
  for j = 0 to UBound(b)
    if j = 0 then
      cvr(i) = b(j)
    else
      postnummer(i) = b(j)
    end if
  next
Next
for i = 0 to UBound(postnummer)
  response.write cvr(i) & vbtab & postnummer(i) & "<br>"
next
%>

Og hvis du gerne vil have lagt dem i variablene postnummer og cvr, så kan du gøre sådan her. Så bliver de forskellige variable lagt ind i et array med de navne, og så senere udskrevet i en ny for-løkke. Så er du sikker på du har alle variablene i de nye arrays..

virkede det...?

nej, men kom med et svar, så får du point som tak for hjælpen.

den kunne ikke forstå:

    if j = 0 then
      cvr(i) = b(j)
    else
      postnummer(i) = b(j)
    end if

så jeg gjorde det bare på den hårde måde:

a = split(addcvr,", ")

For i = 0 to UBound(a)
  b = split(a(i),"-")
 
  For j = 0 to UBound(b)
    if j = 0 then
      cvr = cvr & b(j) & ","
    else
      postnummer = postnummer & b(j) & ","
    end if
  Next
Next

cvr = Left(cvr,len(cvr)-1)
postnummer = Left(postnummer,len(postnummer)-1)

postnummersplit = split(postnummer,",")
cvrsplit = split(cvr,",")

For i = 0 to UBound(postnummersplit)
  strSQL = "Select * From XX Where CVR = '" & cvrsplit(i) & "' And Postnr = '" & postnummersplit(i) & "'"
  Set RS = Conn.Execute(strSQL)

  strSQL = "Insert Into XX (CVR,Postnr) Values ('" & cvrsplit(i) & "','"&postnummersplit(i)&"')"
  Connmdb.Execute(strSQL) 
Next

håber det gav mening

arh, det var også en mulighed ;-)
Jeg smider et svar..