Sauvegarde des TextBox a l'ouverture (convertir en vb.net)

Version imprimable

Voir 40 message(s) de cette discussion en une page

Non du tout aucune erreur je trouve ca bizarre
j'ai rajouter des lignes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Sauvegarder(ByVal nIp As String, ByVal nPort As String) Try Dim flux AsNew IO.StreamWriter("saveinfos.txt", False) 'attention chemin complet ici !! flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données flux.Flush() 'qui sais, ça pourrai peut être marcher flux.Close() 'ferme le fichier Catch ex As IO.IOException 'en cas d'erreurs MsgBox(ex.Message) End Try End Sub
Mais toujours pareil rien dans le fichier et rien dans mes textbox quand j'ouvre l'appli.

Je cherche un peu partout pour voir si je trouve on vera bien.
Merci pour votre aide :)

Cordialement,

Essaye avec ca :

Code:

1
2
3
4
5
6
7
8
9
  Private Sub Sauvegarder(ByVal nIp As String, ByVal nPort As Integer, ByVal Npass As String, ByVal Nmod As String)
try       
 Dim flux As New IO.StreamWriter("C:\saveinfo.txt", False)
        flux.Write(nIp & vbCrLf & nPort.ToString & vbCrLf & Npass & vbCrLf & Nmod) 'ecris les données
        flux.Close() 'ferme le fichier
catch ex as Exeption
   Msgbox(Ex.ToString)
End Try
    End Sub

15/07/2007, 15h08
kazylax

Salut,

Non j'avais deja essayer cette solution mais ca ne marche pas
j'ai pas fini mes modifs encore je test 2 ou 3 trucs on vera si c'est bien ca
Merci :)

Cordialement,
15/07/2007, 15h45
Aspic

Citation:

Envoyé par kazylax

Salut,

Non j'avais deja essayer cette solution mais ca ne marche pas
j'ai pas fini mes modifs encore je test 2 ou 3 trucs on vera si c'est bien ca
Merci :)

Cordialement,

Le code cité ci haut marche très bien chez moi :king: Tu as donc une autre erreur dans ton code. Poste tout et on verras ;)

1er Code
Code:

1 2 3 4 5 6 7 8 9 PrivateSub Sauvegarder(ByVal nIp AsString, ByVal nPort AsString) try Dim flux As New IO.StreamWriter("saveinfo.txt", False) flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données flux.Close() 'ferme le fichier catch ex as Exeption Msgbox(Ex.ToString) End Try End Sub
Je mets "saveinfos.txt" car sinon si je met avec c:\ ca nira pas pour les clients qui telechargera mon appli

2eme Code
Code:

1 2 3 4 5 PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Sauvegarder(Textip.Text, Textport.Text) EndSub
A savoir que je n'est aucune erreur en retour je trouve ca bizarre.
Je re précise que le fichier se crée tout seul mais une fois ouvert apres que j'ai entrée mes infos dans textip et textport rien ne s'affiche et ne se sauvegarde pas.

Cordialement,

15/07/2007, 16h21
Aspic

Citation:

Envoyé par kazylax

saveinfos.txt[/U][/COLOR]" car sinon si je met avec c:\ ca nira pas pour les clients qui telechargera mon appli[/COLOR]

Bah alors mets ca :

Code:

application.startuppath & "\saveinfos.txt"

car sinon c'est normal que ca marche pas si tu ne précises pas le chemin COMPLET !
15/07/2007, 21h12
kazylax

Oui le fichier y va mais aucune info n'est dans le txt
je comprend pas pourquoi ca ne marche pas
Je continue a chercher et tester les codes.

Cordialement,
15/07/2007, 23h48
Aspic

Citation:

Envoyé par kazylax

Oui le fichier y va mais aucune info n'est dans le txt
je comprend pas pourquoi ca ne marche pas
Je continue a chercher et tester les codes.

Cordialement,

C'est impossible regarde les variables avec des espions et des points d'arret pour etre sur qu'elle ne sont pas vide !!

Sinon essaye avec ca :

Code:

flux.Write("Test ecriture données") 'ecris les données
16/07/2007, 05h45
kazylax

Bonjour :)

Donc j'ai fait mes test avec la ligne suivante:

Citation:

flux.Write("test") 'ecris les données

Le text est bien sauvegarder dans le fichier .txt
mais comme ceci impossible:

Citation:

flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données

Je ne vois pas l'erreur.

