[asp] Newline weghalen uit form

Pagina: 1
Acties:

  • Darius
  • Registratie: Juli 2001
  • Laatst online: 15-09 16:02
Ik heb een form die ik met asp wil verwerken. Ik wil graag alle newlines weghalen en die vervangen met spaties. Ik heb al de volgende dingen geprobeerd :
code:
1
if Mid(string,i,i)=chr[13] en Mid(string,i,i)=vbCRLF

Maar die werken alle twee niet. Weet iemand hier een oplossing voor?

  • Basszje
  • Registratie: Augustus 2000
  • Laatst online: 15-09 11:04

Basszje

Reisvaap!]

Probeer dit eens :
code:
1
replace (stringvar,vbcrlf," ")

Beware of listening to the imposter; you are undone if you once forget that the fruits of the earth belong to us all, and the earth itself to nobody.


  • Darius
  • Registratie: Juli 2001
  • Laatst online: 15-09 16:02
Op vrijdag 01 februari 2002 14:37 schreef Basszje het volgende:
Probeer dit eens :
code:
1
replace (stringvar,vbcrlf," ")
Nope. Dat werkt niet. In een form herkent ASP volgens mij geen newlines als vbcrlf.

  • MrTinux
  • Registratie: December 2000
  • Laatst online: 21:57

MrTinux

Terug van nooit weggeweest.

Op vrijdag 01 februari 2002 14:37 schreef Basszje het volgende:
code:
1
replace (stringvar,vbcrlf," ")
vervang vbcrlf eens door chr(13)
dus:
code:
1
replace (stringvar,chr(13)," ")

"Hij doet 't niet" = onvolledige informatie


  • Darius
  • Registratie: Juli 2001
  • Laatst online: 15-09 16:02
Heb ik ook al geprobeerd. Dat werkt bij mij ook niet.

  • brammetje
  • Registratie: Oktober 2000
  • Laatst online: 12-01-2025
chr(10)chr(13) dan?

(\r\n)

  • Slecht
  • Registratie: Februari 2001
  • Laatst online: 25-06-2024
code:
1
2
3
4
5
6
7
8
Function CleanCode(stringetje)
    stringetje = replace(stringetje,chr(13),"<br>")
CleanCode = stringetje
end function

en dan:

CleanCode(rs("Bericht"))

(dan kan je de <br> vervangen door   )

toch?

  • Darius
  • Registratie: Juli 2001
  • Laatst online: 15-09 16:02
Nope, dat werkt niet. Omdat ik ook voor andere tekens moet checken maarmee ik andere dingen doe, lees ik de form letter voor letter in, zoals volgt :
code:
1
2
3
4
5
6
For i = 1 to Len(args_tech)                      
        temp=Mid(args_tech, i, 1)                        
        If( (temp=chr(10) Or temp=chr(13))  And toggle=false) Then                       temptech=temptech+"&nbsp;"                          Else                            
            techtemp=techtemp+temp                       
        End If                   
    Next

Maar dit doet het bij mij niet. Weet iemand hier raad mee?

  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 19:11

Crazy D

I think we should take a look.

vbCrLf zijn 2 tekens. Je hoeft dus in principe alleen te checken op vbCr (Chr(13)) en dan het huidige + het volgende teken pakken (indien het natuurlijk een vbCr is).

Zet eens debug msg's neer, met de ascii waarde van je te controleren karakter. Aangezien je zelf de test-invoer invoert, weet je wanneer de Cr herkent moet worden, en kijk eens naar de ascii op dat moment.

Exact expert nodig?

Pagina: 1