Søg
Avatar billede jens Nybegynder
02. februar 2001 - 16:58 Der er 18 kommentarer og
1 løsning

Problemer med Replace

Hej

Jeg sidder og \"roder\" med noget der ikke vil give sig - måske nogle friske øjne ville gøre noget ved det.

Haves:

En form med noget HTML

Den sendes til en anden for og der møder den det her ( page er den første form ):

mintekst = request(\"page\")

mintekst = replace(mintekst,VbCrLf,\"\")

mintekst = replace(mintekst,chr(34),(chr(34)&chr(34)))

repl_linie = (\">\" & chr(34) & VbCrLf & \"min.linie\" & chr(32)& chr(34))

mintekst = replace(mintekst,\">\", repl_linie)

mintekst = \"min.linie\" & chr(32)& chr(34) & mintekst

mintekst = left(mintekst,len(mintekst))


Jeg skal have lavet min HTML om til følgende:

min.linie \"<BODY>\"
min.linie \"<P>\"
min.linie \"sd</P>\"


Problemet er bare at jeg får det her:

min.linie \"<BODY>\"
min.linie \"<P>\"
min.linie \"sd</P>\"
min.linie \"<P>\"
min.linie \"f</P>\"
min.linie \"<P>\"
min.linie \"asd</P>\"
min.linie \"<P>\"
min.linie \"f</P>\"
min.linie \"<P>\"
min.linie \"asdfddddddddddddddddddddddddddd</P>\"
min.linie \"</BODY>\"
min.linie \"

Altså at der dukker sådan noget her op - min.linie \" - som ikke er lukket.

Har prøvet at lave - mintekst = left(mintekst,len(mintekst)-10) - men det er variabelt hvad der kommer af antal i den uafsluttede, alt afhængig af hvor meget HTML jeg smider ind.

Nogen forslag ?

Hilsen
Jens
Avatar billede strax Nybegynder
02. februar 2001 - 17:03 #1
Det hedder request.form(\"page\") ihvertfald
Avatar billede strax Nybegynder
02. februar 2001 - 17:05 #2
Men det er ikke helt til at forstå hvad du mener. Du skal sende med

action=\"post\"

der der så kommer af værdier er felterne altså en

<input type=text name=felt1> ville give resultat i

request.form(\"felt1\")
Avatar billede eagleeye Praktikant
02. februar 2001 - 17:06 #3
strax>> Det gode ved VB, det virke som man glemmer et en .xxx
Avatar billede strax Nybegynder
02. februar 2001 - 17:11 #4
eagle >>> hæhæ ... det forstod jeg ikke? Det virker selv om man glemmer en hvad for en? Men det betyder vel at det virker som det står skrevet. OK, så forstår jeg ikke helt problemet? Er det alt den ekstratekst der kommer?
Avatar billede strax Nybegynder
02. februar 2001 - 17:14 #5
aaah, nu fatter jeg den ... prøv sådan her:

mintekst = left(mintekst,len(mintekst)-11)


Avatar billede jens Nybegynder
02. februar 2001 - 17:17 #6
ja ja, request.form osv.  - det var ikke det jeg spurgte om, og det virker også uden .Form ;-), og det skal med, og jeg er i gang med at lave osv. osv.

tilbage til problemet...

Det virker, næsten. Der kommer bare lidt ekstra i den sidste linie
min.linie \"<BODY>\"
min.linie \"<P>\"
min.linie \"sd</P>\"
min.linie \"<P>\"
min.linie \"f</P>\"
min.linie \"<P>\"
min.linie \"asd</P>\"
min.linie \"<P>\"
min.linie \"f</P>\"
min.linie \"<P>\"
min.linie \"asdfddddddddddddddddddddddddddd</P>\"
min.linie \"</BODY>\"
min.linie \" <------------- Det er den her linie jeg snakker om

Jens



Avatar billede strax Nybegynder
02. februar 2001 - 17:23 #7
yup, der er svarer nu ... sorry med det andet, forstod først ikke spørgsmålet, kan du bruge det. Problemet er jo at den mødre \">\" ved din body til sidst, her indætter du så et \", ny linie og min.linie \", derfor fik du problemet.
Avatar billede jens Nybegynder
02. februar 2001 - 17:24 #8
strax>> har jeg prøvet, problemet er at der er variabelt hvor mange tegn der er i den sidste linie, nogen gange 4 andre gange 9 - alt afhængig af hvor meget HTML der bliver smidt over ???
Avatar billede strax Nybegynder
02. februar 2001 - 17:28 #9
hmmm, hvad så med en

mintekst = left(mintekst,instr(mintekst,\"</BODY>\")+7)
Avatar billede jens Nybegynder
02. februar 2001 - 17:29 #10
prøver lige
Avatar billede eagleeye Praktikant
02. februar 2001 - 17:33 #11
jens>> Strax har ret... Du indsætter \"min.line\" efter BODY> pga af at \">\".

min.linie = 9
Chr(24) og Chr(32) = 2

Altså ialt -11
Avatar billede jens Nybegynder
02. februar 2001 - 17:35 #12
Tjaaa, nu udskrives der de overskydende tegn.. ;-)
Avatar billede strax Nybegynder
02. februar 2001 - 17:37 #13
Mener du samme problem? Husk at linien skal stå som den sidste ændring lige inden du udskriver.
Avatar billede jens Nybegynder
02. februar 2001 - 17:44 #14
Indsætter:

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form name=\"form1\" method=\"post\" action=\"2.asp\">
  <input type=\"submit\" name=\"Submit\" value=\"Submit\">
  <textarea name=\"a\" cols=\"50\" rows=\"23\"></textarea>
</form>
</body>


Kommer ud i den anden ende:
min.linie \"

Avatar billede strax Nybegynder
02. februar 2001 - 17:48 #15
åååhja, den er nok case sensitiv, prøv

mintekst = left(mintekst,instr(mintekst,\"</BODY>\",1)+7)
Avatar billede jens Nybegynder
02. februar 2001 - 18:06 #16
Nu giver linie 17 den her:

Typerne passer ikke sammen: \'mintekst\'

Linie 17 er:
mintekst = left(mintekst,instr(mintekst,\"</BODY>\",1)+7)
Avatar billede strax Nybegynder
02. februar 2001 - 18:14 #17
mintekst = left(mintekst,instr(1,mintekst,\"</BODY>\",1)+6

så skulle den være der, 1 tallet først er hvor i strengen den starter
Avatar billede strax Nybegynder
02. februar 2001 - 18:15 #18
mintekst = left(1,mintekst,instr(mintekst,\"</BODY>\",1)+7)

sådan her var den vist
Avatar billede jens Nybegynder
02. februar 2001 - 19:14 #19
strax>> Så var den der :-) - tusind tak

Jeg har lige smidt ekstra 40 point på, som tusind tak for din hjælp.

god weekend
Jens
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »