Version imprimable
Bonsoir,
Je viens de trouver un code mais je n'arrive pas a comprendre comment declaré les nom
Vb.net
Pouvez vous m'aider pour les déclarations des noms ?Code:
2
3
4
5
6PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load ofstream fichier; fichier.open("wolfenstein.txt", ios::out | ios::trunc); fichier << nIp << " " << nPort << " " << nPasse << " " << nMod;
Merci
Cordialement,
:koi:
C'est du C++ ou du VB.Net ?
En tout cas il faudrait surement explorer les classes de System.IO ( nottement FileStream et StreamWriter ) ...
En tout cas c'est pas du. NET, je déplace dans le C++Citation:
Envoyé par smyley
euh le code qu'il a trouvé est peut être du C++, mais à la base ce ne serait pas une question VB?
Bonjour,
si bien sur mais bon... il déplace les messages sans savoir.
c'est pas grave je ferme le sujet.
Pour info je fait que du VB.net donc merci si ya des reponses :)
Cordialement,
Merci de le preciser dans le message d'origine !
On ne peux pas deviner vu que tu postes un code C++ sans un forum VB.NET 8O
Cordialement Aspic
Comment re mettre un code de se type en vb ?
Bon je n'y connais rien en C++ donc explique ligne à ligne ce que ton code fait et j'essayerais de te le traduire en VB.NET ;)Citation:
Envoyé par kazylax
Bonjour,
avec se code je voudrais le mettre dans mon appli en VB 2005
que les cases nIp nport se sauvegarde dans un txt pour que je puisse tout réavoir une fois l'appli re lancer
Avez vous compris ?
Cordialement,
Oui ca va :mouarf:Citation:
Envoyé par kazylax
Code:
2
3
4
5
Salut,
Normalement il faut pas le mettre dans le Load du form ?
Cordialement,Code:
2
3
4
5
6
7PrivateSub Form1_Load(ByVal nIp AsString, ByVal nPort AsInteger, ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim flux AsNew IO.StreamWriter("saveinfos.txt", False) flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données flux.Close() 'ferme le fichier EndSub
Comme tu veux mais le mieux est d'appeller la procédure :Citation:
Envoyé par kazylax
Tu mets ce code de le load de ta form.Code:Sauvegarder(T_Ip.text, T_Port.Text, ..., ....) 'appel de la procédure
Re,
Non ca ne marche pas comme ceci
Erreur
Code 1Citation:
Erreur 1 Option Strict On interdit les conversions implicites de 'String' en 'Integer'
Le programme me demande de corriger donc je faitCode:
2
3
4
5
Code:Sauvegarder(Textip.Text,
Code:CInt(Textport.Text))
Code 2
Avez vous une idée?Code:
2
3
4
5
6
7PrivateSub Sauvegarder(ByVal nIp AsString, ByVal nPort AsInteger) Dim flux AsNew IO.StreamWriter("saveinfos.txt", False) flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données flux.Close() 'ferme le fichier EndSub
Cordialement,
Pas de soucis :
Et pour l'appel :Code:
2
3
4
5
6
Code:Sauvegarder(T_Ip.text, T_Port.Text) 'pas besoin de Cint
Normal Dans la fonction c'est un Integer et toi tu passes un String, il faut donc changer Interger en String
Cf mon post que je viens de poster ;)
Re,
les codes son bon Merci je cherche pourquoi ca save pas dans mon txt
Merci encore
Cordialement,
Peut etre parce que tu n'as pas mis le chemin complet... De plus tu dois bien avoir une erreur en retour ? Soit plus explicite !
Non aucune erreur le ficher se place bien dans mon dossier mais aucune info n'est dans le fichier une fois que je l'ouvre ou dans mes texbox
Code:
2
3
4
5
Code:
2
3
4
5
6
7Private Sub Sauvegarder(ByVal nIp As String, ByVal nPort As String) Dim flux As New IO.StreamWriter("saveinfos.txt", False) 'attention chemin complet ici !! flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données flux.Close() 'ferme le fichier End Sub
Comment il peut etre la ou tu veux alors que tu n'as pas indiqué de chemin pour ton fichier texte ?
Met un Try Catch pour intercepter l'erreur !
:aie:Code:
2
3
4
Non du tout aucune erreur je trouve ca bizarre
j'ai rajouter des lignes
Mais toujours pareil rien dans le fichier et rien dans mes textbox quand j'ouvre l'appli.Code:
2
3
4
5
6
7
8
9
10
11
12Private 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
Je cherche un peu partout pour voir si je trouve on vera bien.
Merci pour votre aide :)
Cordialement,
Essaye avec ca :
Code:
2
3
4
5
6
7
8
9
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 ;)Citation:
Envoyé par kazylax
1er Code
Je mets "saveinfos.txt" car sinon si je met avec c:\ ca nira pas pour les clients qui telechargera mon appliCode:
2
3
4
5
6
7
8
9PrivateSub 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
2eme Code
A savoir que je n'est aucune erreur en retour je trouve ca bizarre.Code:
2
3
4
5
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,
Bah alors mets ca :Citation:
Envoyé par kazylax
car sinon c'est normal que ca marche pas si tu ne précises pas le chemin COMPLET !Code:application.startuppath & "\saveinfos.txt"
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 !!Citation:
Envoyé par kazylax
Sinon essaye avec ca :
Code:flux.Write("Test ecriture données") 'ecris les données
Bonjour :)
Donc j'ai fait mes test avec la ligne suivante:
Le text est bien sauvegarder dans le fichier .txtCitation:
flux.Write("test") 'ecris les données
mais comme ceci impossible:
Je ne vois pas l'erreur.Citation:
flux.Write(nIp & vbCrLf & nPort.ToString) 'ecris les données
:merci:
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 15Citation:
Envoyé par Aspic
1er ligne l'ip
2eme ligne le 15
Cordialement,
Et c'est pas ce que tu voulais ??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.Citation:
Envoyé par kazylax
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
Mon 2eme codeCode:
2
3
4
5
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 txtCode:
2
3
4
5
6
7
8
9
10
11PrivateSub 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
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:
2
3
4
5
Maintenant il reste plus cas prendre les infos dans le txt et le re mettre dans met textbox au lancement du programme.Code:
2
3
4
5
6
7
8
9
10
11PrivateSub 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
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
Salut,
Merci beaucoup pour ton aide Aspic j'ai réussi a tout faire avec les codes dans le sujet.
Sujet Fini :p
:merci: