DaSpeeD
Legacy Member
hallo, ik zou gegevens die in een txt file zitten willen overzetten naar een webpagina, ik heb een begin van de code mar ik weet nie juist hoe ik verder moet doen, zit dus gewoon vast 
alles moet dus komen in tabellen, A staat voor het begin van een nieuwe tabel an de eerste lijn, er zijn altijd 4 kollomen. B staat voor een tekst die op de eerste rij in de 2 de kollom komt. C is er voor als er op de 2de rij of andere rij geen uur is in de eerste kollom. een komma geeft aan waar een kollom stopt ", ," betekend lege kollom en een punt is einde rij. Als je het nodig vindt om nog extra tekens toe te voegen, laat me het zeker weten. hoop dat jullie er iets met kunne aanvangen
hier is de txt waar alles instaat.
AMaandag 17/01/05
B
CBS-1: Nasholing Wonderverhalen, ,Sofie VD.
08 30 u,BLO-2: Personeelsvergadering, , .
09 00 u,BLO: Organisatie van doelgroepen, , .
13 45 u,Team La Linea: Bespreking IHP J Ghys,Reiger, .
14 00 u,Regionaal Overleg Gent, ,William.
19 00 u,Participatieraad, , .
ADinsdag 18/01/05
BNAAIKRANS EN FIETSENHERSTELLING STROPKAAI.
09 30 u,BS: Directievergadering: Bisdom, ,Geert Paul.
10 30 u,BLO-1: Klassenraad Glenn VW,Lokaal therapeuten,Sylvie Lut Luc VL ambuldienst moeder.
13 00 u,BLO: Overleg kernteam, , .
13 45 u,Algemene Personeelsvergadering DD,Refter, .
13 45 u,Teal La Linea: Bespreking IHP L Vereecke,Vink, .
14 00 u,BS-1: Samenkomst LOP Gent, , .
15 15 u,Overleg Werkgroep Kwaliteit,Bibliotheek, .
19 30 u,BS-1: Kwalificatiecommisie, , .
19 30 u,BS-1: Oudercomité De Deyne,Grote Conf, .
AWoensdag 19/01/05
B
CBLO: Studiedag in St Job in 't Goor, , .
CBS-1: Nascholing Wonderverhalen, ,Sofie VD.
08 30-12 30 u,Directieraad,Bureel William, .
09 00 u,BS-1: Bezoek van orthopedagoge VTS3 Sint-Niklaas, , .
10 00 u,BLO: Overleg met de verantwoordelijke De Link, ,Guy Ext Lut V.
14 00 u,Overleg MIGES, ,William.
ADonderdag 20/01/05
B
13 15 u,Team Carino: Opvolging A Pieret,Waterlelie, .
13 15 u,BLO-2: Paardrijden PE1, , .
13 30 u,Overleg met Br Dirk Beirnaert: Voorbereiding pastorale denkdag, ,Nicolas Dirk Vdl.
13 30 u,Algemene Personeelsvergadering Stropkaai,De Boot, .
15 00 u,Overleg Directie en Syndicale Delegatie,Bureel William, .
15 00 u,BLO: Overleg in Korenbloem ivm leerlingenvolgsysteem Goessaert, ,Marc Steven Ramona.
15 00 u,BS-1: Leerlingenparlement OBS - 2de jaar, , .
AVrijdag 21/05/05
B
CBS-1: Startdag actie Caraes, ,Koen VC.
08 30-13 30 u,Directieraad,Bureel William, .
10 30 u,BLO: Overleg Directie en Myriam, ,Guy.
11 00 u,BLO: Overleg ION-begeleiders en Lode De Geyter, , .
14 00 u,Regionaal Welzijnsoverleg Gent: Lokaal sociaal beleid, ,William.
15 45 u,BS-1: -Strafstudie (tot 17 30 u) -Overblijven (tot 16 45 u), ,Els V Danny.
16 00 u,BLO-1 Oudercontact, , .
AZaterdag 22/05/05
B
's avonds,Davidsfonds,Grote Conf,Luc De Vos.
En hier is het deel van de code.
<%@ LANGUAGE = "VBSCRIPT" %>
<% Option explicit %>
<html>
<head>
<title>Agenda</title>
</head>
<body>
<%
dim objFSO, objTekstbestand
dim strTekst
dim strKarakter
set objFSO = server.createobject("scripting.filesystemobject")
set objtekstbestand = objfso.opentextfile(server.mappath("weekinfo.txt"))
do while not objtekstbestand.atendofstream
strtekst = objtekstbestand.read(1)
select case strtekst
case "A"
strtekst = objtekstbestand.readline
response.write "<table border>"
response.write "<tr><td>"
response.write strtekst
response.write "</td>"
case "B"
strtekst = objtekstbestand.readline
response.write "<td>"
if strTekst <> "" then
response.write strtekst
else
response.write " "
end if
response.write "</td><td>Plaats</td><td>Persoon</td></tr>"
case "C"
response.write "<tr><td> </td>"
strtekst = ""
strkarakter = objtekstbestand.read(1)
do while strkarakter <> "."
do while strkarakter <> ","
strtekst = strtekst & strkarakter
strkarakter = objtekstbestand.read(1)
loop
response.write "<td>"
if strtekst <> "" then
response.write strtekst
else
response.write " "
end if
response.write "</td>"
loop
strtekst = objtekstbestand.readline
response.write "</tr>"
case else
end select
loop
response.write "</table>"
%>
</body>
</html>
hoop dat iemand mij kan helpen
alles moet dus komen in tabellen, A staat voor het begin van een nieuwe tabel an de eerste lijn, er zijn altijd 4 kollomen. B staat voor een tekst die op de eerste rij in de 2 de kollom komt. C is er voor als er op de 2de rij of andere rij geen uur is in de eerste kollom. een komma geeft aan waar een kollom stopt ", ," betekend lege kollom en een punt is einde rij. Als je het nodig vindt om nog extra tekens toe te voegen, laat me het zeker weten. hoop dat jullie er iets met kunne aanvangen
hier is de txt waar alles instaat.
AMaandag 17/01/05
B
CBS-1: Nasholing Wonderverhalen, ,Sofie VD.
08 30 u,BLO-2: Personeelsvergadering, , .
09 00 u,BLO: Organisatie van doelgroepen, , .
13 45 u,Team La Linea: Bespreking IHP J Ghys,Reiger, .
14 00 u,Regionaal Overleg Gent, ,William.
19 00 u,Participatieraad, , .
ADinsdag 18/01/05
BNAAIKRANS EN FIETSENHERSTELLING STROPKAAI.
09 30 u,BS: Directievergadering: Bisdom, ,Geert Paul.
10 30 u,BLO-1: Klassenraad Glenn VW,Lokaal therapeuten,Sylvie Lut Luc VL ambuldienst moeder.
13 00 u,BLO: Overleg kernteam, , .
13 45 u,Algemene Personeelsvergadering DD,Refter, .
13 45 u,Teal La Linea: Bespreking IHP L Vereecke,Vink, .
14 00 u,BS-1: Samenkomst LOP Gent, , .
15 15 u,Overleg Werkgroep Kwaliteit,Bibliotheek, .
19 30 u,BS-1: Kwalificatiecommisie, , .
19 30 u,BS-1: Oudercomité De Deyne,Grote Conf, .
AWoensdag 19/01/05
B
CBLO: Studiedag in St Job in 't Goor, , .
CBS-1: Nascholing Wonderverhalen, ,Sofie VD.
08 30-12 30 u,Directieraad,Bureel William, .
09 00 u,BS-1: Bezoek van orthopedagoge VTS3 Sint-Niklaas, , .
10 00 u,BLO: Overleg met de verantwoordelijke De Link, ,Guy Ext Lut V.
14 00 u,Overleg MIGES, ,William.
ADonderdag 20/01/05
B
13 15 u,Team Carino: Opvolging A Pieret,Waterlelie, .
13 15 u,BLO-2: Paardrijden PE1, , .
13 30 u,Overleg met Br Dirk Beirnaert: Voorbereiding pastorale denkdag, ,Nicolas Dirk Vdl.
13 30 u,Algemene Personeelsvergadering Stropkaai,De Boot, .
15 00 u,Overleg Directie en Syndicale Delegatie,Bureel William, .
15 00 u,BLO: Overleg in Korenbloem ivm leerlingenvolgsysteem Goessaert, ,Marc Steven Ramona.
15 00 u,BS-1: Leerlingenparlement OBS - 2de jaar, , .
AVrijdag 21/05/05
B
CBS-1: Startdag actie Caraes, ,Koen VC.
08 30-13 30 u,Directieraad,Bureel William, .
10 30 u,BLO: Overleg Directie en Myriam, ,Guy.
11 00 u,BLO: Overleg ION-begeleiders en Lode De Geyter, , .
14 00 u,Regionaal Welzijnsoverleg Gent: Lokaal sociaal beleid, ,William.
15 45 u,BS-1: -Strafstudie (tot 17 30 u) -Overblijven (tot 16 45 u), ,Els V Danny.
16 00 u,BLO-1 Oudercontact, , .
AZaterdag 22/05/05
B
's avonds,Davidsfonds,Grote Conf,Luc De Vos.
En hier is het deel van de code.
<%@ LANGUAGE = "VBSCRIPT" %>
<% Option explicit %>
<html>
<head>
<title>Agenda</title>
</head>
<body>
<%
dim objFSO, objTekstbestand
dim strTekst
dim strKarakter
set objFSO = server.createobject("scripting.filesystemobject")
set objtekstbestand = objfso.opentextfile(server.mappath("weekinfo.txt"))
do while not objtekstbestand.atendofstream
strtekst = objtekstbestand.read(1)
select case strtekst
case "A"
strtekst = objtekstbestand.readline
response.write "<table border>"
response.write "<tr><td>"
response.write strtekst
response.write "</td>"
case "B"
strtekst = objtekstbestand.readline
response.write "<td>"
if strTekst <> "" then
response.write strtekst
else
response.write " "
end if
response.write "</td><td>Plaats</td><td>Persoon</td></tr>"
case "C"
response.write "<tr><td> </td>"
strtekst = ""
strkarakter = objtekstbestand.read(1)
do while strkarakter <> "."
do while strkarakter <> ","
strtekst = strtekst & strkarakter
strkarakter = objtekstbestand.read(1)
loop
response.write "<td>"
if strtekst <> "" then
response.write strtekst
else
response.write " "
end if
response.write "</td>"
loop
strtekst = objtekstbestand.readline
response.write "</tr>"
case else
end select
loop
response.write "</table>"
%>
</body>
</html>
hoop dat iemand mij kan helpen