04. april 2004 - 17:40Der er
2 kommentarer og 1 løsning
find ord og udskriv det der er tilbage..
Hej Eksperten
Jeg sidder her og skal søge i en tekst fil gennem asp - min txt fil ser sådan ud.. :
her stå noget her stå noget her stå noget vigtig #Tekst jeg skal bruge1 her stå noget her stå noget her stå noget vigtig #Tekst jeg skal bruge2 her stå noget her stå noget vigtig #Tekst jeg skal bruge3
Mit script skal så søge i filen efter "Vigtig #" og udskrive det der stå bagefter i en variabel.. - sådan så når scriptet er kørt har det lavet 3 variabler..
variabel1 = Tekst jeg skal bruge1 variabel2 = Tekst jeg skal bruge2 variabel3 = Tekst jeg skal bruge3
Håber nogle kan hjælpe, jeg bruge dette til at læse filen med:
<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("fil.txt") Set f = fso.OpenTextFile(filespec,1)
Bruger dette - men den vil ikke udskrive noget.. - men kommer heller ikke med fejl..
<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("fil2.txt") Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
if Left(f.ReadLine , 8) = "Vigtigt #" then counter = counter + 1 Execute "str_" & counter & " = """ & mid(f.ReadLine,9) & """" end if
<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("test.txt") Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
line = f.readline
if Left(line , 8) = "vigtig #" then counter = counter + 1 Execute "str_" & counter & " = """ & mid(line,9) & """" end if
Loop
f.Close
response.write (str_2) %>
Synes godt om
Ny brugerNybegynder
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.
