Notifikationer

Markér alle som læst Log ud

jeffe Nybegynder

11. september 2003 - 22:07 Der er 14 kommentarer og
1 løsning

ASP: LÆs fra tekstfil

Er der nogen der gider skrive de linjer der skal til for at:

1. Læse fra en tekstfil
2. Teksten skal sætte 'vbcrlf' hvor det er. Altså trykke ENTER hvor det er i tekstfilen.

Det skal i sidste ende sættes i et textarea, men det kan jeg godt selv.

Synes godt om

nmh Nybegynder

11. september 2003 - 22:11 #1

Nu får du den først hvor den skriver direkte til en htlm-siden.
Så retter jeg den til mht linieskift
<%
Set FilSystem=Server.CreateObject("Scripting.FileSystemObject")
Set stream=filsystem.openTextFile("C:\Inetpub\wwwroot\tlfliste\liste.txt")
%>
<html>
<body>
<A href="Indtast.htm">Forsæt med indtastningen</A><p><p>
<%
while not stream.AtEndOfStream
tekst=stream.readline()
response.write(tekst & "<br>")
wend
stream.close
%>
</body>
</html>

Synes godt om

nmh Nybegynder

11. september 2003 - 22:16 #2

<%
Set FilSystem=Server.CreateObject("Scripting.FileSystemObject")
Set stream=filsystem.openTextFile("d:\kat1\mintextfil.txt")
tekst=stream.ReadAll
'Nu er hele tekstfilen gemt i den variable
'tekst, med linieskift inkluderet.
stream.close
%>

Synes godt om

elkrog Nybegynder

11. september 2003 - 22:17 #3

http://www.html.dk/tutorials/asp/lektion15.asp

Synes godt om

nielle Nybegynder

11. september 2003 - 22:18 #4

Hvis du alligevel skal indsætte det i et testarea så er dit trin nr. 2 overflødigt (omskrevet efter nmh):

<textarea>
<%
Set FilSystem=Server.CreateObject("Scripting.FileSystemObject")
Set stream=filsystem.openTextFile("C:\Inetpub\wwwroot\tlfliste\liste.txt")
while not stream.AtEndOfStream
tekst=stream.readline()
response.write(tekst)
wend
stream.close %>
</textarea>

Synes godt om

nmh Nybegynder

11. september 2003 - 22:24 #5

nielle>>Nu vil den da ikke tilføje linieskift.
Hvis den skal ende med at skrive til et textarea er det rarest at have alt i en variabel. Så lyder udskriften jo blot f.eks.:

<textarea name=txt cols=20 rows=20><%=tekst%></textarea>

Synes godt om

nmh Nybegynder

11. september 2003 - 22:29 #6

nielles version burde være:
<textarea>
<%
Set FilSystem=Server.CreateObject("Scripting.FileSystemObject")
Set stream=filsystem.openTextFile("C:\Inetpub\wwwroot\tlfliste\liste.txt")
while not stream.AtEndOfStream
tekst=stream.readline()
response.write(tekst & VBCrLf)
wend
stream.close %>
</textarea>

Synes godt om

nielle Nybegynder

11. september 2003 - 22:32 #7

I stand corected. ;^)

Synes godt om

nielle Nybegynder

11. september 2003 - 22:36 #8

Mht 22:24:43 så er det vist et spørgsmål om hvad man synes bedst om. I dit eksempel er udskriften nok simpel, men arbejdet med at lægge data i variablen er ikke.

I mit eksempel går man ikke via en variabel - det er ikke nødvendigt. I stedet er selve udskrivningen så "grimt" (på samme måde som at lægge i variablen).

Synes godt om

nielle Nybegynder

11. september 2003 - 22:37 #9

Hvad er pænest?

Version 1)

<%
Set FilSystem=Server.CreateObject("Scripting.FileSystemObject")
Set stream=filsystem.openTextFile("d:\kat1\mintextfil.txt")
tekst=stream.ReadAll
'Nu er hele tekstfilen gemt i den variable
'tekst, med linieskift inkluderet.
stream.close
%>

<textarea name=txt cols=20 rows=20><%=tekst%></textarea>

- eller:

Version 2)

<textarea name=txt cols=20 rows=20>
<%
Set FilSystem=Server.CreateObject("Scripting.FileSystemObject")
Set stream=filsystem.openTextFile("C:\Inetpub\wwwroot\tlfliste\liste.txt")
while not stream.AtEndOfStream
tekst=stream.readline()
response.write(tekst & VBCrLf)
wend
stream.close %>
</textarea>

Synes godt om

nielle Nybegynder

11. september 2003 - 22:38 #10

Personligt synes jeg at det er lidt er noget gris at blande en variabel ind i det hvis man ikke skal bruge denne til andet andre steder i scritet.

Synes godt om

nmh Nybegynder

11. september 2003 - 22:39 #11

Hvis tekstfilen er stor er metode 2 bedst.

Synes godt om

nielle Nybegynder

11. september 2003 - 22:44 #12

Korrekt, der er noget performance at tage hensyn til. Men det var jo ikke lige det som diskussitionen gik på - hvad var pænest eller mest elegant.

Synes godt om

nmh Nybegynder

11. september 2003 - 22:51 #13

Ja så synes jeg at metode 1 er pænest. Du læser direkte ind i variablen tekst, som derefter udskrives. Pænt og net. Jeg kan godt lide en simpel, kort og overskuelig kode. Der skal heller ikke testes på End of File.

Hvad mener du så om
...
response.write(stream.readline & VBCrLf)
...

Synes godt om

nielle Nybegynder

11. september 2003 - 22:55 #14

Nydeligt, bortset fra at jeg altid foretrækker at angive paranteserne ved funktion-skald:

response.write(stream.readline() & VBCrLf)

Synes godt om

nmh Nybegynder

11. september 2003 - 23:00 #15

og så det helt simple: :o)
...
response.write(stream.readall())
...

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS