Bestemt parameter i include filen

du kommer ikke til at læse filen igennem på en eller anden måde. Det kan evt laves sådan her så den læser linje for linje om tallet er lig det man søger efter. Hvis hver linje ser ud som du har vist:  1. hej
tal(punktum) tekst

<%
set fso=server.CreateObject("scripting.filesystemobject")
Set file=fso.OpenTextFile(server.MapPath("include.inc"))

find=2

do while not file.atEndOfStream
  arr = Split(file.ReadLine,".")
  if cstr(arr(0))=cstr(find) then
    str = arr(1)
    exit do
  end if
loop
file.Close
Set file=nothing
set fso=nothing

Response.Write str
%>

hmm det bliver vist lidt for omstændigt hvis jeg skal have f.eks. 30 ord fra 30 forskellige linier forskellige steder på min asp side...

Ja men man kan jo dette det ind i en funktion sådan du kun har koden en gang og så kalde funktionen med det linje nummer man ønsker.

Hvor mange linjer er det?
Man kunne man evt. lave et array hvor alle linjerne er i.

ok, kan du lave et eksempel hvis der f.eks. er 117 linier ?

Så kan man lave et array sådan her, den henter teksten fra hver linje ind. Så med denne må der ikke være "huller" i tal reækkefølgen kan der være det?

Koden som laver arrayett:

set fso=server.CreateObject("scripting.filesystemobject")
Set file=fso.OpenTextFile(server.MapPath("include.inc"))
do while not file.atEndOfStream
  arr = Split(file.ReadLine,".")
  if ubound(arr)>0 then tempstr = tempstr & ":::" & arr(1)
loop
file.Close
Set file=nothing
set fso=nothing
StrengTekstArr=Split(tempstr,":::")


Når du vil udskrive en linje skriver man:

Response.Write StrengTekstArr(2)


Tilsidst kan man slette arrayet med:

erase StrengTekstArr

Takker, smid et svar

Ok :)