[ASP] .txt opslaan in ASCII folder

[Xolon]

Het probleem is als volgt:

Ik wil bijvoorbeeld het bestandje "test.txt" opslaan. Deze moet opgeslagen worden in de folder: ASCII(116), waar alle .txt bestandjes komen die met een 't' beginnen.

Hoe kan ik nou zorgen dat de code eerst kijkt hoe het bestandje heet, om hem daarna in de juiste folder te gooien? Ik heb al aardig wat asp sites nagezocht ben ik heb nergens een antwoord kunnen vinden. Ik hoop dat hier iemand weet hoe het moet.

alvast bedankt!


Ps. dit is de enige manier van opslaan, zo het veranderen van de folder naam geeft mij alleen maar meer problemen later..

[gorgi_19]

Kijk eens naar de System.IO.File class
Kijk eens naar het FileSystemObject

[ Voor 37% gewijzigd door gorgi_19 op 27-10-2003 16:00 ]

[Xolon]

zou je misschien wat duidelijker kunnen zijn? ik ben niet bepaald een ervaren asp gebruiker...

[Jaspertje]

FF wat vragen ter verduidelijking

- Je gebruikt ASP 3.0?
- Je Map heet ook echt Ascii(116)?
- Je kent het fileSystemObject?
- Je kan een bestand al opslaan

[ Voor 15% gewijzigd door Jaspertje op 27-10-2003 15:57 ]

[Xolon]

[qoute]
- Je gebruikt ASP 3.0?
- Je Map heet ook echt Ascii(116)?
- Je kent het fileSystemObject?
- Je kan een bestand al opslaan
[/qoute]

- ik denk het.. asp is asp toch?
-hangt er vanaf, de map moet variabel zijn in de code omdat deze dus wisselt.
-nope
-ja, daar heb ik de codes van gezien.

tot dus ver heb ik alleen nog maar met asp + xml gewerkt, dit is nogal nieuw voor me. Ik kies waarschijnlijk ook gelijk iets lastig uit, omdat ik dit nodig heb.

[Jaspertje]

Opzich is het wel makkelijk.. Maar voor je meteen heel lastig gaat doen, zou ik eerst eens leren hoe je een bestand op de server moet opslaan (behalve met XML.Save (waarop ook niet trouwens))

Ik zou ook eerst even gaan zoeken op FileSystemObject (4guysfromrolla hebben een goede site daarovoor)

kleine hint: Als je weet hoe je bestand gaat heten/in welke folder ie moet) is de rest relatief simpel hoor

[ Voor 16% gewijzigd door Jaspertje op 27-10-2003 16:56 ]

[ShadowrunR]

Wat is juist je probleem? Weet je niet hoe je je file moet opslaan? (Daar is anders wel héél wat over te vinden op asp-sites!) Of weet je niet hoe je je file in je map moet plaatsen?

