asp - Hente tekstfil til tekstblok? - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

Bruger #10253 @ 07.08.06 23:15

Jeg har prøvet mig lidt frem, men kan ikk rigtig få fanget den rigtige kode.
F.eks: jeg har en tekstfil der indeholder en sætning der hedder "Hej!".
Jeg vile gerne have en tekstblok, hvor "value=''" bliver hentet fra tekstfilen, så value skulle blive; "value='Hej!'".

Ved godt denne kode ikk virker, men nogle af jer kan sikkert bruge den til at forstå jeg hvad snakker om:

Kode

 
Response.Write("<textarea name='tekstblok' rows='4' cols='27' value='ai(--TEKST SOM BLIVER HENTET FRA TEKSTFILEN--)'></textarea> <input type='submit' value='ACCEPTER!!!'></p></form>")

ai("Dim fso2, f2, filespec2
Set fso2 = CreateObject("Scripting.FileSystemObject")
filespec2 = Server.Mappath("test.txt")
Set f2 = fso2.OpenTextFile(filespec2,1)

' Læs linie for linie indtil slutningen af filen
Do While not f2.AtEndOfStream 
   Response.write f2.ReadLine & "<br>" 
Loop 

f2.Close")

Håber I kan hjælpe mig

3 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #10329 @ 08.08.06 15:32

Her er der taget højde for "<br/>" men bliver skrevet som kode og viser blot hvor der er trykket på enter i txtfilen, så du skal manuelt fjerne "<br"> og indsætte breaks.

Kode

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Indsæt indhold fra tekstfil i textboks</title>
<% 
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("txt.txt")
Set f = fso.OpenTextFile(filespec,1)
%>

</head>
<body>
<strong>Indsæt indhold fra tekstfil i textboks</strong><br />
<textarea name="tekstindhold" rows="10" cols="85">
<%
' Læs linie for linie indtil slutningen af filen
  Do While not f.AtEndOfStream 
  indhold =f.ReadLine 
    response.write indhold &"<br/>"
    Loop 
f.Close
%>
</textarea>
</body>
</html>

Bruger #3897 @ 08.08.06 00:12

113

Prøv med det her... er hurtig skrevet, men burde virke

Kode

<%
function ai(textfil)

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath(textfil)
Set f = fso2.OpenTextFile(filespec2,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream 
   strTemp = strTemp & f.ReadLine & "<br>" 
Loop 

f.Close

ai = strTemp

end function
%>

<textarea name="textblok" rows="4" cols="27">
<%=ai("test.txt")%>
</textarea>

Bruger #10329 @ 08.08.06 15:28

Denne her kode virker, men jeg arbejder på at få linjeafstand med også

Kode

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Indsæt indhold fra tekstfil i textboks</title>
<% 
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("txt.txt")
Set f = fso.OpenTextFile(filespec,1)
%>

</head>
<body>
<strong>Indsæt indhold fra tekstfil i textboks</strong>
<textarea name="tekstindhold" rows="10" cols="85">
<%
' Læs linie for linie indtil slutningen af filen
  Do While not f.AtEndOfStream 
  indhold =f.ReadLine 
    response.write indhold
    Loop 
f.Close
%>
</textarea>
</body>
</html>

Hente tekstfil til tekstblok?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler