Textarea - linje opdeling

Hvad med at bruge Split() til at splitte linierne ad? (Jeg er ikke så erfaren med asp, men det er da hvad jeg ville gøre ;))

HAr følgende indtil videre:

tekst = request.form("information")
tekst = Replace(tekst,vbCrLf,"<br>")

hvilket, når man udskriver det, fint deler det op i linjer. Men hvodden looper jeg igennem de X antal linjer og får lavet X antal SQL INSERTS?

Nedenstående skal vel bruges for at dele dataen op:
arrM = Split(tekst," ")

arrM = Split(request.form("information"),"vbCrLf")

tekst = split(request.form("information"), vbCrLf)
for i=0 to UBound(tekst)
  insertIntoDatabase tekst(i)
next

(Du har så en funktion, der hedder insertIntoDatabase() der indsætter rækken  i databasen)

Skal dataene deles op også, laver du blot samme nummer for dataene...

/Daniel

daniel, den fik jeg ikke liiiige fat i?

Når jeg prøver at køre din kode, så får jeg en side kan ikke findes fejl. :(

tekst = split(request.form("information"), vbCrLf)
for i=0 to UBound(tekst)

SQL = "INSERT INTO stat(Goals, Shots, Passing) Values(" & tekst(4) &"," & tekst(5) & "," & tekst(6) & ")"
Conn.Execute (SQL)
next

Ny fejl - tror simpelthen jeg har misforstået ovenstående kode :(  Hvis du gider og har tid til at skære det lidt mere ud i pap for mig?

sætter lige lidt flere points på højkant :)

Mon det er dette her, du er ude efter:

rows = split(request.form("information"), vbCrLf)
for i=0 to UBound(rows)
  cols = split(rows(i))
  SQL = "INSERT INTO stat(Goals, Shots, Passing) Values(" & cols(0) & "," & cols(1) & "," & cols(2) & ");"
  Conn.Execute (SQL)
next


Ud fra følgende indtastning...

0 2 55 4 21
4 5 77 4 43

...bliver der oprettet to rækker i databasen. Værdierne Goals, Shots og Passing bliver sat til henholdsvis 0, 2 og 55 for første række og 4, 5, 77 for anden række (de sidste to tal i indtastningen bliver ikke brugt).

Var det sådan du ville have det?

Ups: 'cols = split(rows(i))' skal ændres til 'cols = split(rows(i), " ")'

præcist! :)  Det virker bare 100% nu, lader det til. Fornemt - taak :)

ups...daniel er du stadig med på en læser her?

hvis talrækken f.eks. så således ud:

0 2 55 4 21
4 5 100% 77 4 43
7 4 14 67 56% 3

kan jeg så (i den ovenstående kode) sortere/slette de tal hvor der er et %-tegn i?

Jeg forstår ikke spørgsmålet. Hvordan vil du sortere efter dem?

Du kan godt slette dem (fra cols array'et), men det er lidt klodset. Hvad er formålet (måske kan det gøres på en anden måde...)

Meningen er, at jeg paster alle disse talrækker ind i TEXTAREA fra et andet program. Og indimellem er der nogen procenttal inkluderet, men disse kan jeg ikke bruge til noget.

Dvs. når der sniger sig et element ind i rækken der indeholder et %-tegn, så skal elementet slettes.

rows = split(request.form("information"), vbCrLf)
for i=0 to UBound(rows)
  cols = split(rows(i))
  cols = removeBad(cols) 'Fjerner alle tal der indeholder et % tegn
  SQL = "INSERT INTO stat(Goals, Shots, Passing) Values(" & cols(0) & "," & cols(1) & "," & cols(2) & ");"
  Conn.Execute (SQL)
next

Function removeBad(orig)
  Dim clean(), cnt, i, j
   
  ' Tæl elementer uden et % tegn
  for i=0 to UBound(orig)
    Response.Write orig(i) & "<br>"
      If InStr(1, orig(i), "%") <= 0 Then cnt = cnt + 1
  Next

  ' Lav et array til elementerne uden % tegnet
  ' og kopiér elementerne over i det nye array
  redim clean(cnt)
  j=0
  for i=0 to UBound(orig)
    If InStr(1, orig(i), "%") <= 0 Then
      clean(j) = orig(i)
      j = j + 1
    End If
  Next

  ' Returnér array'et
  removeBad = clean

End Function

Helt perfekt - du er jo en haj :)  Takker!