-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
comme cela se faisait dans la passé. Libre à vous mais
utiliser VB.Net ???? C'est comme utiliser un camion de
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message de
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
comme cela se faisait dans la passé. Libre à vous mais
utiliser VB.Net ???? C'est comme utiliser un camion de
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" <cpetithomme@noos.fr> a écrit dans le message de
news:153401c48c40$2048e420$a501280a@phx.gbl...
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
comme cela se faisait dans la passé. Libre à vous mais
utiliser VB.Net ???? C'est comme utiliser un camion de
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message de
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
Ok que ma facon de prog ne vous convienne pas je peut le
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat pro
de la prog toujours la pour dire ce qu'il ne fo pas faire
mais jamais de solutions effectivement je suis aller sur
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer je
n'ai pas la pretention d'avir choisi la bonne méthode je
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un exemple
ou un lien que je puisse consulter-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! StyleDAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structurecomme cela se faisait dans la passé. Libre à vous mais
alors pourquoiutiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pourtransporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, lesdataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message de
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
Ok que ma facon de prog ne vous convienne pas je peut le
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat pro
de la prog toujours la pour dire ce qu'il ne fo pas faire
mais jamais de solutions effectivement je suis aller sur
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer je
n'ai pas la pretention d'avir choisi la bonne méthode je
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un exemple
ou un lien que je puisse consulter
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! Style
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structure
comme cela se faisait dans la passé. Libre à vous mais
alors pourquoi
utiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pour
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, les
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" <cpetithomme@noos.fr> a écrit dans le message de
news:153401c48c40$2048e420$a501280a@phx.gbl...
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
Ok que ma facon de prog ne vous convienne pas je peut le
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat pro
de la prog toujours la pour dire ce qu'il ne fo pas faire
mais jamais de solutions effectivement je suis aller sur
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer je
n'ai pas la pretention d'avir choisi la bonne méthode je
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un exemple
ou un lien que je puisse consulter-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! StyleDAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structurecomme cela se faisait dans la passé. Libre à vous mais
alors pourquoiutiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pourtransporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, lesdataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message de
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
comme cela se faisait dans la passé. Libre à vous mais
utiliser VB.Net ???? C'est comme utiliser un camion de
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message de
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
comme cela se faisait dans la passé. Libre à vous mais
utiliser VB.Net ???? C'est comme utiliser un camion de
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" <cpetithomme@noos.fr> a écrit dans le message de
news:153401c48c40$2048e420$a501280a@phx.gbl...
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
comme cela se faisait dans la passé. Libre à vous mais
utiliser VB.Net ???? C'est comme utiliser un camion de
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message de
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand je
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans la
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
-----Message d'origine-----
Si vous pensez que je vous ai *descendu* c'est que vous
personne bien bien jeune et que vous n'avez jamais été
personne ! Il est très difficile de vous donner une
dépend de ce que vous souhaitez concrètement faire ...
aussi dans le futur. Il faut revoir votre facon de
"Djiins" a écrit
news:1d5c01c48cdb$9e0ee800$
Ok que ma facon de prog ne vous convienne pas je peut le
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat pro
de la prog toujours la pour dire ce qu'il ne fo pas faire
mais jamais de solutions effectivement je suis aller sur
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer je
n'ai pas la pretention d'avir choisi la bonne méthode je
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un exemple
ou un lien que je puisse consulter-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! StyleDAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structurecomme cela se faisait dans la passé. Libre à vous mais
alors pourquoiutiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pourtransporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, lesdataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
.
-----Message d'origine-----
Si vous pensez que je vous ai *descendu* c'est que vous
personne bien bien jeune et que vous n'avez jamais été
personne ! Il est très difficile de vous donner une
dépend de ce que vous souhaitez concrètement faire ...
aussi dans le futur. Il faut revoir votre facon de
"Djiins" <anonymous@discussions.microsoft.com> a écrit
news:1d5c01c48cdb$9e0ee800$a301280a@phx.gbl...
Ok que ma facon de prog ne vous convienne pas je peut le
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat pro
de la prog toujours la pour dire ce qu'il ne fo pas faire
mais jamais de solutions effectivement je suis aller sur
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer je
n'ai pas la pretention d'avir choisi la bonne méthode je
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un exemple
ou un lien que je puisse consulter
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! Style
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structure
comme cela se faisait dans la passé. Libre à vous mais
alors pourquoi
utiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pour
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, les
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" <cpetithomme@noos.fr> a écrit dans le message
news:153401c48c40$2048e420$a501280a@phx.gbl...
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
.
-----Message d'origine-----
Si vous pensez que je vous ai *descendu* c'est que vous
personne bien bien jeune et que vous n'avez jamais été
personne ! Il est très difficile de vous donner une
dépend de ce que vous souhaitez concrètement faire ...
aussi dans le futur. Il faut revoir votre facon de
"Djiins" a écrit
news:1d5c01c48cdb$9e0ee800$
Ok que ma facon de prog ne vous convienne pas je peut le
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat pro
de la prog toujours la pour dire ce qu'il ne fo pas faire
mais jamais de solutions effectivement je suis aller sur
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer je
n'ai pas la pretention d'avir choisi la bonne méthode je
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un exemple
ou un lien que je puisse consulter-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! StyleDAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structurecomme cela se faisait dans la passé. Libre à vous mais
alors pourquoiutiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pourtransporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, lesdataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est partis
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis a
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et je
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
.
-----Message d'origine-----
Djiins a écrit :Ok que ma facon de prog ne vous convienne pas je peut
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat
de la prog toujours la pour dire ce qu'il ne fo pas
mais jamais de solutions effectivement je suis aller
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer
n'ai pas la pretention d'avir choisi la bonne méthode
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un
ou un lien que je puisse consulter-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! StyleDAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structurecomme cela se faisait dans la passé. Libre à vous mais
alors pourquoiutiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pourtransporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, lesdataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
En gros, plus tot que de choisir un enregistrement
dans un fichier texte, aujourd'hui .NET propose des
plus proches de la philosophie d'aujourd'hui. Je te
j'utilise pour entregistrer une config de logiciel.
départ bien sur. Desole pour le formatage, c'est un
Public Class Configuration
Private _documentXML As XmlDocument
Private Const _nomDocument As
Public Sub New()
Dim LectureXML As XmlTextReader
Try
LectureXML = New XmlTextReader
LectureXML.Read()
Catch ex As FileNotFoundException
CreationFichier()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
LectureXML.Close()
End Try
_documentXML = New XmlDocument
_documentXML.Load(_nomDocument)
End Sub
Private Sub CreationFichier()
Dim EcritureXML As New XmlTextWriter
System.Text.Encoding.UTF8)
With EcritureXML
'indente les balises de 4 espaces (plus
en mode texte)
.Formatting = Formatting.Indented
.Indentation = 4
'entete versionning
.WriteStartDocument(True)
'un petit commentaire
.WriteComment("Document de
Sylvie. C.Baletaud 2003")
.WriteStartElement("Configuration")
.WriteElementString
.WriteElementString
.WriteElementString
.WriteElementString("Decalage", "0")
.WriteElementString
.WriteEndDocument()
.Close()
End With
End Sub
Public Property Decalage() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property DisqueTravail() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property PeriPheriqueVideo() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property EmplacementStickUSB() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property CommandesBrutes() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
End Class
--
http://perso.wanadoo.fr/letchideslandes
.
-----Message d'origine-----
Djiins a écrit :
Ok que ma facon de prog ne vous convienne pas je peut
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat
de la prog toujours la pour dire ce qu'il ne fo pas
mais jamais de solutions effectivement je suis aller
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer
n'ai pas la pretention d'avir choisi la bonne méthode
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un
ou un lien que je puisse consulter
-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! Style
DAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structure
comme cela se faisait dans la passé. Libre à vous mais
alors pourquoi
utiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pour
transporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, les
dataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" <cpetithomme@noos.fr> a écrit dans le message
news:153401c48c40$2048e420$a501280a@phx.gbl...
dsl j'ai fait une mauvais manip et le message est
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
En gros, plus tot que de choisir un enregistrement
dans un fichier texte, aujourd'hui .NET propose des
plus proches de la philosophie d'aujourd'hui. Je te
j'utilise pour entregistrer une config de logiciel.
départ bien sur. Desole pour le formatage, c'est un
Public Class Configuration
Private _documentXML As XmlDocument
Private Const _nomDocument As
Public Sub New()
Dim LectureXML As XmlTextReader
Try
LectureXML = New XmlTextReader
LectureXML.Read()
Catch ex As FileNotFoundException
CreationFichier()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
LectureXML.Close()
End Try
_documentXML = New XmlDocument
_documentXML.Load(_nomDocument)
End Sub
Private Sub CreationFichier()
Dim EcritureXML As New XmlTextWriter
System.Text.Encoding.UTF8)
With EcritureXML
'indente les balises de 4 espaces (plus
en mode texte)
.Formatting = Formatting.Indented
.Indentation = 4
'entete versionning
.WriteStartDocument(True)
'un petit commentaire
.WriteComment("Document de
Sylvie. C.Baletaud 2003")
.WriteStartElement("Configuration")
.WriteElementString
.WriteElementString
.WriteElementString
.WriteElementString("Decalage", "0")
.WriteElementString
.WriteEndDocument()
.Close()
End With
End Sub
Public Property Decalage() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property DisqueTravail() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property PeriPheriqueVideo() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property EmplacementStickUSB() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property CommandesBrutes() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
End Class
--
http://perso.wanadoo.fr/letchideslandes
.
-----Message d'origine-----
Djiins a écrit :Ok que ma facon de prog ne vous convienne pas je peut
concevoir mais de la ametre que c'est afreux c po une
raison pour etre desagréable je reve les sois disnat
de la prog toujours la pour dire ce qu'il ne fo pas
mais jamais de solutions effectivement je suis aller
un autre forum et la on m'a apporte un aide concrete
quand on critique on se donne la peine de donner une
solution avec un exemple et puis il fo bine commencer
n'ai pas la pretention d'avir choisi la bonne méthode
venais demander de l'aide sur le sujet pas me faire
descendre par qqun qui n'a même pas proposez un
ou un lien que je puisse consulter-----Message d'origine-----
C'est tout bonnement *affreux* !
Quand je vois ca j'ai le sentiment d'avoir fait un bon
dans la passé ! StyleDAO et VB5 ! Abominable !
Si vous voulez écrire un fichier séquentiel grace et
avec une structurecomme cela se faisait dans la passé. Libre à vous mais
alors pourquoiutiliser VB.Net ???? C'est comme utiliser un camion de
50 tonnes pourtransporter un boite de chocolat !
Pourquoi ne voulez-vous pas utiliser la force de .Net
avec le XML, lesdataset, les objets etc etc ?
Bonne prog'
Bismark
"Djiins" a écrit dans le message
news:153401c48c40$2048e420$
dsl j'ai fait une mauvais manip et le message est
imcomplet je recommence donc
donc je disiat je creer une structure comme suit (c'est
un carnet d'adresses)
Public Structure ctcper
Public pcat As String
Public pnom As String
Public pprenom As String
Public padr As String
Public pvil As String
Public pcp As String
Public pdigi As String
Public ptel As String
Public pmob As String
Public pfax As String
Public pmail As String
Public pann As String
Public padr2 As String
Public pvil2 As String
Public pcp2 As String
Public pdigi2 As String
Public ptel2 As String
Public pfax2 As String
Public pcom As String
End Structure
Public cotatcper(5000) As ctcper
Public nbrctc As Integer
puis j'ecris les infos dans un fichier text comme suis
travers un formulaire et des champs texte ^^
Public Sub ecritcontact()
Dim nc As StreamWriter = File.AppendText
("c:person.txt")
With cotatcper(nbrctc)
.pcat = Cbxcat.Text
.pnom = Textnom.Text
.pprenom = Textprénom.Text
.padr = Textadr.Text
.pvil = TextVil.Text
.pcp = textcp.Text
.pdigi = Textdig.Text
.ptel = TextPhone.Text
.pmob = TextMob.Text
.pfax = TextFax.Text
.pmail = Textmail.Text
.padr2 = Textadr2.Text
.pvil2 = Textvil2.Text
.pcp2 = TextCp2.Text
.pdigi2 = Textdigi2.Text
.ptel2 = Textphone2.Text
.pfax2 = Textfax2.Text
.pcom = Textcomments.Text
End With
nc.WriteLine(cotatcper(nbrctc).pcat)
nc.WriteLine(cotatcper(nbrctc).pnom)
nc.WriteLine(cotatcper(nbrctc).pprenom)
nc.WriteLine(cotatcper(nbrctc).padr)
nc.WriteLine(cotatcper(nbrctc).pvil)
nc.WriteLine(cotatcper(nbrctc).pcp)
nc.WriteLine(cotatcper(nbrctc).pdigi)
nc.WriteLine(cotatcper(nbrctc).ptel)
nc.WriteLine(cotatcper(nbrctc).pmob)
nc.WriteLine(cotatcper(nbrctc).pfax)
nc.WriteLine(cotatcper(nbrctc).pmail)
nc.WriteLine(cotatcper(nbrctc).padr2)
nc.WriteLine(cotatcper(nbrctc).pvil2)
nc.WriteLine(cotatcper(nbrctc).pcp2)
nc.WriteLine(cotatcper(nbrctc).pdigi2)
nc.WriteLine(cotatcper(nbrctc).ptel2)
nc.WriteLine(cotatcper(nbrctc).pfax2)
nc.WriteLine(cotatcper(nbrctc).pcom)
nc.Close()
bon jusuqe la pas de soucis mais je voudrais que quand
reouvre le formulaire il m'affiche le premier contact
enregistrer dans le fichier mais je n'y arrive pas et
pense que c'est du a mon code !!!
public sub lecturecontact()
dim ltc as streamreader=file.opentext("c:peron.txt")
dim lltc as string
With cotatcper(nbrctc)
le j'ai essayer de mettre pour chaque champs quelque
chose du genre
textcat.txt=.cat
etc....
End With
et ensuite de mettre
do until ltc.peek=-1
lltc &= ltc.readline() & vbcr
loop
ltc.close
et pour finir j'appel la procedure lecturecontact dans
section fromload du formulaire concerné et rien ni fait
je ne comprends pas !!! si vous avez une idée ce serais
vraiment cool
merci d'avance
Djiins
.
En gros, plus tot que de choisir un enregistrement
dans un fichier texte, aujourd'hui .NET propose des
plus proches de la philosophie d'aujourd'hui. Je te
j'utilise pour entregistrer une config de logiciel.
départ bien sur. Desole pour le formatage, c'est un
Public Class Configuration
Private _documentXML As XmlDocument
Private Const _nomDocument As
Public Sub New()
Dim LectureXML As XmlTextReader
Try
LectureXML = New XmlTextReader
LectureXML.Read()
Catch ex As FileNotFoundException
CreationFichier()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
LectureXML.Close()
End Try
_documentXML = New XmlDocument
_documentXML.Load(_nomDocument)
End Sub
Private Sub CreationFichier()
Dim EcritureXML As New XmlTextWriter
System.Text.Encoding.UTF8)
With EcritureXML
'indente les balises de 4 espaces (plus
en mode texte)
.Formatting = Formatting.Indented
.Indentation = 4
'entete versionning
.WriteStartDocument(True)
'un petit commentaire
.WriteComment("Document de
Sylvie. C.Baletaud 2003")
.WriteStartElement("Configuration")
.WriteElementString
.WriteElementString
.WriteElementString
.WriteElementString("Decalage", "0")
.WriteElementString
.WriteEndDocument()
.Close()
End With
End Sub
Public Property Decalage() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property DisqueTravail() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property PeriPheriqueVideo() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property EmplacementStickUSB() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
Public Property CommandesBrutes() As String
Get
Return
_documentXML.SelectSingleNode
End Get
Set(ByVal Value As String)
_documentXML.SelectSingleNode
= Value
_documentXML.Save(_nomDocument)
End Set
End Property
End Class
--
http://perso.wanadoo.fr/letchideslandes
.
-----Message d'origine-----
Personne n'est parfait ! Je ne donne de réponse
qui pose des questions à mon sens qui dépasse le niveau
livre de base ! Ce qui n'est absolument pas votre cas !
J'use et j'abuse de ma liberté d'expression ! Si vous
respect, de savoir vivre et de toutes ces choses
c'est que vous me semblez être qqun de bien pauvre
Ici, je ne donne et ne demande ni respect, ni savoir
réponses aux questions que je me pose et j'en donne à
fais pas d'ami ici ! Je sais certaine chose mieux que
vice-versa !
Si c'est un newsgroup de politesse et de savoir-vivre
nomme-t-il pas microsoft.public.fr.savoir-vivre ??? Vous
rire; vous qui me parler de respect ! Le respect ici ce
les lecteurs en posant des questions comme je l'ai dis
non-résolvable par la lecture d'un ouvrage de base !
respect dont vous n'avez absolument pas fait preuve ici !
Bonne prog'
Bismark
.
-----Message d'origine-----
Personne n'est parfait ! Je ne donne de réponse
qui pose des questions à mon sens qui dépasse le niveau
livre de base ! Ce qui n'est absolument pas votre cas !
J'use et j'abuse de ma liberté d'expression ! Si vous
respect, de savoir vivre et de toutes ces choses
c'est que vous me semblez être qqun de bien pauvre
Ici, je ne donne et ne demande ni respect, ni savoir
réponses aux questions que je me pose et j'en donne à
fais pas d'ami ici ! Je sais certaine chose mieux que
vice-versa !
Si c'est un newsgroup de politesse et de savoir-vivre
nomme-t-il pas microsoft.public.fr.savoir-vivre ??? Vous
rire; vous qui me parler de respect ! Le respect ici ce
les lecteurs en posant des questions comme je l'ai dis
non-résolvable par la lecture d'un ouvrage de base !
respect dont vous n'avez absolument pas fait preuve ici !
Bonne prog'
Bismark
.
-----Message d'origine-----
Personne n'est parfait ! Je ne donne de réponse
qui pose des questions à mon sens qui dépasse le niveau
livre de base ! Ce qui n'est absolument pas votre cas !
J'use et j'abuse de ma liberté d'expression ! Si vous
respect, de savoir vivre et de toutes ces choses
c'est que vous me semblez être qqun de bien pauvre
Ici, je ne donne et ne demande ni respect, ni savoir
réponses aux questions que je me pose et j'en donne à
fais pas d'ami ici ! Je sais certaine chose mieux que
vice-versa !
Si c'est un newsgroup de politesse et de savoir-vivre
nomme-t-il pas microsoft.public.fr.savoir-vivre ??? Vous
rire; vous qui me parler de respect ! Le respect ici ce
les lecteurs en posant des questions comme je l'ai dis
non-résolvable par la lecture d'un ouvrage de base !
respect dont vous n'avez absolument pas fait preuve ici !
Bonne prog'
Bismark
.
-----Message d'origine-----
Cela ne précise pas à quoi tient le respect ! Dans ma
respectueux puisqu'il a posé une question débile !
"Pyroa" <##> a écrit dans
news:ONZt$
Bonjour,
Bienvenue sur le groupe de discussion Visual Basic.Net
(microsoft.public.fr.dotnet.vb)
Dans le but d'améliorer la qualité des échanges, nous
consulter
et d'appliquer, dans la mesure du possible, les conseils
proposés à
cette adresse:
http://support.microsoft.com/directory/worldwide/fr/newsg
Voici quelques conseils :
.. soyez respectueux et courtois,
.. soyez clair dans le titre du message (cela donnera
du
sujet évoqué et facilitera la recherche de messages)
.. soyez concis dans le message
.. le langage de type "chat" ne s'applique pas aux
.. postez en texte brut (HTML inutile),
.. évitez, dans la mesure du possible, l'insertion de
taille
des pièces jointes est filtrée),
.. avant de vous lancer dans les groupes de discussion,
l'utilisent, consultez les différents groupes...
.. ne communiquez jamais vos mots de passe ou votre
dans
vos échanges ou toute information sensible (journaux
et/ou
configuration détaillée de vos systèmes, etc.) qui
d'être
utilisées par un utilisateur malveillant.
.. privilégiez l'utilisation d'un client de news (Ex:
environnement PC ou Entourage sur environnement MAC) à
pour
consulter les newsgroups
.. renseignez un nom de pseudo "parlant"
.. effectuez une recherche dans les newsgroups avant de
Une réponse à votre demande a peut-être déjà été apportée
.. ne postez pas de messages commerciaux ou publicitaires
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES
Votre opinion sur les newsgroups Microsoft nous
vous
remercions de bien vouloir participer à cette enquête (5
seront nécessaires). Les résultats nous serviront à
utilisation des newsgroups et à améliorer ce service de
ce,
afin de mieux vous satisfaire. Soyez assuré que la
réponses sera respectée et que vous ne serez pas
tout autre motif. Toutes vos remarques nous intéressent !
http://collecxia.microsoft.fr/formulaires/forms/enquetene
*** INFORMATION UTILE ***
Nous pensons utile de préciser que tous les
MVPs,
employés Microsoft) qui vous aident activement au
bénévoles.
En effet, toutes les personnes que vous côtoyez sur les
vous
répondent sont des utilisateurs passionnés avant tout
temps
professionnel ou privé pour partager leur connaissance
l'utilisation de nos produits. Un grand merci à tous ces
*** Les MVPs ? ***
Les experts utilisateurs également connus sous le nom de
dans
le cadre du programme MVP (Most Valuable Professional)
Microsoft France il y a trois ans.
Concrètement, ce programme permet à toute personne
connaissances
particulières dans le domaine des technologies
prétendre
à une certaine légitimité dans ce domaine - de
nos
communautés via les newsgroups ou de favoriser le
par
une activité communautaire dans d'autres domaines :
livres/articles
techniques, animation de séminaires/formations,
site
Web. Ces passionnés et experts proviennent d'horizons
des
activités variées, et ont en commun une maîtrise accrue
produits ou technologies Microsoft, et la volonté de
ce
savoir avec d'autres utilisateurs. Cette reconnaissance
utilisateurs
leur est attribuée après qu'ils aient été identifiés et
pairs
au sein de la communauté et par des employés Microsoft.
En échange de leur participation, ces utilisateurs ont
nombre
d'avantages. D'abord, ils ont la possibilité de
nos
équipes de développement en France comme aux Etats-Unis.
en
lien avec les newsgroups, de participer à l'amélioration
le
plan fonctionnel et de la sécurité. Ils sont également
conférences que Microsoft organise annuellement. Enfin,
jusqu'à
avoir accès aux codes sources des nos systèmes
Pour en savoir plus sur les MVPs,
*** IMPORTANT ***
Pour éviter de recevoir des messages indésirables
Spam »)
sur votre compte de messagerie habituel, nous vous
utiliser
un adresse de messagerie réelle lorsque vous posez une
répondez dans un newsgroup quel qu'il soit.
Voici 2 principes de bases pour vous prémunir du spam
1. Utiliser une adresse de messagerie légèrement
Utiliser une version différente de votre adresse email
d'autres
utilisateurs pourront facilement interpréter pour vous
personne
mais que les outils de Spam (robots) ne pourront pas
récupérer.
Si par exemple, votre adresse email réelle est
"",
vous pouvez utiliser "nom-email@(supprimerceci)
comme adresse
email modifiée. Dans ce cas, les outils de Spam qui
automatiquement les
adresses email des utilisateurs des newsgroups enverront
indésirable(s) à une adresse fictive/inconnue. Les
vous
répondre ou vous contacter en direct sauront qu'elles
mention
"(supprimerceci) » de votre adresse email. Lorsque vous
une
question pensez à bien indiquer votre adresse email
mention
dite anti-spam ou no-spam, Ex : « (supprimerceci) »)
2. Ou utiliser un compte de messagerie secondaire:
Créer et utiliser un compte de messagerie secondaire
messagerie
habituelle pour poser des questions ou répondre dans les
Merci de votre contribution pour le développement des
Cordialement,
Joel Chaudy
Responsable de la relation avec les Communautés
Microsoft France
PS. Pour me répondre, retirer "online." de l'adresse
diffusion de ce message.
.
-----Message d'origine-----
Cela ne précise pas à quoi tient le respect ! Dans ma
respectueux puisqu'il a posé une question débile !
"Pyroa" <#NOSPAM_Pyroa@wanadoo.fr_NOSPAM#> a écrit dans
news:ONZt$FcjEHA.1656@TK2MSFTNGP09.phx.gbl...
Bonjour,
Bienvenue sur le groupe de discussion Visual Basic.Net
(microsoft.public.fr.dotnet.vb)
Dans le but d'améliorer la qualité des échanges, nous
consulter
et d'appliquer, dans la mesure du possible, les conseils
proposés à
cette adresse:
http://support.microsoft.com/directory/worldwide/fr/newsg
Voici quelques conseils :
.. soyez respectueux et courtois,
.. soyez clair dans le titre du message (cela donnera
du
sujet évoqué et facilitera la recherche de messages)
.. soyez concis dans le message
.. le langage de type "chat" ne s'applique pas aux
.. postez en texte brut (HTML inutile),
.. évitez, dans la mesure du possible, l'insertion de
taille
des pièces jointes est filtrée),
.. avant de vous lancer dans les groupes de discussion,
l'utilisent, consultez les différents groupes...
.. ne communiquez jamais vos mots de passe ou votre
dans
vos échanges ou toute information sensible (journaux
et/ou
configuration détaillée de vos systèmes, etc.) qui
d'être
utilisées par un utilisateur malveillant.
.. privilégiez l'utilisation d'un client de news (Ex:
environnement PC ou Entourage sur environnement MAC) à
pour
consulter les newsgroups
.. renseignez un nom de pseudo "parlant"
.. effectuez une recherche dans les newsgroups avant de
Une réponse à votre demande a peut-être déjà été apportée
.. ne postez pas de messages commerciaux ou publicitaires
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES
Votre opinion sur les newsgroups Microsoft nous
vous
remercions de bien vouloir participer à cette enquête (5
seront nécessaires). Les résultats nous serviront à
utilisation des newsgroups et à améliorer ce service de
ce,
afin de mieux vous satisfaire. Soyez assuré que la
réponses sera respectée et que vous ne serez pas
tout autre motif. Toutes vos remarques nous intéressent !
http://collecxia.microsoft.fr/formulaires/forms/enquetene
*** INFORMATION UTILE ***
Nous pensons utile de préciser que tous les
MVPs,
employés Microsoft) qui vous aident activement au
bénévoles.
En effet, toutes les personnes que vous côtoyez sur les
vous
répondent sont des utilisateurs passionnés avant tout
temps
professionnel ou privé pour partager leur connaissance
l'utilisation de nos produits. Un grand merci à tous ces
*** Les MVPs ? ***
Les experts utilisateurs également connus sous le nom de
dans
le cadre du programme MVP (Most Valuable Professional)
Microsoft France il y a trois ans.
Concrètement, ce programme permet à toute personne
connaissances
particulières dans le domaine des technologies
prétendre
à une certaine légitimité dans ce domaine - de
nos
communautés via les newsgroups ou de favoriser le
par
une activité communautaire dans d'autres domaines :
livres/articles
techniques, animation de séminaires/formations,
site
Web. Ces passionnés et experts proviennent d'horizons
des
activités variées, et ont en commun une maîtrise accrue
produits ou technologies Microsoft, et la volonté de
ce
savoir avec d'autres utilisateurs. Cette reconnaissance
utilisateurs
leur est attribuée après qu'ils aient été identifiés et
pairs
au sein de la communauté et par des employés Microsoft.
En échange de leur participation, ces utilisateurs ont
nombre
d'avantages. D'abord, ils ont la possibilité de
nos
équipes de développement en France comme aux Etats-Unis.
en
lien avec les newsgroups, de participer à l'amélioration
le
plan fonctionnel et de la sécurité. Ils sont également
conférences que Microsoft organise annuellement. Enfin,
jusqu'à
avoir accès aux codes sources des nos systèmes
Pour en savoir plus sur les MVPs,
*** IMPORTANT ***
Pour éviter de recevoir des messages indésirables
Spam »)
sur votre compte de messagerie habituel, nous vous
utiliser
un adresse de messagerie réelle lorsque vous posez une
répondez dans un newsgroup quel qu'il soit.
Voici 2 principes de bases pour vous prémunir du spam
1. Utiliser une adresse de messagerie légèrement
Utiliser une version différente de votre adresse email
d'autres
utilisateurs pourront facilement interpréter pour vous
personne
mais que les outils de Spam (robots) ne pourront pas
récupérer.
Si par exemple, votre adresse email réelle est
"nom-email@fournisseurinternet.com",
vous pouvez utiliser "nom-email@(supprimerceci)
comme adresse
email modifiée. Dans ce cas, les outils de Spam qui
automatiquement les
adresses email des utilisateurs des newsgroups enverront
indésirable(s) à une adresse fictive/inconnue. Les
vous
répondre ou vous contacter en direct sauront qu'elles
mention
"(supprimerceci) » de votre adresse email. Lorsque vous
une
question pensez à bien indiquer votre adresse email
mention
dite anti-spam ou no-spam, Ex : « (supprimerceci) »)
2. Ou utiliser un compte de messagerie secondaire:
Créer et utiliser un compte de messagerie secondaire
messagerie
habituelle pour poser des questions ou répondre dans les
Merci de votre contribution pour le développement des
Cordialement,
Joel Chaudy
Responsable de la relation avec les Communautés
Microsoft France
PS. Pour me répondre, retirer "online." de l'adresse
diffusion de ce message.
.
-----Message d'origine-----
Cela ne précise pas à quoi tient le respect ! Dans ma
respectueux puisqu'il a posé une question débile !
"Pyroa" <##> a écrit dans
news:ONZt$
Bonjour,
Bienvenue sur le groupe de discussion Visual Basic.Net
(microsoft.public.fr.dotnet.vb)
Dans le but d'améliorer la qualité des échanges, nous
consulter
et d'appliquer, dans la mesure du possible, les conseils
proposés à
cette adresse:
http://support.microsoft.com/directory/worldwide/fr/newsg
Voici quelques conseils :
.. soyez respectueux et courtois,
.. soyez clair dans le titre du message (cela donnera
du
sujet évoqué et facilitera la recherche de messages)
.. soyez concis dans le message
.. le langage de type "chat" ne s'applique pas aux
.. postez en texte brut (HTML inutile),
.. évitez, dans la mesure du possible, l'insertion de
taille
des pièces jointes est filtrée),
.. avant de vous lancer dans les groupes de discussion,
l'utilisent, consultez les différents groupes...
.. ne communiquez jamais vos mots de passe ou votre
dans
vos échanges ou toute information sensible (journaux
et/ou
configuration détaillée de vos systèmes, etc.) qui
d'être
utilisées par un utilisateur malveillant.
.. privilégiez l'utilisation d'un client de news (Ex:
environnement PC ou Entourage sur environnement MAC) à
pour
consulter les newsgroups
.. renseignez un nom de pseudo "parlant"
.. effectuez une recherche dans les newsgroups avant de
Une réponse à votre demande a peut-être déjà été apportée
.. ne postez pas de messages commerciaux ou publicitaires
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES
Votre opinion sur les newsgroups Microsoft nous
vous
remercions de bien vouloir participer à cette enquête (5
seront nécessaires). Les résultats nous serviront à
utilisation des newsgroups et à améliorer ce service de
ce,
afin de mieux vous satisfaire. Soyez assuré que la
réponses sera respectée et que vous ne serez pas
tout autre motif. Toutes vos remarques nous intéressent !
http://collecxia.microsoft.fr/formulaires/forms/enquetene
*** INFORMATION UTILE ***
Nous pensons utile de préciser que tous les
MVPs,
employés Microsoft) qui vous aident activement au
bénévoles.
En effet, toutes les personnes que vous côtoyez sur les
vous
répondent sont des utilisateurs passionnés avant tout
temps
professionnel ou privé pour partager leur connaissance
l'utilisation de nos produits. Un grand merci à tous ces
*** Les MVPs ? ***
Les experts utilisateurs également connus sous le nom de
dans
le cadre du programme MVP (Most Valuable Professional)
Microsoft France il y a trois ans.
Concrètement, ce programme permet à toute personne
connaissances
particulières dans le domaine des technologies
prétendre
à une certaine légitimité dans ce domaine - de
nos
communautés via les newsgroups ou de favoriser le
par
une activité communautaire dans d'autres domaines :
livres/articles
techniques, animation de séminaires/formations,
site
Web. Ces passionnés et experts proviennent d'horizons
des
activités variées, et ont en commun une maîtrise accrue
produits ou technologies Microsoft, et la volonté de
ce
savoir avec d'autres utilisateurs. Cette reconnaissance
utilisateurs
leur est attribuée après qu'ils aient été identifiés et
pairs
au sein de la communauté et par des employés Microsoft.
En échange de leur participation, ces utilisateurs ont
nombre
d'avantages. D'abord, ils ont la possibilité de
nos
équipes de développement en France comme aux Etats-Unis.
en
lien avec les newsgroups, de participer à l'amélioration
le
plan fonctionnel et de la sécurité. Ils sont également
conférences que Microsoft organise annuellement. Enfin,
jusqu'à
avoir accès aux codes sources des nos systèmes
Pour en savoir plus sur les MVPs,
*** IMPORTANT ***
Pour éviter de recevoir des messages indésirables
Spam »)
sur votre compte de messagerie habituel, nous vous
utiliser
un adresse de messagerie réelle lorsque vous posez une
répondez dans un newsgroup quel qu'il soit.
Voici 2 principes de bases pour vous prémunir du spam
1. Utiliser une adresse de messagerie légèrement
Utiliser une version différente de votre adresse email
d'autres
utilisateurs pourront facilement interpréter pour vous
personne
mais que les outils de Spam (robots) ne pourront pas
récupérer.
Si par exemple, votre adresse email réelle est
"",
vous pouvez utiliser "nom-email@(supprimerceci)
comme adresse
email modifiée. Dans ce cas, les outils de Spam qui
automatiquement les
adresses email des utilisateurs des newsgroups enverront
indésirable(s) à une adresse fictive/inconnue. Les
vous
répondre ou vous contacter en direct sauront qu'elles
mention
"(supprimerceci) » de votre adresse email. Lorsque vous
une
question pensez à bien indiquer votre adresse email
mention
dite anti-spam ou no-spam, Ex : « (supprimerceci) »)
2. Ou utiliser un compte de messagerie secondaire:
Créer et utiliser un compte de messagerie secondaire
messagerie
habituelle pour poser des questions ou répondre dans les
Merci de votre contribution pour le développement des
Cordialement,
Joel Chaudy
Responsable de la relation avec les Communautés
Microsoft France
PS. Pour me répondre, retirer "online." de l'adresse
diffusion de ce message.
.