Søg
Avatar billede bajerfar Nybegynder
22. september 2005 - 14:23 Der er 4 kommentarer og
1 løsning

Fjerne linieskift

Problemer med at fjerne uønskede linjiekift.
Jeg henter en tekst fra en includefil med følgende kode:

Set fs=Server.CreateObject("Scripting.FileSystemObject")
filSti = "../" & recAb.Fields.Item("newsPath").Value
Set f=fs.OpenTextFile(Server.MapPath(filSti), 1)
Response.Write (f.Read(200)) & " ..."

Inc.-filerne indholde en masse linjeskift, som jeg ikke ønsker at medtage, når de 200 første bogstaver i nyheden skal pre-view'es på forsiden. Hvordan hulen fletter jeg det ind i denne kode?!
Avatar billede thesurfer Nybegynder
22. september 2005 - 15:32 #1
Erstat ny-linie med mellemrum:

Prøv med:

Response.Write (Replace(f.Read(200), vbCrLf, " ") & " ..."

Eller

dim tekst
tekst = f.Read(200)
tekst = replace(tekst, vbCrLf, " ")
response.write tekst & " ..."

/theSurfer
Avatar billede thesurfer Nybegynder
22. september 2005 - 15:33 #2
rettelse (der var en parentes for meget):

Response.Write Replace(f.Read(200), vbCrLf, " ") & " ..."

/theSurfer
Avatar billede thesurfer Nybegynder
22. september 2005 - 15:45 #3
Husk at destruere fs og f:

dim tekst
Set fs=Server.CreateObject("Scripting.FileSystemObject")
filSti = "../" & recAb.Fields.Item("newsPath").Value
Set f=fs.OpenTextFile(Server.MapPath(filSti), 1)
tekst = f.Read(200)
set f = nothing
set fs = nothing

response.write Replace(tekst, vbCrLf, " ") & " ..."

Man bør altid:
1) indsætte Option Explicit i toppen (første linie i dokumentet)
2) dimme/erklære variablerne (dim variabelnavn)

På den måde, kan man nemt fange stavefejl!

/theSurfer
Avatar billede bajerfar Nybegynder
22. september 2005 - 17:51 #4
Cool! Det virker perfekt. Er ikke for god til at deklarerer variablerne, men det skal jeg sgu blive bedre til!

Tak hjælpen .. og de gode råd.
Avatar billede thesurfer Nybegynder
22. september 2005 - 17:54 #5
Det var så lidt :-)
Takker for points.

/theSurfer
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
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
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
14/0713:08 overføre internet til gæstehus Af Malm i Andet hardware
13/0719:53 Hotspot problemer på Samsung mobil med 2 SIM kort Af Gamba i Mobilnetværk
11/0722:40 Nye toldregler = nye svindelmuligheder Af nu_igen i Andet software
09/0715:37 Et wifi net til en kolonihave uden wifi Af Andershoegh i Andet hardware
09/0714:29 IIS Kan ikke Redirecte til anden side Af bsn i Webservere
White papers
Flere white papers »