Cut en tekststreg i mindre stykker

Skal den dele ved præcis 200, eller ved nærmeste mellemrum ?

Dim Resultat()
ReDim Resultat(150)
Length = len(Streng)
Counter = 1
oldcount = 1
Runs = 0

For I = 1 to length
OldCount = length

Do For A = 1 to 200
  If Not Counter > length counter = counter + 1
Next

Resultat(Runs) Mid(Streng,OldCount,Counter)
Runs = Runs + 1
Next

For H = 0 to Runs
Response.Write(Resultat(H))
Next

Sådan!

Hvad hvis der er indtastet linieskift i textarea boksen? Kan man tage højde for det?

Så kan du lave en Replace(Streng,VbCrlf,\"<br>\")

Det udskifter mellemrum med <br>

/Jimmi

den viste funktion, deler den ved 200 eller ved nærmeste?

og hvordan laves sidstnævnte i så fald?

Den deler præcis ved 200, jeg orker ikke lige at programmere en ved 200 eller nærmeste mellemrum funktion, for kun 15 point!

/Jimmi

Problemet med at REPLACE mellemrum med <br> er, at der skal læses fra databasen fra Navision. Så står der <br> inde midt i teksten.

Funktionen skal bare splitte den streng jeg får fra et textarea felt i stykker a 200 stk., og lægge dem ind i en tabel i en database.

jimmidreng: Jeg prøver lige om din funktion fungerer. Jeg skal jo have bygget et eller andet loop til funktionen, så det bliver tilføjet i en tabel databasen...

Er eksperten ikke ved at gå op i bestillingsarbejde?

Er formålet med Eksperten ikke, at man skal stille spørgsmål og få svar, så man selv kan blive bedre...

Sone: Det har du fuldstændigt ret i! Vi bliver jo ikke alle eksperter på én dag, så derfor kan det måske for dig lyde simpelt nok med et hint!