Avatar billede moejensen Nybegynder
30. maj 2003 - 17:06 Der er 7 kommentarer og
1 løsning

fyld tabel med data fra en txt fil

Jeg vil gerne have lidt hjælp til at lave en asp side der kan følgende. Jeg har en txt til, der ser ud som følger:

Side 1
dette er side 1

Side 2
Dette er side to

side 3
Dette er side 3

Det jeg er ude efter er at få lavet en side, der æder denne txt fil, og generere en tabel, der ser ud som følger:

Side 1  |  dette er side 1
Side 2  |  Dette er side to
Side 3  |  Dette er side 3

Det skal lige siges at siden skal kunne kører på chilasp (altså hos b-one)

Håber i kan hjælpe mig
Avatar billede moejensen Nybegynder
30. maj 2003 - 17:52 #1
hvis det slet ikke kan lade sig gøre, så ved jeg at b-one understøtter php, ikke at jeg har prøvet at arbejde i php før, men det må jeg jo så lærer.

Så hvis det ikke kan lade sig gøre i ASP, så er det også ok med PHP
Avatar billede moejensen Nybegynder
30. maj 2003 - 20:13 #2
Er der virkelig ingen der kan hjælpe mig. Jeg havde overvejet noget med bare at nøjes med at lave en string, som jeg kunne indtaste linjerne i, men en string kan vidst ikke indholde linjeskift...
Avatar billede jytte Nybegynder
30. maj 2003 - 20:56 #3
Prøv at søg på www.google.com efter

CreateObject("Scripting.FileSystemObject")

Der burde du kunne finde nogle eksempler.
Avatar billede moejensen Nybegynder
30. maj 2003 - 21:04 #4
jubii, har lige læst noget af dokumentationen til chiliasp, og den understøtter filesystem object, så du skal jeg bare have et bud på siden...eanyone?
Avatar billede jytte Nybegynder
31. maj 2003 - 10:04 #5
Hvis din text fil starter med en tom linie vil følgende vist virke:

<%
Const ForReading = 1', ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2', TristateTrue = -1,  TristateFalse=0

dim strPath
strPath = Server.MapPath("mappe/filnavn.txt")
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
Dim objFileTextStream
Set objFileTextStream = objFile.OpenAsTextStream(ForReading,TristateUseDefault)

dim sidenavn,no,indhold
no=1

Do While objFileTextStream.AtEndOfStream <> True
    objFileTextStream.ReadLine
    no = no+1
    sidenavn=Server.HTMLEncode(objFileTextStream.ReadLine)
    no = no +1
    indhold=Server.HTMLEncode(objFileTextStream.ReadLine)
    no= no +1
    Response.Write server.HTMLEncode(sidenavn) & " | " & server.HTMLEncode(indhold) & "<br>"
Loop
objFileTextStream.Close
%>
Avatar billede moejensen Nybegynder
31. maj 2003 - 16:42 #6
takker, havde også selv fundet den løsning :-)
Avatar billede jytte Nybegynder
31. maj 2003 - 16:48 #7
Så tæller det måske som et svar ?
Avatar billede moejensen Nybegynder
31. maj 2003 - 17:34 #8
du har jo godt nok ikke bidraget mig med noget jeg ikke vidst ei forvejen, men hvad du får pointne :-)

Du kan evt kigge på dette spg, hvis du har tid: http://www.eksperten.dk/spm/359151
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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