:merci:
16/07/2007, 12h12
Aspic

Je te parie que nIp et nPort sont vides...

As tu vérifié les variables avec des espions ?

Pour te le prouver, fais ca :

Code:

flux.Write("195.201.124.214" & vbCrLf & "15") 'ecris les données
16/07/2007, 12h18
kazylax

Citation:

Envoyé par Aspic

Je te parie que nIp et nPort sont vides...

As tu vérifié les variables avec des espions ?

Pour te le prouver, fais ca :

Code:

flux.Write("195.201.124.214" & vbCrLf & "15") 'ecris les données

Dans mon fichier txt ya l'ip et 15
1er ligne l'ip
2eme ligne le 15

Cordialement,
16/07/2007, 12h20
Aspic

Citation:

Envoyé par kazylax

Dans mon fichier txt ya l'ip et 15
1er ligne l'ip
2eme ligne le 15

Cordialement,

Et c'est pas ce que tu voulais ??
16/07/2007, 12h24
kazylax

Non en faite je voudrais quand le programme sera libre en telechargement
la personne qui tape une ip et port dans mon appli que ca se sauvegarde dans un txt puis le remet auto dans mes textbox.

Tu comprends se que je veux dire ?

Cordialement,
16/07/2007, 12h27
Aspic

Citation:

Envoyé par kazylax

Non en faite je voudrais quand le programme sera libre en telechargement
la personne qui tape une ip et port dans mon appli que ca se sauvegarde dans un txt puis le remet auto dans mes textbox.

Tu comprends se que je veux dire ?

Cordialement,

Oui j'ai compris, avec des variables au lieu de préprogrammer l'ip et le port comme tu as fait tout à l'heure. Mais tes variables sont forcement vides si ton fichier txt est vide ! Car on vient de faire le test et ca marche très bien avec des chaines de caractères prédéfinies.

Donc l'erreur est ailleurs. Poste toute ta procédure pour que je vois où est l'erreur. On tourne en rond depuis pas mal de temps :?

Ok

Donc mon 1er code
Code:

1 2 3 4 5 PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Sauvegarder(Textip.Text, Textport.Text) 'pas besoin de Cint EndSub
Mon 2eme code
Code:

1 2 3 4 5 6 7 8 9 10 11 PrivateSub Sauvegarder(ByVal nIp AsString, ByVal nPort AsString) Try Dim flux AsNew IO.StreamWriter("saveinfo.txt", False) flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données flux.Close() 'ferme le fichier Catch ex As Exception MsgBox(ex.ToString) EndTry EndSub
Ou alors j'essaye de le faire en bouton direct si la personne clique sur le bouton ca remet l'ip et port qui est save dans le txt mais c'est toujours pareil j'arrive pas a save mon ip et port dans mon txt

Je re dit dans mon appli je rentre ip et port sur mes textbox et je valide et tout se save dans un txt.

Merci pour votre patience.

Cordialement,

Donc voila avec bouton ca marche :)
j'ai fait comme ceci:

Code:

1
2
3
4
5

PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Sauvegarder(Textip.Text, Textport.Text) 'pas besoin de Cint
EndSub

Code:

1
2
3
4
5
6
7
8
9
10
11

PrivateSub Sauvegarder(ByVal nIp AsString, ByVal nPort AsString)
Try
Dim flux AsNew IO.StreamWriter("saveinfo.txt", False)
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
flux.Close() 'ferme le fichier
Catch ex As Exception
MsgBox(ex.ToString)
EndTry
EndSub

Maintenant il reste plus cas prendre les infos dans le txt et le re mettre dans met textbox au lancement du programme.

16/07/2007, 12h46
Aspic

Ah Ok... Fallait me le dire que tu avais mis le code dans Form_Load :mouarf:

C'est normal que ca marchait pas car tes textbox étaient encore vides au demarrage !

Maintenant pour les Load, tu fais l'opération inverse :

:fleche: tu ouvres ton fichier texte en lecture
:fleche: tu lis les données en un coup (fonction ReadToEnd)
:fleche: tu splits ta chaine avec VbCrLf comme séparateur (fonction Split)
:fleche: tu récupères tes données dans ton tableau de string.

Cdl
16/07/2007, 14h02
kazylax

Salut,

Merci beaucoup pour ton aide Aspic j'ai réussi a tout faire avec les codes dans le sujet.

Sujet Fini :p

:merci:

Voir 40 message(s) de cette discussion en une page