Je checkt eerst de eerste letter van je file (test je dus op de string. Je gaat niet eerst je file saven, dan checken, en dan verplaatsen ). Dit kan op de volgende manier: (dacht'k)

Visual Basic:

If LCase(Left(0,1)) = "t" Then
    ...code om je file te saven hier
End If

[Xolon]

het probleem is dat zowel de file als het bestandje dus telkens anders zijn. Het moet namelijk een account creater worden voor een spel. De naam van de speler word de naam van het txt-bestandje.
Deze moet dan opgeslagen worden in: ASCII(..)
(..) bevat de eerste letter van het txt bestandje in ascii..

Hier ligt bij mij dus het probleem, hoe doe ik dit?
hoop dat het nu een beetje duidellijker is

[gorgi_19]

Er is nu vrij veel tips al gegeven hoe je het op moet lossen. Ik ben eigenlijk wel benieuwd naar een stukje code wat je zelf hebt geprobeerd.

[JamesTiberius]

5 sec. google gebruikern leverd op:

http://www.sloppycode.net/fso/

alles wat je je maar kunt wensen over het File System Object (FSO)

veel plezier!

[ Voor 7% gewijzigd door JamesTiberius op 28-10-2003 20:44 ]

[Xolon]

ok ik ben eerst maar is begonnen met het opstellen van wat er in het bestandje moet komen. Dit komt vanuit een dood normaal HTML formuliertje. Het resultaat zou er zo uit moeten zien:

----------------------------------------------------------------
[NAME]

account-name = hieraccountnaam

[PASSWORD]

account-password = hierhetpasswoord

[ACCOUNT-STATUS]

-----------------------------------------------------------------------
Als ik het goed begrijp zou dit met de volgende code geschreven worden:

<%
'create account textfile
Dim StrLogin
Dim StrPassword
Dim StrQuestion
Dim StrAnswer
Dim StrEmail

StrLogin = Request.Form("login")
StrPassword = Request.Form("password")
StrQuestion = Request.Form("question")
StrAnswer = Request.Form("answer")
StrEmail = Request.Form("email")

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.CreateTextFile("myfile.txt",false,false)

textStreamObject.Write("[NAME]")
textStreamObject.Close

textStreamObject.WriteBlankLines("1")
textStreamObject.CLose

textStreamObject.Write("account-name = ("StrLogin")")
textStreamObject.CLose

textStreamObject.WriteBlankLines("1")
textStreamObject.CLose

textStreamObject.Write("[PASSWORD]")
textStreamObject.CLose

textStreamObject.WriteBlankLines("1")
textStreamObject.CLose

textStreamObject.Write("account-password = ("StrPassword")")
textStreamObject.Close

textStreamObject.WriteBlankLines("1")
textStreamObject.CLose

textStreamObject.Write("[ACCOUNT-STATUS]")
textStreamObject.CLose

Ik hoop dat ik de goede richting op ga, daarom heb ik alvast het simpele gepost. Zodat jullie me kunnen waarschuwen als het fout gaat (hoop dat je het niet erg vind dat ik dit al post..).

Xolon

[gorgi_19]

* gorgi_19 denkt dat er gebruik gemaakt kan worden van [code=asp][/code]-tags en dat er heel erg heel veel textStreamObject.Close verwijderd kunnen worden.

Daarnaast is het Server.CreateObject

[ Voor 15% gewijzigd door gorgi_19 op 28-10-2003 22:27 ]

[Jaspertje]

Als je toch bezig bent om dingen op te slaan, is het misschien ook een klein beetje offtopic, en wil ik het niet ingewikkelder maken dan het al is, maar is het geen idee om het niet in een txt op te slaan, maar xml formaat te nemen?

[gorgi_19]

Jaspertje schreef op 28 October 2003 @ 22:30:
Als je toch bezig bent om dingen op te slaan, is het misschien ook een klein beetje offtopic, en wil ik het niet ingewikkelder maken dan het al is, maar is het geen idee om het niet in een txt op te slaan, maar xml formaat te nemen?

Mja, ik denk het eigenlijk niet; hij mist imho nog alle basis..

ASP:

textStreamObject.Write("account-name = ("StrLogin")")

Gaat sowieso niet werken, althans, niet wat hij wil

ASP:

textStreamObject.Write("account-name = " & StrLogin & ")"

Komt denk ik al meerin de richting.

[Xolon]

als het in xml kon was ik allang klaar geweest, das niet zo moeilijk. Het probleem is namelijk dat het spel alleen maar txt bestandjes leest dus het moet wel in txt.

[Flard]

nog een schopje in de goede richting?

Vervang

ASP.NET Visual Basic:

Set textStreamObject = fso.CreateTextFile("myfile.txt",false,false)

dan maar 's door

ASP.NET Visual Basic:

Dim strFileName, strFilePath As String
strFileName = "myfile.txt"
strFilePath = Server.MapPath("\ASCII(" & Asc(Left(strFileName, 1)) & ")\" & strFileName
Set textStreamObject = fso.CreateTextFile(strFileName,false,false)

in strFileName zet je dus de naam van het bestand.

En het bestand komt dan in de map root\ASCII(116)\ op je webserver...

[Xolon]

Ok, ik heb nu deze code, maar nou loopt hij volgens mij vast (het duurt wel erg lang met laden). Kan iemand hier nog een foutje in vinden?
En als het mapje niet bestaat word deze dan automatisch aangemaakt?
(het moest trouwens in het mapje: "AscII.." komen daarom heb ik de 2 haakjes weggehaald.

ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 
'create account textfile
Dim StrLogin
Dim StrPassword
Dim StrQuestion
Dim StrAnswer
Dim StrEmail
Dim StrFileName, StrFilePath

StrLogin = Request.Form("login")
StrPassword = Request.Form("password")
StrQuestion = Request.Form("question")
StrAnswer = Request.Form("answer")
StrEmail = Request.Form("email")
StrFileName = "(" & StrLogin & ").txt"
strFilePath = Server.MapPath("AscII" & Asc(Left(strFileName, 1)) & "" & StrFileName & "")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.CreateTextFile(StrFileName,false,false)

textStreamObject.Write("[NAME]")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-name = & StrLogin & ")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("[PASSWORD]")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-password = & StrPassword & ")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("[ACCOUNT-STATUS]")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-change-password = 2003 10 28")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-valid-time = 0")
textStreamObject.Write("account-valid-date = 2003 10 27")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("[ETC]")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-Email = & StrEmail & ")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-Quiz = & StrQuestion & ")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-Answer = & StrAnswer & ")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("[CHARACTERS]")
textStreamObject.Close

if textStreamObject.Close then
    Response.write("Your account has been created, have fun!")
else
    Response.write("Sorry, your account hasn't been created.")
    Response.Write("Please contact the Admin or try the IRC account creater")
End If  

Set textStreamObject = Nothing
Set fso = Nothing
%>

[ Voor 92% gewijzigd door Xolon op 29-10-2003 00:56 ]

[gorgi_19]

FAQ-Debuggen voor ASP. Deze al gelezen en uitgevoerd?

[Jaspertje]

en kijk eens naar FolderExist(s) en FileExist(s)

En daarna naar CreateFolder..

btw.. zie je zelf niet dat de folder gemaakt wordt of niet??? je draait het script toch gewoon delete de folder (zet er een _ voor) en zie wat er gebeurt.. dat is makkelijk na te bootsen lijkt mij..

[gorgi_19]

@Jaspertje

Ik gok dat hij op regel 19 al finaal vastloopt, omdat Norton loopt te etteren namelijk; vandaar die FAQ-link..

[Xolon]

Ik moest blijkbaar onderandere norton uitzetten ja..dacht dat ik dat niet hoefde omdat ik geen problemen had met asp/xml scripts.

maar nu loop ik dus vast op regel 20:

File already exists
/HBTS/create.asp, line 20

Ik heb in mijn folder gekeken, maar het bestandje bestaat helemaal nog niet. en als ik naar de code kijk word het bestandje in deze regel toch voor het eerst anngemaakt?

Wat zie ik nou telkens over het hoofd? bestaat er geen asp validater ofzo?


EDIT: ik heb er een fso.FileExists tussen gezet om te checken of die iets vindt. Deze vind niks en ik heb nog steeds dezelfde error.

[ Voor 13% gewijzigd door Xolon op 29-10-2003 13:10 . Reden: vergeten erbij te vertellen.. ]

[Xolon]

ok, hij doet het nu.
ik heb het overschrijven op true gezet (mocht het bestandje bestaan dan stop hij er toch wel mee dankzij de "fso.FileExist" command toch? )

Het probleem is nu alleen dat hij het bestandje niet aanmaakt en ook geen folder. De folder zou aangekaamt kunnen worden door een "create folder" in een "if then" te gooien.
Hoe dat met het bestandje zit komt daarna wel weer. Klopt dit zo ongeveer?


Ps. ik hoop dat het niet te vervelend is dat ik telkens mijn voortgang/ obstakels post ..

[Wokkels]

Je doet nu helemaal niets met de StrFilePath zo te zien.

Probeer eens

ASP:

Set textStreamObject = fso.CreateTextFile(StrFilePath,false,false)

in plaats van

ASP:

Set textStreamObject = fso.CreateTextFile(StrFileName,false,false)

Verder mis je nog een paar slashen in de path. Je moet even je code goed controleren en debuggen, zie de links die hiervoor al gegeven zijn.

hint: print te variabele StrFilePath eens naar je scherm en kijk of dat een bestaand pad is. Het bestand kan immers niet worden aangemaakt als hij geen goed pad doorkrijgt

[ Voor 8% gewijzigd door Wokkels op 29-10-2003 13:19 ]

[Xolon]

De code maakt het bestandje nu aan, maar ipv het bestandje in de folder ...\accouts\ te gooien, gooit de script het bestandje in mijn windows\system32 folder!

Hoe kan dat nou weer in hemels naam? hij hoort daar geeneens te komen

create.asp:

ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 
'create account textfile
Dim StrLogin
Dim StrPassword
Dim StrQuestion
Dim StrAnswer
Dim StrEmail
Dim StrFileName, StrFilePath

StrLogin = Request.Querystring("login")
StrPassword = Request.Querystring("password")
StrQuestion = Request.Querystring("question")
StrAnswer = Request.Querystring("answer")
StrEmail = Request.Querystring("email")
StrFileName = StrLogin & ".txt"

Set fso = CreateObject("Scripting.FileSystemObject")

'Check of account al bestaat.
if fso.FileExists(StrFileName) then
    Response.Write("Account already exists, please select another login")
Else

Set folderObject = fso.GetFolder(Server.MapPath("\accounts") & "\")
Set textStreamObject = fso.CreateTextFile(StrFileName,false,false)

textStreamObject.Write("[NAME]")
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-name = " & StrLogin)
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("[PASSWORD]")
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-password = " & StrPassword)
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("[ACCOUNT-STATUS]")
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-change-password = 2003 10 28")
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-valid-time = 0")
textStreamObject.WriteBlankLines("1")
textStreamObject.Write("account-valid-date = 2003 10 27")
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("[ETC]")
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-Email = " & StrEmail)
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-Quiz = " & StrQuestion)
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("account-Answer = " &StrAnswer)
textStreamObject.WriteBlankLines("2")
textStreamObject.Write("[CHARACTERS]")
textStreamObject.Close

Response.write("Your account has been created, have fun!")
End if

Set textStreamObject = Nothing
Set folderObject = Nothing
Set fso = Nothing
%>

[Jaspertje]

Loop je code eens door: (vanuit de regels hierboven)
- regel 25 wat doe je daar?
- regel 26 StrFileName waar gaat dat heen? (ook 21)
Doe eens op regel 21:

code:

response.write StrFileName
response.end

[Xolon]

-StrFileName is het bestandsnaampje: login.txt (deze werkt ook gewoon)

-regel 25 doet niks, ik dacht dat je daarmee de plaats van het bestandje mee kon bepalen maar dat is niet zo (alweer gewist).
-waar het bestandje dus terecht zou moeten komen zonder enige verwijzing is volgens mij de folder waar ook de asp script in staat. Wat dus blijkbaar niet het geval bij mij is.

De rest van de code klopt, heb alleen het juist plaatsen van het bestandje wil niet. Ik probeer nu eerst erachter te komen hoe ik het bestandje in de root van mijn server krijg, voordat ik hem specifieker plaats.

[Jaspertje]

Dus moet je bij fso.CreateTextFile meer aangeven dan alleen de bestandsnaam, maar ook het pad..

[Xolon]

AArgh..ik ben zo dichtbij. Kan je nog eventjes naar dit stukje code kijken? Als het nodig is word er ook al een nieuw mapje aangemaakt, maar ik krijg net die laatste code niet goed (ik weet dat het een kwestie van haakjes enzo is...) maar als je weet wat het is zou je het dan aub willen posten?

thnx.

ASP:

StrAccFolder = "AscII" & Asc(left(StrFileName, 1))

Set fso = CreateObject("Scripting.FileSystemObject")

'Check of account al bestaat.
if fso.FileExists(StrFileName) then
    Response.Write("Account already exists, please select another login")
Else
if fso.FolderExists(Server.MapPath("\accounts") & "\" & StrAccFolder) then
Else
    fso.CreateFolder(Server.MapPath("\accounts") & "\" & StrAccFolder)
end if  

Set textStreamObject = fso.CreateTextFile((Server.MapPath("\accounts") & "\" & StrAccFolder)StrFileName,false,false)

[gorgi_19]

Definieer: "Hij doet het niet goed"

[Xolon]

dus? daar heb ik dus net niks aan....

[gorgi_19]

Xolon schreef op 29 October 2003 @ 21:40:
dus? daar heb ik dus net niks aan....

Als je wilt dat we naar het stukje code kijken, zal je ook minstens aan moeten geven wat het nu dus niet doet en debuginformatie er bij geven.

"Ik krijg de laatste code niet goed"

is nogal vaag waar ik iig niets mee kan.

Verder is je intending vrij verwarrend te noemen; neem dat if statement. Die mag, als je goed kijkt, wel een extra inspringing hebben.

[ Voor 39% gewijzigd door gorgi_19 op 29-10-2003 21:42 ]

[Xolon]

soz..is ook zo. beetje gestresed nu ik zo dichtbij zit.

Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/accounts/create.asp, line 30, column 92
Set textStreamObject = fso.CreateTextFile((Server.MapPath("\accounts") & "\" & StrAccFolder)StrFileName,false,false)
-------------------------------------------------------------------------------------------^

[gorgi_19]

Je gebruikt drie maal een (, en twee maal een ).

StrAccFolder)StrFileName

^^ die constructie klopt sowieso niet; wat wil je hier bereiken?

[ Voor 57% gewijzigd door gorgi_19 op 29-10-2003 21:46 . Reden: Back to elementary school.. |:( ]

[Xolon]

ow? ik zie er van beide elk 3... o.0

Edit:
Daar zit de knoop ook nog...daar kom ik niet uit, want hij blijft de StrAccFolder koppelen aan StrFileName. Daar zit ik nu dus ook vast..

Edit2: ok laatmaar, ik heb hem nu in 1x....volgens had ik dit net ook al geprobeerd maar hij werkt tenminste

in ieder geval bedankt met alle hulp!!

[ Voor 99% gewijzigd door Xolon op 29-10-2003 21:50 ]

[Jaspertje]

Dus hij werkt nu?

[Xolon]

yup,

StrAccFolder)"\" & StrFileName,false,false)

dat was hem