Jeg kan komme med en fuld løsning, sidder bare og stener over hvordan jeg opretter en tekstfil, skal filen overskrives når brugeren logger ind igen eller hvad? eller skal der tilføjes? til det som allerede er i filen?
lytter med... Men hvorfor ikke gemme den i fil pr. bruger kig her: <% Set fso = CreateObject(\"Scripting.FileSystemObject\") filespec = Server.MapPath(\"mappe/brugernavn.txt\") Set F = fso.OpenTextFile(Filespec,2)
Kan lave en kommasepareret fil på den her måde, men stadig ikke hvor den automatisk opretter filen!
Set fso = CreateObject(\"Scripting.FileSystemObject\") filespec = Server.MapPath(\"concorde/\"&Session(\"Kundenr\")&\".kom\") Set F = fso.OpenTextFile(Filespec,2)
OK: Den skulle meget gerne virke med din form på siden http://www.scanbox.dk/revisor. Det er ikke lavet tjek på noget anden end den ikke skriver linien til filen hvis man ikke har indtastet noget. Jeg har gennemløst de forskellige kommetare og kommet til følgende:
1. Session(\"Kundenr\") 2. Der er plads til at lave 6 posteringer/rækker. 3. Der skal bare dannes en ny komma-fil! Der skal ikke overskrives....så fil-systemet for den samme kunde bliver: kundenr.kom kundenr(1).kom kundenr(2).kom 4. Ingen tomme linier, men tomme felter er okay!
FILEN save1.asp ....:
<% \'KONSTANTER filEfternavn = \".kom\" %> <html> <head> <title>Skriver filen</title> </head> <body> <% \'Find a filename Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\") fileName = Session(\"Kundenr\") & filEfternavn i = 1 do while objFSO.FileExists(Server.MapPath(fileName)) fileName = Session(\"Kundenr\") & \"(\" & i & \")\" & filEfternavn i = i + 1 loop Set objTextStream = objFSO.CreateTextFile(Server.MapPath(\"\" & fileName))
if outStr <> \",,,,,0,0,0,0\" then objTextStream.WriteLine outStr Response.Write \"Linie \"&i& \" skrevet til filen : \" & outStr & \"<br>\" end if next
objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing %>
Der er plads til 6 posteringer i formularen (rækker med input felter) = 6 rækker i tabellen = 6 linier i kommafilen
Men der skal tages højde for at alle 6 rækker med posteringer ikke er udfyldt....kunden har måske kun 4 posteringer den ene dag, men 6 posteringer den anden dag!
Jeg har \"lånt\" dine 6 rækker fra formularfilen. Og de hedder dato1, dato2, dato3 ovs. Den her hendter dato(i) outStr = Request.Form(\"dato\" & i) Så der skal ikke laves om i formularfilen.
Der laves en fil med op til 6 linier. Hvis der ikke er tastet noget ind så gemmes der ikke en tom linie. Hvis man kun indtaster i de 4 rækker komme der kun 4 linier i filen.
eks på filen: 10-10-01,23,E,234,Spise ude,0,200,0,0 10-10-01,24,F,235,El regning,0,0,0,2300
Hvordan havde du tænkt kommetal skulle indtastes? eksvis 22,5
Den danner rigtigt nok en fil med det rigtige navn, men indholdet af filen ser forkert ud....den tager kun det sidste felt med i linien af input felter.
Resultatet i filen ser således ud:
2000 0 0 0 0 0
Jeg vil gerne hvis den slet ikke skriver noget hvis felterne er tomme, samt at den tager alle informationerne med! ;0)
\'Danner kommafilen ud fra kundenr filEfternavn = \".kom\"
\'Find et filnavn Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\") fileName = Session(\"Kundenr\")&filEfternavn
i = 1
do while objFSO.FileExists(Server.MapPath(fileName)) fileName = Session(\"Kundenr\")&\"(\"&i&\")\"&filEfternavn i = i + 1 loop Set objTextStream = objFSO.CreateTextFile(Server.MapPath(\"\"&fileName))
\'Skriver til text-filen linie for linie for i = 1 to 6 outStr = Request.Form(\"dato\"&i)&\",\" outStr = Request.Form(\"bilag\"&i)&\",\" outStr = Request.Form(\"t\"&i)&\",\" outStr = Request.Form(\"konto\"&i)&\",\" outStr = Request.Form(\"tekst\"&i)&\",\" outStr = Request.Form(\"kasse_ind\"&i)&\",\" outStr = Request.Form(\"kasse_ud\"&i)&\",\" outStr = Request.Form(\"bank_ind\"&i)&\",\" outStr = Request.Form(\"bank_ud\"&i)
If outStr <> \",,,,,0,0,0,0\" Then objTextStream.WriteLine outStr End if next
objTextStream.Close Set objTextStream = Nothing Set objSFO = Nothing
if outStr <> \",,,,,0,0,0,0\" then objTextStream.WriteLine outStr Response.Write \"Linie \"&i& \" skrevet til filen : \" & outStr & \"<br>\" end if next
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.
Ny bruger
Nybegynder
Opret
Preview
