new line in VBScript
9 отговора
290 прегледа
new line in VBScript
kak wyw VBScript (asp) da prihwana dali ima znak za now red wyw string? kwa e ideqta: imam edno pole tip TEXTAREA i w nego se paste-wa spisyk ot dumi, wsqka na now red; nqkoi ot dumite sa izrazi za twa razdelitelq si ostawa nowiq red; i ne moga da go zamenqm (nowiq red) sys zapetai, to4ki i.n.
nqkoj move li da pomogne?
юбря, чубанииииииии !
nqkoj move li da pomogne?
юбря, чубанииииииии !
Re: new line in VBScript
tova e kombinaciata ot simvoli s kodove 10 i 13 -
chr(10) chr(13) ili po-prosto vuv vbscript konstantata "vbcrlf"
imash sushto vbcr i vblf za dvata simvola po otdelno. analog na php, js \r\n
nachi primerno replacevash vbcrlf sus "
" & vbcrlf - eto ti nl2br :)
chr(10) chr(13) ili po-prosto vuv vbscript konstantata "vbcrlf"
imash sushto vbcr i vblf za dvata simvola po otdelno. analog na php, js \r\n
nachi primerno replacevash vbcrlf sus "
" & vbcrlf - eto ti nl2br :)
Re: new line in VBScript
Тарикатско решение е да се ползва следния код:
Dim Lines,I
Lines=Split (Request.Form ("lines"),VbCrLf,-1,1)
' отук е лесно да се обходят линиите поотделно
For i=0 To UBound (Lines)
Response.Write Lines (i) & "
"
Next
чети и дишай по-леко
Dim Lines,I
Lines=Split (Request.Form ("lines"),VbCrLf,-1,1)
' отук е лесно да се обходят линиите поотделно
For i=0 To UBound (Lines)
Response.Write Lines (i) & "
"
Next
чети и дишай по-леко
Re: new line in VBScript
werno e tarikatsko, 10x swyrshi mi rabota.
юбря, чубанииииииии !
юбря, чубанииииииии !
oshte ne sme svarshili s temata :))
mmmmm neshto ne shvanah
kade se pishe tvoq kod?
priznavam si che za pravpat vijdam nqkoy neshta v nego i qvno za tova ne znam kade bi trqbvalo da se postavi
kade se pishe tvoq kod?
priznavam si che za pravpat vijdam nqkoy neshta v nego i qvno za tova ne znam kade bi trqbvalo da se postavi
Редактирано от Saykor на
Re: oshte ne sme svarshili s temata :))
Кода е просто илюстрация на функцията Split - тя нацепва един низ на филии според зададен разделител и ръга филиите в масив, готови за обработка.
чети и дишай по-леко
чети и дишай по-леко
Re: rezultat
namerih kakvoto mi trqbvashe
poglednah v edin asp za forum kak stava tam.
Dim varBody
varBody = Request.Form("moreinfo")
varbody = Replace(Server.HTMLEncode(varBody), chr(13), "<BR>", 1)
i po-nadolu kadeto se zapisva veche
oRS("moreinfo") = varBody
blagodarq na pechenia che mi otgovori
poglednah v edin asp za forum kak stava tam.
Dim varBody
varBody = Request.Form("moreinfo")
varbody = Replace(Server.HTMLEncode(varBody), chr(13), "<BR>", 1)
i po-nadolu kadeto se zapisva veche
oRS("moreinfo") = varBody
blagodarq na pechenia che mi otgovori
Редактирано от Saykor на
Re: rezultat
В темата ставаше въпрос как въведени няколко реда в TEXTAREA да се вземат като отделни низове от един Request.Form, та да се обработват после един по един. Това дето си го писал обръща ASC разделителите в HTML. Такова нещо, плюс обръщането на интервалите до
Подобно нещо правих и аз в [линк], ама ме домързя и останах само с интервалите и новия ред...
чети и дишай по-леко
и т.н се прави за да се имитира WYSIWYW, демек както си е писал потребителя в ASC /textarea/ тъй да му излиза после в HTML.
Подобно нещо правих и аз в [линк], ама ме домързя и останах само с интервалите и новия ред...
чети и дишай по-леко