Checke om der er 3 tegn i textfil...

Hvis du vil læse hele filen ind så skal du bruge readAll. REadLine læser kun en linie dvs indtil den møder en vbCrLf.

str = f.readAll
If len(str) > 3 then

problemet er bare at hvis txt filen er tom giver det:
Microsoft VBScript runtime error '800a003e'

Input past end of file

/admin/update/Update_text.asp, line 19

Så prøv dette:

if not f.AtEndOfStream then
  str = f.readAll
end if
If len(str) > 3 then

If not f.AtEndOfStream Then
    str = f.readAll
        If len(str) > 3 then
        Tegn = f.read(3)
            If Tegn = "" Then
            f.Skip(10)
            ElseIf Tegn = "&ru" Then
            f.Skip(7)
            End if
        End if
    End if
Her kommer stadig fejlen (Past end of file...)Burde det ikke fungere (Det skal lige siges at jeg har tømmermænd, så det kan nemt være en dumme fejl)

denne linie:

str = f.readAll

Flytter file til EndOFStream

Så fejlen kommer her i denne linie: Tegn = f.read(3)


Så du skal enten lukke og åben filen efter readAll, eller lave denne linie:
Tegn = f.read(3)

Om til:

Tegn = Mid(str,1,3)

ok...det virker når jeg åbner og lukker et par gange :) Tak