Hvad står der inden?

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = "d:\sti\fil.txt"
Set f = fso.OpenTextFile(filespec, 1)

Do While not f.AtEndOfStream
  Linie = f.ReadLine
  For i = 1 To Len(Linie)
      If Mid(Linie, i, 1) <> "=" And Var2 = "" Then
        Var1 = Var1 & Mid(Linie, i, 1)
      Else
        Var2 = Var2 & Mid(Linie, i, 1)
      End If
  Next
Loop

Response.Write Var1 & "<br>"
Response.Write Var2

f.Close

jeg skulle gerne lige ha = med i var1...men ellers er den der...

Denne finde føste = med instr, den gemmer det føste i variablen gemDette :

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("d:\sti\fil.txt", 1)
strAlt = file.readall

index = instr(strAlt,"=")
if index > 0 then
  gemDette = Left(strAlt,index)
end if

'Udskriv resten
Response.write Mid(strAlt,index+1)

file.Close
Set strAlt = nothing
Set file = Nothing
Set fso = Nothing
%

readall? Den kendte jeg ikke.
Nå, men så er det da en langt mindre krævende at gøre det på.

svare du eagle? Så kommer i til at dele :)

Ok :)