Avatar billede dinmor Nybegynder
14. januar 2002 - 12:07 Der er 27 kommentarer og
1 løsning

Server.CreateObject(\"Scripting.FileSystemObject\")

Jeg har en kode der ser sådan her ud og den brokker sig helt vildt meget ligemeget hvad jeg gør...

<%
    set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
    <!-- METADATA TYPE=\"typelib\" FILE=\"C:\\WinNT\\System32\\scrrun.dll\" -->

If Len(Request.Form(\"overskrivknap\")) then
    set objTS = objFSO.OpenTextFile(Server.MapPath(\"minfil.txt\"), ForWriting, True)
    text = Request.Form(\"skrivdette\")   
    objTS.writeline text
    objTS.close()
Response.write \"Dette blev skrevet i filen:<br>\" + text

Elseif Len(Request.Form(\"appendknap\")) then
    set objTS = objFSO.OpenTextFile(Server.MapPath(\"minfil.txt\"), ForAppending, True)
    text = Request.Form(\"skrivdette\")
    objTS.writeline text
    objTS.writeline
    objTS.close()
    Response.write \"Filens indhold er blevet forl&aelig;nget med:<br>\" + text

Elseif Len(Request.Form(\"readknap\")) then
    if not objFSO.FileExists(Server.MapPath(\"minfil.txt\")) then
        Response.write \"<font color=\'red\'>Filen er ikke oprettet! Du kan oprette den ved at skrive til den.</font>\"
    Else
        set objTS = objFSO.OpenTextFile(Server.MapPath(\"minfil.txt\"), ForReading)
        Response.Write \"Dette er indholdet af filen:<br>\"
        Do While not objTS.AtEndOfStream
            Response.write objTS.ReadLine + \"<br>\"
        Loop
        objTS.close()
    end if
End If   
%>¨

Jeg ska bare ku læse og skrive i den fil der hedder minfil.txt.
Hvad er der galt... Jeg har aldrig leget med Server.CreateObject(\"Scripting.FileSystemObject\") før.
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:10 #1
Det hedder ikke: Response.write objTS.ReadLine + \"<br>\" Det er i Javascrit det hedder + du skal skrive & !!
Avatar billede Slettet bruger
14. januar 2002 - 12:11 #2
Er du sikker på at du har skriverettigheder i mappen, hvor filen ligger?
Avatar billede Slettet bruger
14. januar 2002 - 12:12 #3
cool_casper: Du kan godt bruge + i VBS, men det giver ikke altid det ønskede resultat...
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:12 #4
Hvilken fejl får du?!?
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:14 #5
magik >> Det har jeg da aldrig hørt om!!!
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:14 #6
f.eks. hvis jeg bare prøver at læse i filen får jeg denne fejl:

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/show/send.asp, line 24
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:17 #7
Ja jeg har skriverettigheder...
Avatar billede Slettet bruger
14. januar 2002 - 12:18 #8
cool_casper: Prøv det her:

<%
Response.Write 1 + \"1\" & \"<br>\" \'2

Response.Write \"1\" + \"1\" & \"<br>\" \'11

Response.Write 1 & \"1\" & \"<br>\" \'11

Response.Write \"1\" & \"1\" & \"<br>\" \'11
%>
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:18 #9
Og linie 24 er?!?
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:19 #10
linie 24:

set objTS = objFSO.OpenTextFile(Server.MapPath(\"minfil.txt\"), ForReading)
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:21 #11
Og du har lavet en fil der hedder minfil.txt ?!?!
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:22 #12
magik >> Ja, ja, det ved jeg godt... Men står der et tal i variablen text?!?!? Det tror jeg ikke...
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:23 #13
Ja den har jeg oprettet og jeg har også prøvet at skrive noget i den...
Avatar billede Slettet bruger
14. januar 2002 - 12:24 #14
cool_casper: Du kan også gøre det samme med to strenge.

Response.Write \"Hej med \" + \"dig\"
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:24 #15
Du kan da ikke skrive:
text = \"Dette er min tekst!\"
Response.Write \"Nu kommer min tekst!<BR><BR><BR>\" + text

Avatar billede dinmor Nybegynder
14. januar 2002 - 12:25 #16
Hehe... Jeg har fundet ud af det... :o/ Det er ForReading den ik ka finde ud af... Men ska man ik bruge det ?!
Avatar billede fuldstop Nybegynder
14. januar 2002 - 12:25 #17
Kan man bruge ForReading, skal det ikke defineres med numre i asp (VB):

set objTS = objFSO.OpenTextFile(Server.MapPath(\"minfil.txt\"),1,0)
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:27 #18
Hmmm... Nu ka jeg ik få det til at virke igen :o/ Hvor jeg hader ASP en gang i mellem :o(
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:28 #19
Den hedder : fsoForReading !!!
Avatar billede cool_casper Nybegynder
14. januar 2002 - 12:31 #20
Men så skal du huske:

Const fsoForReading = 1
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:31 #21
Cool Casper: Den ka jeg ik få til at virke... :o(
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:34 #22
Den udskriver ik hvad der står i minfil.txt
Avatar billede fuldstop Nybegynder
14. januar 2002 - 12:43 #24
Dinmor>> Kommer den med nogen fejlmelding hvis du bruger dette:
set objTS = objFSO.OpenTextFile(Server.MapPath(\"minfil.txt\"),1,0)
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:48 #25
fuldstop: Nej... Den skriver bare ik noget...
Avatar billede fuldstop Nybegynder
14. januar 2002 - 12:50 #26
set objTS = objFSO.OpenTextFile(Server.MapPath(\"/minfil.txt\"),1,0) 
Avatar billede dinmor Nybegynder
14. januar 2002 - 12:53 #27
Nu ser det ud som om det virker... :o/ Men jeg har ik rigtigt lavet noget :o/
Avatar billede fuldstop Nybegynder
01. februar 2002 - 14:57 #28
Smider lige et svar, i håb om at spårgsmålet lukkes ;0)
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