CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

wolfgang Praktikant

04. april 2005 - 21:00 Der er 23 kommentarer og
1 løsning

Erstat flere end 2 linjeskift (VBCRLF)

Hej med jer,

I forbindelse med et DB udtræk, der er indtastet i et formularfelt, har jeg brug for at kunne "censorer" brugerens input af flere linjeskift.

Pt. har jeg en replace på "VBCRLF" med , således at jeg kan få normale linjeskift.

Men... Hvis brugeren under sin indtastning, har været for kreativ, og lavet f.eks. mere end 2 linjeskift i sin indtastning. Skal det erstattes med ingenting.

Hvordan kan dette gøre.

på forhånd tak.

MVH
Wolfgang

Synes godt om

moejensen Nybegynder

04. april 2005 - 21:08 #1

kan du ikke efter du har lavet den første replace, lave førlgende

Replace(strText, " "," ")

Synes godt om

wolfgang Praktikant

04. april 2005 - 23:05 #2

Hej MoeJensen, Det syntes ikke rigtig at virke.
Hvis det gøres på den måde, skal man umiddelbart vide hvor mange " " der er blev genereret i Replace funktionen.

Nogen andre forslag til en løsning?

Synes godt om

cool_casper Nybegynder

05. april 2005 - 10:33 #3

Jeg tror umiddelbart ikke du har brug for at tælle hvor mange " " du har genereret. Du siger du vil have 2 linieskift erstattet med ingenting. Dette burde kunne gøres sådan her: strText = Replace(strText, " ","")

Du kunne også prøve at køre denne funktion FØR du replacer dine VbCrLf med " ":
strText = Replace(strText, VbCrLf & VbCrLf,"")

Synes godt om

moejensen Nybegynder

05. april 2005 - 10:37 #4

eller hvad med bare at gøre således:

strText = Replace(strText, VbCrLf & VbCrLf," ")

Synes godt om

wolfgang Praktikant

05. april 2005 - 10:39 #5

Pænt goddag til jer begge.

Hvad hvis der er f.eks. er 3 linjeskift. Så vil ingen af Replace funktioner have effekt - eller?

MVH
Wolfgang

Synes godt om

moejensen Nybegynder

05. april 2005 - 10:42 #6

jo så vil de to blive til 1, så der er to ialt efterfølgende.

Synes godt om

wolfgang Praktikant

05. april 2005 - 10:44 #7

OK, det lyder lovende.
Hvordan skal denne rutine kombineres med den eksisterende.
<%= Replace(rsReviewSQL2("Phase2"),VBCRLF," ")%>

MVH
Henrik

Synes godt om

moejensen Nybegynder

05. april 2005 - 11:02 #8

slet denne: <%= Replace(rsReviewSQL2("Phase2"),VBCRLF," ")%>
og skriv <%= Replace(rsReviewSQL2("Phase2"),VbCrLf & VbCrLf," ")%>

Synes godt om

wolfgang Praktikant

05. april 2005 - 11:09 #9

Hej igen,
Hvis jeg benytter din rutine, mister jeg replace funktionen ved et enkelt linjeskift :(

Synes godt om

moejensen Nybegynder

05. april 2005 - 11:14 #10

nåå ja, så skriver du følgende efter

<%= Replace(rsReviewSQL2("Phase2"),VBCRLF," ")%>

Synes godt om

wolfgang Praktikant

05. april 2005 - 11:27 #11

Hej MoeJensen,
Det løser ikke mit problem 100% som ønsket.

Hvis der er flere end 2 vil Replace rutinen heller ikke blive afviklet korrekt.
- Tror desværre ikke denne metode løser mit problem.

Tusind tak for hjælpen

Er der andre forslag til løsning af ovenstående?

MVH
Henrik

Synes godt om

cool_casper Nybegynder

05. april 2005 - 12:15 #12

Prøv dette:
<%
strPhase2 = rsReviewSQL2("Phase2")
strPhase2 = Replace(strPhase2 ,VBCRLF," ")
strPhase2 = Replace(strPhase2 ," ","")
Response.Write strPhase2
%>

Her smider vi din værdi ind i en variabel (strPhase2) derefter kører vi din normale rutine med at replace VbCrlF med " ". Til sidst den udvidede rutine som replacer " " med ingenting.

Hvordan ser det ud?

Synes godt om

l0w Nybegynder

05. april 2005 - 12:16 #13

Prøv eventuelt med RegExp:

Function RegExpTest(patrn, strng, repstr)

Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True

RegExpTest = regEx.Replace(strng, repstr)

End Function

Response.Write RegExpTest("[\r\n]+[\r\n]*", "Hejsa" & vbcrlf & vbcrlf & "Dette er en test" & vbcrlf & "der skifter VBCRLF ud med BR" & vbcrlf & vbcrlf & vbcrlf & "Slut", " ")

Synes godt om

l0w Nybegynder

05. april 2005 - 12:19 #14

Skulle også være nok med [\r\n]+ i pattern. :)

Synes godt om

wolfgang Praktikant

05. april 2005 - 12:57 #15

Hej Cool Casper,
Tusind tak, det ser ud til at virke som ønsket.

->I0w, jeg kan desværre ikke gennemskue dit forslag.

Synes godt om

l0w Nybegynder

05. april 2005 - 13:03 #16

Det skulle være til at teste hvis det er, bare prop det ind i en ASP fil, så skulle den vise resultatet. :)

Synes godt om

wolfgang Praktikant

05. april 2005 - 13:10 #17

Hmm..
Hvordan passer det ind i mit nuværende udtræk:
<%= Replace(rsReviewSQL2("Phase2"),VBCRLF," ")%>

Synes godt om

l0w Nybegynder

05. april 2005 - 13:23 #18

Function RegExpTest(patrn, strng, repstr)

Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True

RegExpTest = regEx.Replace(strng, repstr)

End Function

<%= RegExpTest("[\r\n]+", rsReviewSQL2("Phase2"), " ") %>

Synes godt om

l0w Nybegynder

05. april 2005 - 13:24 #19

Prøver lige igen.
<%
Function RegExpTest(patrn, strng, repstr)

Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True

RegExpTest = regEx.Replace(strng, repstr)

End Function

Response.write RegExpTest("[\r\n]+", rsReviewSQL2("Phase2"), " ")
%>

Synes godt om

wolfgang Praktikant

05. april 2005 - 13:30 #20

Hej igen,

Jeg får denne fejl.
Microsoft VBScript compilation error '800a03ea'
Syntax error
Function
^

Synes godt om

l0w Nybegynder

05. april 2005 - 13:33 #21

Ok Function i function går ikke, prøv i stedet dette:

<%
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[\r\n]+"
regEx.IgnoreCase = True
regEx.Global = True

Response.Write regEx.Replace(rsReviewSQL2("Phase2"), " ")
%>

Synes godt om

wolfgang Praktikant

05. april 2005 - 13:37 #22

Så spiller det.
Hvordan søren får jeg givet dig points for det?

MVH
Henrik

Synes godt om

l0w Nybegynder

05. april 2005 - 13:38 #23

Jeg vil meget hellere have karma :D

Synes godt om

wolfgang Praktikant

05. april 2005 - 13:43 #24

Hvad du ønsker, skal du få :D

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS