---

Hej,

Jeg har eurokursen liggende i tekstfilen "eurokurs.txt", som jeg gerne vil
læse ind som variablen "eurokurs". Jeg har prøvet med flg., men det giver
fejl: "Input efter filens slutning":

Const ForReading = 1
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("" & Server.MapPath("eurokurs.txt") & "",
ForReading)
ReadAllTextFile = f.ReadAll
eurokurs = f

Venlig hilsen, Rasmus Nielsen.

---

> Jeg har eurokursen liggende i tekstfilen "eurokurs.txt", som jeg gerne vil
> læse ind som variablen "eurokurs". Jeg har prøvet med flg., men det giver
> fejl: "Input efter filens slutning":
>
> <kode>
>

Følgende skulle virke:

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile(Server.MapPath("eurokurs.txt"), 1, False)
eurokurs = Trim(objFile.ReadLine)
objFile.Close
Set objFS = Nothing


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk

---

> Følgende skulle virke:

Og dog... Det giver nøjagtig samme fejl som før...

Venlig hilsen, Rasmus Nielsen.

---

"Rasmus Nielsen" <rasmusn@rasmusn.dk> skrev i en meddelelse
news:9gg0ou$hjf$1@news.inet.tele.dk...
> > Følgende skulle virke:
>
> Og dog... Det giver nøjagtig samme fejl som før...
>
> Venlig hilsen, Rasmus Nielsen.
>

Det virker fint hos mig. Kunne du ikke prøve at komme med den fejlmeddelse
den skriver?


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk

---

> Det virker fint hos mig. Kunne du ikke prøve at komme med den fejlmeddelse
> den skriver?

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a003e'
Input efter filens slutning

I linje 16, som er: eurokurs = Trim(objFile.ReadLine)

Venlig hilsen, Rasmus Nielsen.

---

"Rasmus Nielsen" <rasmusn@rasmusn.dk> skrev i en meddelelse
news:9gg7ke$dib$1@news.inet.tele.dk...
> > Det virker fint hos mig. Kunne du ikke prøve at komme med den
fejlmeddelse
> > den skriver?
>
> Der opstod en Microsoft VBScript-kørselsfejl fejl '800a003e'
> Input efter filens slutning
>
> I linje 16, som er: eurokurs = Trim(objFile.ReadLine)
>
> Venlig hilsen, Rasmus Nielsen.
>

Jeg tror det skyldes at din fil er tom eller at der ikke står noget i den
første linie.

Prøv lige at tjekke det.

Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk

---

> Jeg tror det skyldes at din fil er tom eller at der ikke står noget i den
> første linie.

Jeg tåbe... Sådan går det når man koder ASP med det ene øje og ser Le Mans
med det andet...

Venlig hilsen, Rasmus Nielsen.