Travail sur un fichier de donné!!!
dale02
Messages postés
24
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
25 mars 2005
-
23 déc. 2004 à 11:42
dale02 Messages postés 24 Date d'inscription mercredi 26 mai 2004 Statut Membre Dernière intervention 25 mars 2005 - 24 déc. 2004 à 11:04
dale02 Messages postés 24 Date d'inscription mercredi 26 mai 2004 Statut Membre Dernière intervention 25 mars 2005 - 24 déc. 2004 à 11:04
A voir également:
- Travail sur un fichier de donné!!!
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Fichier sur le net 3 lettres ✓ - Forum VB.NET
- Donne moi une couleur au hasard ✓ - Forum PHP
- Donne moi une lettre au hasard ✓ - Forum Java
3 réponses
jesusonline
Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
13 octobre 2010
29
23 déc. 2004 à 18:59
23 déc. 2004 à 18:59
Une piste :
comprend le code plutot que de recopier betement celui ci :) la j'ai juste mis la piste pour lire les elements, et les lié avec un checkbox.
je suis pas du tout sur de mon code, meme pas du tout du tout, il y a juste l'idée ;)
imports system.io
private sub xxxx
dim sr as new io.streamReader("fichier.txt")
dim ckb as checkbox
Do until sr is nothing
ckb = new checkbox
ckb.value = sr.readline
placeholder1.controls.add(ckb)
loop
end sub
sr.close
pour ecrire dans un fichier c'est streamwriter
si tu comprend pas hésites pas :)
Cyril
comprend le code plutot que de recopier betement celui ci :) la j'ai juste mis la piste pour lire les elements, et les lié avec un checkbox.
je suis pas du tout sur de mon code, meme pas du tout du tout, il y a juste l'idée ;)
imports system.io
private sub xxxx
dim sr as new io.streamReader("fichier.txt")
dim ckb as checkbox
Do until sr is nothing
ckb = new checkbox
ckb.value = sr.readline
placeholder1.controls.add(ckb)
loop
end sub
sr.close
pour ecrire dans un fichier c'est streamwriter
si tu comprend pas hésites pas :)
Cyril
taillecrayon
Messages postés
109
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
23 novembre 2010
23 déc. 2004 à 19:52
23 déc. 2004 à 19:52
sur qques essais ça marche,peut ètre faire gaffe aux indices,cbl est un checkboxlist,recup est déclenché par un bouton ;
<%@ Page Language="VB" %>
<%@ import Namespace="system.IO" %>
<script runat="server">
sub page_load(sender as object ,e as eventargs)
dim i as integer
dim str as string
dim go as streamreader
if not ispostback then
go=file.opentext(server.mappath("donnees.txt"))
do
str=go.readline
if str<>"" then
cbl1.items.add( str)
end if
loop until str is nothing
go.close
end if
end sub
sub recup(sender as object,e as eventargs)
dim i,j as integer
dim ga as streamwriter
dim non as arraylist = new arraylist
j=cbl1.items.count
i=0
do
i=i+1
if cbl1.items(i).selected=false then
non.add(cbl1.items(i).text)
end if
loop until i=j-1
j=non.count
ga=new streamwriter("recupere.txt")
for i=0 to j-1
ga.writeline(non(i))
next
ga.close
end sub
taillecrayon
<%@ Page Language="VB" %>
<%@ import Namespace="system.IO" %>
<script runat="server">
sub page_load(sender as object ,e as eventargs)
dim i as integer
dim str as string
dim go as streamreader
if not ispostback then
go=file.opentext(server.mappath("donnees.txt"))
do
str=go.readline
if str<>"" then
cbl1.items.add( str)
end if
loop until str is nothing
go.close
end if
end sub
sub recup(sender as object,e as eventargs)
dim i,j as integer
dim ga as streamwriter
dim non as arraylist = new arraylist
j=cbl1.items.count
i=0
do
i=i+1
if cbl1.items(i).selected=false then
non.add(cbl1.items(i).text)
end if
loop until i=j-1
j=non.count
ga=new streamwriter("recupere.txt")
for i=0 to j-1
ga.writeline(non(i))
next
ga.close
end sub
taillecrayon
dale02
Messages postés
24
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
25 mars 2005
24 déc. 2004 à 11:04
24 déc. 2004 à 11:04
je vasi tester cela dés que j'aurai fini d'installer mon server chez moi lol
