Avatar billede secher35 Nybegynder
28. juli 2009 - 10:27 Der er 8 kommentarer og
1 løsning

FSO Read from file

Hej
Jeg er stadig ret ny til FSO og har forsøgt i et par dage at få det her til at virke, det plejer at virke på denne måde.
Jeg skal ned i en txt fil og dele den op i arrays, men først vil jeg lige have den til at printe det hele ud til mig med dette script:

Dim fso, f, filespec
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/ninki2/opgaver/1022.txt")
Set f = fso.OpenTextFile(filespec,1)

    Response.Write "" & f.ReadAll & ""
 

f.Close

her ligger den fil den læser fra:
www.secher.me.uk/ninki2/opgaver/1022.txt

og her ligger scriptet:
www.secher.me.uk/ninki2/jobkort.asp

som i kan se på sidst nævnte adresse så skriver den kun det første nummer i filen.

Er her nogen der kan hjælpe så vil i bare redde min dag.. :)
Avatar billede fennec Nybegynder
28. juli 2009 - 10:37 #1
Ja det burde ellers virke. Prøv med readline i stedet:

Set MyFile = fso.OpenTextFile(FileName, ForReading)

' Read from the file and display the results.
Do While MyFile.AtEndOfStream <> True
    TextLine = MyFile.ReadLine
    Document.Write TextLine & "<br />"
Loop
Avatar billede keysersoze Guru
28. juli 2009 - 10:37 #2
Avatar billede secher35 Nybegynder
28. juli 2009 - 10:52 #3
Fennec:  Den vil ikke godtage "Document.Wirte" men når jeg ændre til dig script og ellers laver Document om til Response, laver den samme fejl.

keysersoze: jeg har ændres mit script til:
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'Definering af hvilken fil vi vil skrive i
Set FILE = FSO.OpenTextFile("../ninki2/opgaver/1022.txt", 1)
'Udskriv alt indhold fra filen
Response.Write FILE.ReadAll
FILE.Close
Set FILE = Nothing
Set FSO = Nothing

som vist i dit link. Den kommer stadig med samme fejl.. :/
Avatar billede fennec Nybegynder
28. juli 2009 - 11:09 #4
Ahhh. Filen er gemt i unicode og ikke ascii. Du skal derfor åbne den i unicode (default er ascii):

false betyder at den ikke skal oprette filen hvis den ikke eksistere og -1 betyder unicode:

Set f = fso.OpenTextFile(filespec,1,false,-1)
Avatar billede fennec Nybegynder
28. juli 2009 - 11:09 #5
Avatar billede secher35 Nybegynder
28. juli 2009 - 11:11 #6
åhh det var da fantastisk.. tusind tak.. :) hehe smid et svar
Avatar billede softspot Forsker
28. juli 2009 - 11:14 #7
Prøv lige at dette:

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'Definering af hvilken fil vi vil skrive i
Set FILE = FSO.OpenTextFile("../ninki2/opgaver/1022.txt", 1)
'Udskriv alt indhold fra filen
altdethele = FILE.ReadAll
FILE.Close
Set FILE = Nothing
Set FSO = Nothing

response.write altdethele


Jeg har lige på fornemmelsen at det har noget at gøre med, at filen ikke er lukket og hele indholdet dermed ikke læst, idet du udskriver det... (lidt søgt, men man kan aldrig vide med ;D)
Avatar billede softspot Forsker
28. juli 2009 - 11:15 #8
Hold da op! Det gik hurtigt med at få flere indlæg på denne tråd! :D
Avatar billede fennec Nybegynder
28. juli 2009 - 11:20 #9
.o) <-- One Eyed Cack
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester