03. september 2003 - 09:52Der er
9 kommentarer og 1 løsning
Linieskift i asp med form
Denne kode fungere fint. Bortset fra at den erstatter teksten i filen og ikke tilføjer en ny linie med den nye tekst der indskrives. Og det er hvad jeg har brug for.
<html> <title>Skriv</title> <head> </head> <body> <% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("tekstfil.txt") Set f = fso.OpenTextFile(filespec,2) ' Skriv tekst i en linie f.Write Request.Form("tekstblok") ' Åbn filen til læsning og Læs linie for linie Set f = fso.OpenTextFile(filespec,1) Do While not f.AtEndOfStream Response.write f.ReadLine & "<br>" Loop f.Close %> </body> </html>
Som jeg ser det henter den "skrivemuligheden" i Request.Form("tekstblok"). Det fungere fint. Men hvordan tilføjes en tekst til den eksisterende? Både mens .txt filen er åben. Men også hvis den lukkes og senere åbnes?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("tekstfil.txt") Set f = fso.OpenTextFile(filespec,2)
f.Write Request.Form("tekstblok")
Set f = fso.OpenTextFile(filespec, ForAppending, True) Do While not f.AtEndOfStream Response.write f.ReadLine & "<br>" Loop f.Close %>
If Not fso.FolderExists(filepath) Then Set fldr = fso.CreateFolder(filepath) Set fldr = Nothing end if Set f = fso.OpenTextFile(filespec, ForAppending, True) f.WriteLine "skriv din tekst her" & "<br>" f.close set f = nothing set fso = nothing
dim fso, f, fldr,filepath Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("tekstfil.txt", ForAppending, True) f.WriteLine "skriv din tekst her" & "<br>" f.close set f = nothing set fso = nothing
Skal jeg skifte linie hver gang formularen opdateres skal jeg vel noget i retning af "redraw" eller andet som gemmer det indtastede inden der skrives noget nyt.
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.
