A capo con len

[Luca1317]

Ho un request "corpo", ora devo fare andare a capo corpo alla quinta lettera ad esempio:

corpo= "supercalifragilisti" deve diventare:
super-
calif-
ragil-
isti

Ho iniziato la cosa:

nLen=5  
ContaCorpo = len(Corpo) 
if ContaCorpo>nLen then CorpoLennato = left(Corpo, nLen)& "-" else CorpoLennato=corpo

ma mi sono incartato

[optime]

guarda questo esempio

sLunga = "esempio di stringa lunga non so quanto: la spezzo ogni 10 con un tag asterisco"
sTaggata = ""
iChars = 10
sTag = "<*>"
For i=1 to Len(sLunga) / CInt(iChars)
   sTaggata = sTaggata & Mid(sLunga, (i-1) * CInt(iChars) + 1, iChars) & sTag
Next
sTaggata = sTaggata & Mid(sLunga, (i-1) * CInt(iChars) + 1, iChars)
response.write sLunga & "
"
response.write sTaggata & "
"

adattalo alle tue esigenze

[Luca1317]

é un po troppo complicato per il mio attuale livello :master:


...ora la studio e cercherò di adattarla...grazie

[willybit]

volendo si può fare anche con una RegularExpression

Set objRE = CreateObject("VBScript.RegExp")
objRE.Pattern=".{5}"
objRE.Global=true
stringa = "esempio di stringa lunga non so quanto: la spezzo ogni 10 con un tag asterisco"
set risultati = objRE.Execute(stringa)
CorpoLennato = ""
for each ris in risultati
	CorpoLennato = CorpoLennato & ris.value & "-
"
next
if CorpoLennato<>"" then CorpoLennato=Left(CorpoLennato,Len(CorpoLennato)-5)

Response.Write CorpoLennato