Avatar billede eyes Nybegynder
02. juni 2004 - 12:30 Der er 12 kommentarer og
1 løsning

finde ord i text string

Hej eksperten jeg har fundet et script på html.dk hvor man kan hive informationer fra en textfil

Mit problem er nu at jeg gerne vil have en <span class="red"> </span> rund om tekster hvor red indgår.

hvad hedder denne kommando i asp hvor man tjekker for om ord indgår i streng

den skal tjekke op på f.ReadLine for ordet

efter dette kan det løses med if sætninger med flere farver.



En anden ting jeg gerne også vil vide er om man kan hente filen fra en mappe uden for inetpub.

eks. hvis jeg har en fil på e:\test\log.txt kan man det?


Her er koden fra html.dk



<html>
<title>Læse fra tekstfiler</title>
<head>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/log.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  If

  Response.write f.ReadLine & "<br>"
Loop

f.Close
%>
</body>
</html>
Avatar billede fennec Nybegynder
02. juni 2004 - 12:36 #1
if instr(f.ReadLine,"red") then
  Response.write "<span class=""red"">"& f.ReadLine & "</span><br>"
else
  Response.write f.ReadLine & "<br>"
end if
Avatar billede ldanielsen Nybegynder
02. juni 2004 - 12:37 #2
InStr(start, string, string2, [compare])

Den funktion returnerer placeringen af en tekststreng i en anden:

strTest = "her er en sætning hvor ordet RED indgår"

Response.Write(InStr(1, strTest, "red")
Avatar billede ldanielsen Nybegynder
02. juni 2004 - 12:39 #3
fennec > du mangler lige at angive start, ellers kommer der en fejl

if instr(1, f.ReadLine, "red") then
...
Avatar billede fennec Nybegynder
02. juni 2004 - 12:43 #4
ldanielsen >>
start er valgfrit. Jeg har aldrig haft den med, og det virker fint.
Avatar billede fennec Nybegynder
02. juni 2004 - 12:45 #5
Avatar billede ldanielsen Nybegynder
02. juni 2004 - 12:53 #6
Jamen det er da rigtigt, det må være en anden funkton jeg tænker på

Men den skal nu med alligevel, for compare skal sættes til 1 ellers er den case-sensitive:

strTest = "her er en sætning hvor ordet RED indgår"
Response.Write(InStr(1, strTest, "red", 1))

Returnerer 30
Avatar billede eyes Nybegynder
02. juni 2004 - 14:33 #7
Det virker med lidt modifikationer så derfor deler i points

her er koden

<html>
<title>Læse fra tekstfiler</title>
<head>
<style>

.red {color:red}

</style>
</head>
<body>
<%
Dim fso, f, filespec, strTest
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/log.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream

strTest = f.ReadLine

if instr(1, strTest,"red") then
  Response.write "<span class=""red"">"& strTest & "</span><br>"
else
  Response.write strTest & "<br>"
end if

Loop

f.Close
%>
</body>
</html>
Avatar billede eyes Nybegynder
02. juni 2004 - 14:33 #8
smid svar begge 2
Avatar billede ldanielsen Nybegynder
02. juni 2004 - 14:37 #9
ok :o)
Avatar billede ldanielsen Nybegynder
02. juni 2004 - 14:39 #10
Du er klar over at "Red" og "RED" vil blive ignoreret?
se mit sidste indlæg ...
Avatar billede fennec Nybegynder
02. juni 2004 - 14:39 #11
Fint med mig.... 150 point er også lidt for meget for det ?.
Avatar billede eyes Nybegynder
03. juni 2004 - 14:53 #12
Fennec du må lige giver 75 til ida da det andet fordeling ikke virker
Avatar billede fennec Nybegynder
03. juni 2004 - 14:57 #13
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
Kurser inden for grundlæggende programmering

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

Seneste spørgsmål Seneste aktivitet
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging