"Open n'est pas déclaré"Résolu

Question

Bonjour,

J'aimerai savoir comment écrire un fichier .txt, à savoir :

Supprimer les lignes 1,2,3
Editer les lignes 1,2,3

Mais le problême, c'est qu'il me met "Open is not declared. File I/O functionnality is avaible in the "Microsoft.VisualBasic" namespace"

J'utilise Microsoft Visual Basic 2008 Express edition

S'il vout plaît, c'est urgent !

cs_fauve · Accepted Answer

Salut,

Pour écrire dans un fichier : ' Instanciation et déclaration d'une variable ' pour écrire dans un fichier Dim SW As New IO.StreamWriter( "D:\monfichier.txt" ) ' Ecrit dans le fichier : Bienvenue sur SW.WriteLine("Bienvenue sur") ' Ecrit à la ligne suivante : http://www.codes-sources.com/ SW.WriteLine("http://www.codes-sources.com/") ' On ferme le fichier SW.Close()

Pour lire ce même fichier ' Instanciation et déclaration d'une variable ' pour lire le contenu du fichier Dim SR As New IO.StreamReader( "D:\monfichier.txt" ) ' Boucle parcourant toutes les lignes du ' fichier Do Until SR.Peek = -1 ' SR.ReadLine() retourne le contenu d'une ' ligne ' au prochain SR.ReadLine(), on récupèrera ' la ligne suivante MsgBox(SR.ReadLine()) ' Dans cet exemple, on affichera : Bienvenue sur ' puis : http://www.codes-sources.com/ Loop ' On ferme le fichier SR.Close()

++ Fauve

Pensez : Réponse Acceptée

natinusala · Answer

Ouais super merciiiiii !

cs_fauve · Answer

N'oublies pas de cliquer sur le bouton Réponse Acceptée

++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Merci beaucoup (encore) mais j'aimerai que quand je clique sur Button1 il affiche le contenu de TextBox1.Text dans le RichTextBox1, et quand je clique sur le button2, il enregistre le contenu du RichTextBox1 dans le fichier TextBox1.Text (en remplacant tout évidemment)

cs_fauve · Answer

Salut, Il faut alors adapter la façon de lire le fichier. Voici une fonction dont tu envois le chemin d'accès complet du fichier à lire en paramètre et il te retourne la totalité du contenu du fichier. Public Function LireFichier(ByVal FileName As String) As String Dim SR As New IO.StreamReader(FileName) Return SR.ReadToEnd() SR.Close() End Function

Syntaxe : TextBox1.Text = LireFichier( "D: est.txt" ) RichTextBox1.Text = LireFichier("D: est.txt")

++ Fauve

Pensez : Réponse Acceptée

natinusala · Answer

Fort bien, fort bien, mais pour enregistrer, en sachant que le .txt est utilisé dans un autre processus ?

cs_fauve · Answer

Si tu souhaites enregistrer ça ne pose aucun problème car juste avant la fin de la fonction, je fais SR.Close() donc le fichier n'est plus utilisé. Ensuite pour écrire le contenu de la TextBox ou RichTextBox :

Public Function EcrireFichier(ByVal FileName As String, ByVal Texte As String, Optional ByRef MsgErreur As String = "" ) As Boolean ' Try Permet d'intercepter tout erreur qui se produirait ' pendant l'exécution du programme pour le code se trouvant ' entre Try et Catch ex As Exception Try ' Ouvre ou crée le fichier pour enregistrer Dim SW As New IO.StreamWriter(FileName) ' Ecrit le contenu de la variable dans le fichier SW.WriteLine(Texte) ' On ferme le fichier SW.Close() ' On retourne True car l'enregistrement ' s'est bien passé Return True ' Si une erreur vient à se produire par exemple, ' Le fichier est cours d'utilisation par un autre ' processus Catch ex As Exception ' On stocke le message de l'erreur dans la variable ' MsgErreur ce qui permet de pouvoir connaitre la ' raison de l'erreur MsgErreur = ex.Message ' On retourne False car l'enregistrement ne s'est ' pas bien passé Return False End Try End Function

Syntaxe : EcrireFichier( "D: est.txt" , TextBox1.Text, MessageErreur) EcrireFichier("D: est.txt", RichTextBox1.Text, MessageErreur) Retourne True ou False cela dépend si l'enregistrement c'est bien passé. Si la fonction EcrireFichier retourne False , tu peux utiliser la variable MessageErreur de type String pour savoir quelle erreur a été rencontré. ++ Fauve

Pensez : Réponse Acceptée

natinusala · Answer

Merci!

Et, enfin, comment faire ça sous le logiciel que j'utilise ?

cs_fauve · Answer

Je voudrais savoir tu programmes bien en VB.NET ? car sur le lien ci-dessus, tu parles de VBA.

<hr size="2" width="100%" />Pensez : Réponse Acceptée

cs_fauve · Answer

J'avais mal compris ta précédente question désolé 

Oui c'est à tout fait possible de faire çà... Mais faut être plus précis, qu'est ce que tu veux faire avec le bouton Parcourir, sélectionner un fichier pour l'ouvrir, sélectionner un fichier pour le sauvegarder ou sélectionner un dossier ? Car la manière de procéder ne sera pas la même.

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

En fait, je veut, dans le code button1, que lorsque l'on clique dessus, un explorateur s'ouvre, l'utilisateur peut choisir un fichier et faire "ouvrir" : le chemin du fichier s'inscrit dans textbox1.text !

cs_fauve · Answer

Salut,

Voici un exemple de code (à mettre l'évènement Click d'un bouton) :





Dim
 Ofd As New OpenFileDialog

' Affiche un message d'avertissement si l'utilisateur
' spécifie un nom de fichier inexistant
Ofd.CheckFileExists =    True 

' Affiche un message d'avertissement si l'utilisateur
' spécifie un chemin d'accès inexistant
Ofd.CheckPathExists  = True

' Permet de choisir les fichiers qui doivent être affichés
' ici, on affiche tous les fichiers sans exceptions
Ofd.Filter =   "*.*|*.*" 

' On définit le répertoire affiché au démarrage
' Ici, c'est le répertoire Mes Documents
Ofd.InitialDirectory  = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

' On affiche la boîte de dialogue et on teste si l'utilisateur
' a cliqué sur OK
 If  Ofd.ShowDialog()  = Windows.Forms.DialogResult.OK Then
     ' On affiche le chemin d'accès complet du fichier
     ' dans la TextBox
     TextBox1.Text =  Ofd.FileName
 End If 





++

Fauve

<hr size ="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

C'est seulement... parfait ! mais, mais... (oui je suis ch****) quand j'enregistre, il remplace les retours à la ligne par des carrés !

cs_fauve · Answer

Salut,

Peux tu mettre le code que tu utilises pour lire et écrire dans le fichier ? 

Mais normalement, si tu enregistres le contenu d'une TextBox qui contient des Environment.NewLine dans le fichier, puis en effaçant le contenu de la TextBox et enfin en chargeant de nouveau le fichier pour remettre le contenu dans la TextBox, ça devrait normalement fonctionner.

++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Ben c'est ce que tu m'as donné hein, mais, je me suis rendu compte que sous Notepad++ il mettait bien les retours à la ligne... A voir !.......

cs_fauve · Answer

Notepad++ ne reconnait pas le caractère Environment.NewLine dans un fichier mais quand tu reliras ton fichier avec ton programme, cela fonctionnera sans aucun problème.

++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Super ! Fichier

whitelegend · Answer

Bonjour à tous,

Je voudrais savoir svp comment faire pour exploiter la variable "string" "MsgErreur" dans la fonction 

EcrireFichier()

 dans le code de l'évènement du Button "Enregistrer"

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    If EcrireFichier(TextBox1.Text, RichTextBox1.Text) Then
        MsgBox("ecriture réussie!")
    Else
        MsgBox("Le fichier n'as pas été enregistré à cause de l'erreur: " & MsgErreur
)
    End If

End Sub

Merci d'avance

LC
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

whitelegend · Answer

Re à nouveau ...

A priori l'instruction SR.Close() dans la fonction "LireFichier()" ne veut pas être lu .... et donc l'enregistrement plante toujours car le fichier n'est jamais fermé...

Si en mode débug je force le curseur d'éxécution (la flèche jaune) à pointer sur la ligne SR.Close() pour forcer l'éxécution elle refuse d'y aller...

Si je pose un breakpoint sur cette instruction, le programme ne break jamais...

Une idée ?

LC

__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

cs_fauve · Answer

Salut,

Voici comment récupérer le message de l'erreur avec la fonction EcrireFichier :





Dim
 Erreur As String =    "" 

 If  EcrireFichier(TextBox1.Text, RichTextBox1.Text, Erreur) Then
     MsgBox("ecriture réussie!")
Else
     MsgBox("Le fichier n'as pas été enregistré à cause de l'erreur: " & Erreur)
End If





++

Fauve

<hr size  ="2" width="100%" />
Pensez : Réponse Acceptée

cs_fauve · Answer

Pour le problème avec l'instruction SR.Close(), cela vient peut être que quand on fait Return, le programme croit qu'on est arrivé à la fin de la fonction donc il fait pas SR.Close(). Ça mettait déjà arrivé...





Public Function
  LireFichier(ByVal FileName As String) As String
     Dim SR As New IO.StreamReader(FileName)
     Dim str As String

     str =  SR.ReadToEnd()

     SR.Close()

      Return  str
End Function

++

Fauve





<hr size ="2" width="100%" />
Pensez : Réponse Acceptée

whitelegend · Answer

Fauve,

Tout simplement parfait !!!

Merci bcp ( j'accepterai pas le réponses c'est pas mon sujet xD dsl ;) )

Nota: intéressant de savoir que "Return" dans une fonction quitte la fonction après éxécution ....

LC

__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

natinusala · Answer

Et alors, vous pensez quoi de EasyTXT ? Des améliorations, ou tout est parfait ?

whitelegend · Answer

A quoi sert ton bouton "ouvrir" ?

Quand on valide la "openfieldialog" le fichier s'ouvre automatiquement dans la richtextbox, tu as donc du mettre la fonction "lirefichier" dans la condition:

If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then

Sinon je trouve ca sympa et pratique. Une interface plus engageante serait pas de refus mais bon, dès fois c'est l'utilité qui prime ;)

En tous cas ce sujet apportera toutes les infos nécessaire à ceux qui voudrons manipuler des fichier txt en .net.

LC 
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

whitelegend · Answer

Il serait aussi intéressant de gérer toutes les exceptions de ton programme.

Si l'on clique sur ouvrir après le lacement du programme ( le textbox est donc vide) le programme plante

Rajoute un 

On Error resume Next
....
On Error Goto 0

Autour de ton code du Bouton ouvrir ( méthode de bourrin mais qui à le mérite de gérer tous les plantages .. : champ vide, fichier qui n'existe pas, chemin erroné, fichier non .txt ...)

Sinon le:

if Textbox1.text <> "" then

Pour exécuter la lecture seulement si la textbox n'est pas vide, mais plantage si le chemin n'est pas bon ...

Voilà j'espère avoir été constructif  pour ton projet :)

LC
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

natinusala · Answer

Heuuuuuuuuuuu... Ba les gens ont qu'a mettre un chemin valide na !

cs_fauve · Answer

Salut, Je trouve ton comportement un peu excessif non ?[../auteur/NATINUSALA/1285607.aspx natinusala] Tu crée une application et il n'y aucune sécurité derrière comme par exemple, empêcher de faire ouvrir tant que la TextBox est vide. Quelqu'un fait la remarque d'une exception qui n'est pas gérée et voilà ce que tu mets :

Heuuuuuuuuuuu... Ba les gens ont qu'a mettre un chemin valide na !

Quand on conçoit une application, il faut gérer toutes les exceptions qui pourraient se produire. Car je vois pas un développeur professionnel dire à un de ses clients >>> Heuuuuuuuuuuu... Ben vous n'avez qu'a mettre un chemin valide na ! mdr Pour revenir à ton cas, avant d'ouvrir le fichier spécifié, il faut tester au préalable si la TextBox contient bien quelque chose et que le fichier spécifié existe bien. ++ Fauve

Pensez : Réponse Acceptée

whitelegend · Answer

Bah la prochaine fois on ne laissera pas de commentaires.... mais faut pas en demander.

Après si c'est de flatterie que tu recherchais ca ne sert a rien sinon flatter un ego, mais en aucun cas te rendre un programmeur plus performant.

De plus je t'ai donner la solution simple et rapide pour régler TOUT les pb avec le on error ...

Donc bon ... fauve à raison là .... un peu d'introspection stp 

LC
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

natinusala · Answer

J'avoue... Mais, je suis un peu pourri (beaucoup même) en VB, et, merci whitelegend, mais... je ne sais pas où mettre ce que tu m'as donné

whitelegend · Answer

Re,

Dans la procédure ton bouton "Ouvrir" tu met :
On Error resume Next
au début de ta procédure et: 
On Error Goto 0
A la fin

Ca te donnera un code comme ceci:

Sub 
Button1_Click()

    On Error resume Next
    If OpenFileDialog1.ShowDialog() =  Windows.Forms.DialogResult.OK  Then 
         ' On affiche le chemin d'accès complet du fichier
         ' dans la TextBox
         TextBox1.Text  =OpenFileDialog1.FileName
    End If
    On Error Goto 0
End Sub

LC  
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

whitelegend · Answer

RE...

avec quelques explication c'est plus sympa.

Il faut que tu saches que pendant l'éxécution d'un code placé au milieu des intructions ci-dessous, s'il s eproduit une erreur le programme sautera directement à la fin de ce bloc sans renovyer d'erreur.

On Error resume Next'S'il se produit une erreur alors sauter sur la lignes "On Error Goto 0"  sans éxécuter le reste
.....
.....
.....
On Error Goto 0 ' A partir d'ici la gestion d'erreur est arrétée

Vala j"espère que c'est plus clair pour toi maintenant 

LC
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

whitelegend · Answer

RE...

avec quelques explication c'est plus sympa.

Il faut que tu saches que pendant l'éxécution d'un code placé au milieu des intructions ci-dessous, s'il s eproduit une erreur le programme sautera directement à la fin de ce bloc sans renovyer d'erreur.

On Error resume Next'S'il se produit une erreur alors sauter sur la lignes "On Error Goto 0"  sans éxécuter le reste
.....
.....
.....
On Error Goto 0 ' A partir d'ici la gestion d'erreur est arrétée

Vala j"espère que c'est plus clair pour toi maintenant 

LC
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

natinusala · Answer

Suuuper merci je vous adore, je te rajoute dans les crédits whitelegend !

natinusala · Answer

New release : ici

cs_fauve · Answer

Salut,

J'ai découvert un autre bug >>> Clique sur Parcourir puis fait Annuler.

Tu dois te dire mais comment fait on pour découvrir des bugs aussi vite 

++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Hummm...... C'est ton code ! Hahaaaa ! Nan je deconne... Quelqun sait ou je pourrai prendre des cours de VB (sur le logiciel que j'utilise) gratuitement ? Et pour l'erreur, je vois vraiment pas d'où ca vient...

cs_fauve · Answer

Pour avoir un cours sur le VB.NET :
http://plasserre.developpez.com/vsommair.htm

Sinon est ce que tu peut mettre le code de ton bouton Parcourir ?

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Si ! New release : go here

cs_fauve · Answer

C'est bon cette fois-ci çà fonctionne, en revanche, tu devrais mettre un filtre dans l'OpenFileDialog pour n'afficher que les fichiers ayant l'extension txt et contrôler avant de charger le fichier si l'extension est bien txt vu que l'utilisateur peut faire un copier/coller du chemin de n'importe quel fichier directement dans la TextBox...


<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

eh bien justement non ! car EasyTXT permet aussi de modifier des fichiers autres que .txt sinon ca sert à rien :-/

cs_fauve · Answer

Ben dans ce cas là, tu peux mettre plusieurs filtres avec l'extension de chaque fichier que prends en charge ton application (.txt, .rtf, ...)

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

natinusala · Answer

Heuu ce que j'ai mis marche mais il affiche que les PHP pourquoi ?

cs_fauve · Answer

C'est normal, il faut définir tous les filtres dans Filter, tu définis le filtre tous les fichiers, puis le filtre sur les fichiers txt et ainsi de suite donc c'est le dernier qui pris en compte

<hr size="2" width="100%" />Pensez : Réponse Acceptée

cs_fauve · Answer

natinusala · Answer

Hum... Dans Filter, c'est à dire ? Et au fait j'aimerai savoir comment avoir VB 2008 Express Edition en francais sans tout réinstaller... Ce serai mieux je pense pour l'apprentissage !

natinusala · Answer

Ah ok merci

cs_fauve · Answer

Comment çà sans tout réinstaller ?

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Neeew release avec 16 filtres ! ici !

natinusala · Answer

Ba sans réinstaller le programme je sais pas modifier enUK.lang par frFR.lang une manip comme sa ou tout simplement dans les options...

cs_fauve · Answer

En revanche, tu n'as pas répondu à ma question ...

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Quelle rapidité ! WOW ! euh la question était ? lol

cs_fauve · Answer

Tu as y répondu à la question

Mais en revanche c'est quoi 

enUK.lang ?

frFR.lang ?


<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Je sais pas le fichier de langue... C'est un exemple hein !

cs_fauve · Answer

Encore un petit soucis avec ton programme, avant de faire Ouvrir, il faut que tu contrôles si le chemin d'accès correspond bien à une des extensions que ton application gère car si on utilise Parcourir il y a pas de soucis mais si l'utilisateur entre le chemin d'accès manuellement (un fichier doc par exemple ben çà ne fonctionne pas)

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Aïe !

natinusala · Answer

Hum la seule solution pour l'instant c'est soit de faire un filtre dans ouvrir aussi ou de supprimer ouvrir et de remplacer la textbox1 par une variable (je préfère le premier choix)

cs_fauve · Answer

Je sais je suis embêtant  mais faut faire fasse à toutes les possibilités.

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Oui oui j'ai rien dit contre toi ! ("Open n'est pas déclaré", salon de chat !)

natinusala · Answer

Mais, ca bug pas j'ai ouvert un .exe il est juste compilé donc incompréhensible !

cs_fauve · Answer

Voici un début de code pour contrôler si l'extension du chemin d'accès du fichier dans TextBox1 est correct : If My.Computer.FileSystem.FileExists(TextBox1.Text) = True Then Dim Fi As New IO.FileInfo(TextBox1.Text) ' A faire pour toutes les extensions ' j'en ai fait seulement pour quelques unes If Fi.Extension <> ".txt" And Fi.Extension <> ".html" And Fi.Extension <> ".htm" And Fi.Extension <> ".php" And Fi.Extension <> ".phtml" Then Exit Sub Else ' Suite du code du bouton Ouvrir End If End If

Pensez : Réponse Acceptée

natinusala · Answer

Ooook je teste !

natinusala · Answer

Bien, bien mais comment faire pour que msgbox("EasyTXT ne prend en charge que les extension ...........................") lors d'une erreur ?

whitelegend · Answer

ah ben je vois que ton application à cachement avancée depuis hier !! super!! Pour afficher ton message de prise en charge place le juste avant le Exit Sub dans le bout de code de fauve If Fi.Extension <> ".txt" And Fi.Extension <> ".html" And Fi.Extension <> ".htm" And Fi.Extension <> ".php" And Fi.Extension <> ".phtml" Then msgbox("EasyTXT ne prend en charge que les extension ...........................") Exit Sub Else Par contre dans ta dernière version je n'ai pas de filtre dans l'OpenFileDialog... je peux donc ouvrir tout les formats possible... Cette version inclus t-elle les filtres comme dit sur le message ? Sinon ca parait pas mal maintenant même si on peu toujours améliorer . En revanche j'avais remarquer un petit truc de rien du tout dès le début mais qui gâche un peu l'esthétique de ton application c'est ta RichTextBox est plus grande que ta Form...Redimensionne donc la Form ou la Box pour un effet Visuel plus sympa Ah oui un dernier petit truc utile pour pouvoir quitter ton appli "proprement" rajoute un dernier boutton que tu appelleras "Quitter" et dans lequel tu rajoute le code: End Ce bouton terminera donc ton programme de facon correct plutot que la croix de ton Form Windows Voili voilou LC __________________________________________________________________________ Pensez à accepter les réponses qui vous servent

cs_fauve · Answer

Salut,

La dernière version comporte 16 filtres pour l'OpenFileDialog et oui je l'avais pas remarqué mais faudra redimensionner soit ta form soit ta RichTextBox

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Merci !  Et, enfin dernière question (je pense) : comment faire pour que lorsqu'on a On Error GoTo 0 il mette msgbox(textbox1.text" n'existe pas !") ?

natinusala · Answer

whitelegend tu n'as pas Microsoft.NET Framework 3.5 j'en suis sûr, sinon tu aurais les filtres...

natinusala · Answer

New release avec (presques) toutes les exeptions gérées et la RichTextBox redimensionnée ! ici

cs_fauve · Answer

Salut, If My .Computer.FileSystem.FileExists(TextBox1.Text) = True Then Dim Fi As New IO.FileInfo(TextBox1.Text) ' A faire pour toutes les extensions ' j'en ai fait seulement pour quelques unes If Fi.Extension <> ".txt" And Fi.Extension <> ".html" And Fi.Extension <> ".htm" And Fi.Extension <> ".php" And Fi.Extension <> ".phtml" Then Exit Sub Else ' Suite du code du bouton Ouvrir End If Else MsgBox("Le fichier que vous avez spécifié n'existe pas !!!") End If Ps : Faut éviter de faire goto, l'utilisation de celui est peu élégante et cela casse la structure du code qui se déroule de haut en bas ++ Fauve

Pensez : Réponse Acceptée

natinusala · Answer

Woaw ! En fait, le VB c'est simple... Alors, j'utilise le VB, VBA, VBS ou VB.NET ? Je sais pas....... 

New release : version finale ! (enfin je crois...)

Et vous pensez quoi de l'îcone fait avec ZNSoft Icon Maker ?

cs_fauve · Answer

Ben ça dépend de toi, tu choisis le langage avec lequel tu te sens le plus à l'aise

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Celui-la c'est lequel ?

cs_fauve · Answer

Là, tu codes en VB.NET

<hr size="2" width="100%" />Pensez : Réponse Acceptée

whitelegend · Answer

Désolé pour l'histoire des filtres, mais c'était un manque de connaissance de l'objet "OpenFileDialog"... j'ai bien les filtres...

Pour le langages, c'est du vb.net que tu utilises actuellement

Ton programme à l'air pas mal maintenant avec effectivement toutes les exceptions de gérées ( enfin j'ai pas gratté non plus pour chercher les bugs.

Je voudrais revenir sur un petit point que j'avais signalé plus tôt mais qui devient plus important maintenant vu la structure de ton prog.

Je disais que quand on valide l'OpenFileDialog le fichier s'ouvre instantanément, et à coté on à une protection sur le fichier "Ouvrir" si l'extension n'est pas bonne ... donc au final le fichier .exe par exemple est quand même ouvert ...

Donc voilà à toi de voir comment modifier ou pas ce point (test de l'extension sur la validation de l'OpenFileDialog, ou suppression de l'ouverture du fichier sur cette commande qui rends donc le bouton ouvrir inutile)

Sinon pour un 1er projet c'est bien en tous cas de peaufiner comme tu le fais 

LC

__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

cs_fauve · Answer

A mon avis, il devrait retirer le filtre pour afficher tous les fichiers car certaines extensions ne passent pas (doc, pdf, ...) ou alors rajouter le code qui contrôle l'extension du fichier dans le bouton Parcourir.

<hr size="2" width="100%" />Pensez : Réponse Acceptée

cs_fauve · Answer

Et aussi petit truc à rajouter si l'utilisateur modifié le contenu d'un fichier et qu'il quitte le programme ben les modifications sont perdus. Il faut donc que tu détectes si une modification a été effectué dans la RichTextBox.

Voici une piste :

Tu déclares une variable modif de type booléen que tu initialises à False

1°) Dés que le contenu de la RichTextBox est modifiée, tu mets modif à True
2°) Si tu cliques sur Enregistrer, tu mets modif à False
3°) Si tu ouvres un autre fichier, tester si la variable modif est à True, si c'est le cas, il faut l'enregistrer ( affichage d'un message à l'utilisateur s'il souhaite ou non enregistrer le fichier). A la fin, remettre modif à False et charger le nouveau fichier.
4°) Si tu quittes l'application et que modif est à True, il faut sauvegarder le fichier ( affichage d'un message à l'utilisateur s'il souhaite ou non enregistrer le fichier )

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Hum.. J'ai rajouté un SpashScreen et un bouton "Quitter" !

J'ai rien compris à ce que tu as dis Fauve... Enfin si, mais je sais pas comment faire pour que le logiciel check si on modifie la richtextbox et si on quitte avec la croix, il peut pas demander il faut mettre le code dans quitter ? sinon je sais comment faire !

Et des idées pour le design ?

natinusala · Answer

J'y arrive paaaaaaaaaas !!!

cs_fauve · Answer

L'évènement pour détecter si une modification a eu lieu dans la RichTextBox c'est :

RichTextBox1_TextChanged

Pour détecter la fermeture de ton application : 

Form1_FormClosing

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Hum... Il ne me manque plus que le code du msgbox oui/non je l'avais trouvé c'est avec if vbyes then .....
if vbno then ..... mais je sais plus comment poser la question.......

cs_fauve · Answer

If
 MsgBox("Souhaitez-vous enregistrer le fichier ?", MsgBoxStyle.YesNo Or MsgBoxStyle.Information, "Enregistrement...") =  MsgBoxResult.Yes  Then 
     ' Enregistrer le fichier
Else
     ' Effectuer une autre action (exemple : on tente d'ouvrir un fichier et on a cliqué sur non
     ' pour l'enregistrement du fichier >>> on ouvre le nouveau fichier)
End If





<hr size ="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Hum y'a beaucoup d'erreurs dans ce que tu m'as donné, ca vient peut être de moi !

cs_fauve · Answer

Ben peux tu mettre l'archive de ton projet contenant tout le code sur FileBeam et me donner le lien par message privé pour le télécharger et ensuite je pourrais voir le code dans son intégralité et je serais mieux à même de t'aider.

Libre à toi, c'est toi qui choisis.

++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Argument not specified for parameter 'e' of 'Private Sub RichTextBox1_TextChanged(sender As Object, e As System.EventArgs)'.   

Argument not specified for parameter 'sender' of 'Private Sub RichTextBox1_TextChanged(sender As Object, e As System.EventArgs)'.  

Voila ce qu'il met pour RichTextBox1_TextChanged

natinusala · Answer

Et Form1_FormClosing n'existe pas hein......

natinusala · Answer

"Argument not specified for parameter 'e' of 'Private Sub RichTextBox1_TextChanged(sender As Object, e As System.EventArgs)'.   

Argument
not specified for parameter 'sender' of 'Private Sub
RichTextBox1_TextChanged(sender As Object, e As System.EventArgs)'. "

Voila aussi pourquoi j'aimerai l'avoir en francais...

cs_fauve · Answer

Salut,

Là çà devient un peu tordu, il faut que je vois ton code en entier 


Ben peux tu mettre l'archive de ton
projet contenant tout le code sur FileBeam et me donner le lien par
message privé pour le télécharger et ensuite je pourrais voir le code
dans son intégralité et je serais mieux à même de t'aider et t'aiguiller sur ce qui coince






<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Mais non mais le bug viens juste de Form1_FormClosing et RichTextBox_TextChanged, qui n'existent tout simplement pas en VB.NET !

cs_fauve · Answer

Oh que si, elles existent. J'ai déjà utilisé ces 2 évènements

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Private Sub Form1_FormClosing(ByVal sender AsObject, ByVal e As System.Windows.Forms.FormClosingEventArgs)

If RichTextBox1_TextChanged Then 
If  				MsgBox("Souhaitez-vous enregistrer le fichier ?", MsgBoxStyle.YesNo Or MsgBoxStyle.Information, "Enregistrement...") = MsgBoxResult.Yes Then
 EcrireFichier(TextBox1.Text, RichTextBox1.Text, "Erreur lors de l'enregistrement.")   
Else
End
End If

natinusala · Answer

Corrige ce code s'il y a des erreurs (il y en a sur RichTextBox1_TextChanged apparement j'ai pas saisi toutes les valeurs...)

cs_fauve · Answer

Salut,

Tu as l'air un peu perdu avec tout cà, je vais t'aiguiller :





Private Sub
 RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
     ' modif à True car une modification a été effectuée dans la
     ' RichTextBox
     modif =   True 
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
     If modif  = True Then
          ' Code pour enregistrer le fichier
     End If
End Sub







<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles RichTextBox1.TextChanged
        If textloaded = False Then
            MsgBox("Quel fichier ?")
        End If
    End Sub

en francais : si on écrit dans la richtextbox sans fichier ouvert il affiche le message

résultat : crash quand on écrit quelquechose dans la richtextbox sans ayant ouvert de fichier

cs_fauve · Answer

Ben çà dépend ce que tu as comme code dans l'évènement RichTextBox1_TextChanged, peux tu le mettre s'il te plait ?

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Evènement RichTextBox_TextChanged ?

cs_fauve · Answer

Oui, quand tu doubles clic sur une RichTextBox, tu as cet évènement qui apparait et ce que je veux c'est le code qui se trouve dedans.

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

Woah merci de cette réponse qui était censé être une question mais qui as tout débloqué donc nex release peeerfect : here

C'est parfait

cs_fauve · Answer

Juste encore un petit soucis si tu ouvres un fichier que tu le modifie, ensuite tu cliques sur le bouton Parcourir et tu choisis un autre fichier txt à ouvrir. Ben ton application ne propose pas d'enregistrer les modifications.

C'est le dernier bug que j'ai trouvé.


<hr size="2" width="100%" />
Pensez : Réponse Acceptée

cs_fauve · Answer

Et encore un autre, désolé , si tu ouvres un fichier txt et que tu quittes ton application sans modifier le fichier, il te propose d'enregistrer le fichier alors qu'il y a eu aucune modification.

La raison, c'est que en mettant le contenu du fichier dans la RichTextBox, tu déclenche son évènement TextChanged. Il faut penser après avoir mis tout le contenu du fichier dans la RichTextBox à mettre la variable modif à False


<hr size="2" width="100%" />
Pensez : Réponse Acceptée

cs_fauve · Answer

Et sinon juste changé le texte du SplashScreen. Remplacer :


Avec l'aimable contribution de le Fauve et de whitelegend.




par 


Avec l'aimable contribution de fauve et de whitelegend




Mais c'est des petits détails de rien du tout mais çà sonne un peu mieux .


<hr size="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

whitelegend · Answer

Salut,

Héhé sympa le clin d'oeil sur le splashscreen  merci ^^

Sinon je pense que ce projet t'auras beaucoup aidé dans la compréhension de vb.net et VB2008.

LC

__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

cs_fauve · Answer

Oui c'est vrai mais ce qu'il a vu c'est la partie visible de l'iceberg, il en reste une très grosse partie qui est caché  et merci pour le SplashScreen

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

de rien !

natinusala · Answer

Comment on met "Résolu" ?

natinusala · Answer

En fait non (lol) je voudrai savoir comment envoyer le contenu de RichTextBox1.Text vers une adresse e-mail ?

whitelegend · Answer

Re,

Normalement pour les nouveaux problèmes -> nouveau sujet... 

Mais bon on va faire exception  

Utilse la fonction "mailto" avec process.start()

Process.Start("mailto:xxx@xxxx.xxx")

Tu peu assi rajouter le sujet, le corp etc... mais je ne me souviens plus de la syntaxe exact pour ca.... avec quelques recherches sur VBFrance tu trouveras vite ;)

LC

__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

natinusala · Answer

Heu oui mais non... 

Overload resolution failed because no accessible 'Start' accepts this number of arguments.   

Dis moi s'il faut que je fasse un autre post !

whitelegend · Answer

Salut,

Un autre post oui, mais avant fait des recherches sur VBFRance y a vraiment une multitude incroyable de sources et solutions pout l'envoi de mail en vb.net, donc tu ne devrais même certainement pas avoir besoin de demander de l'aide pour ca^^ tu verras.

LC
__________________________________________________________________________
Pensez à accepter les réponses qui vous servent

cs_fauve · Answer

Salut,

Voici un code que j'avais sous la main pour envoyer un mail. Il te reste plus qu'à le paramétrer :





Private Function
 EnvoyerMail() As Boolean

     Dim objMessage As System.Net.Mail.MailMessage
     Dim objAdrExp As System.Net.Mail.MailAddress
     Dim objAdrRec As System.Net.Mail.MailAddress
     Dim objSMTPClient As System.Net.Mail.SmtpClient

     Try
          objMessage =    New  System.Net.Mail.MailMessage()
          ' Expéditeur
          objAdrExp  = New System.Net.Mail.MailAddress( "xxx@hotmail.com" )
          ' Destinataire
          objAdrRec  =   New  System.Net.Mail.MailAddress("xxx@gmail.com")

          ' Adresse email de l'expéditeur
          objMessage.From  =  objAdrExp

          ' Adresse email du destinataire
          objMessage.To.Add(objAdrRec)

         



' Sujet de l'email

         objMessage.Subject =   "Ceci est un test" 
         ' Définit si le message accepte le html
         objMessage.IsBodyHtml  = False 

         ' Message de l'email
         objMessage.Body  =   "http://www.codes-sources.com/" 










          ' Définit la priorité de l'email
          objMessage.Priority  =  Net.Mail.MailPriority.High

          ' Renvoi un email à l'expéditeur si la remise de l'email
          ' a échoué (il existe d'autres options comme recevoir
          ' un email si l'expéditeur a bien reçu celui envoyé)
          objMessage.DeliveryNotificationOptions =  Net.Mail.DeliveryNotificationOptions.OnFailure

          ' Définit le serveur smtp qui va envoyer l'email
          objSMTPClient =  New  System.Net.Mail.SmtpClient( "smtp.xxxx.xxx" , 587)
          ' Définit si l'envoi de l'email va utiliser une connexion SSL
          objSMTPClient.EnableSsl   = True
          ' Définit l'adresse email et le mot de passe
          objSMTPClient.Credentials =    New  Net.NetworkCredential( "ton adresse email" , "ton mot de passe")
          ' Envoi l'email
          objSMTPClient.Send(objMessage)
          ' Affiche un message si tout c'est bien passé
          MsgBox("Ok")
          ' La fonction retourne 1 si tout c'est bien passé
          Return True

     ' Si une erreur se produit
     Catch ex As Exception
          ' Affiche l'erreur rencontré
          MsgBox("Exception : " & ex.Message)
          ' La fonction retourne 0 s'il y a eu une erreur
          Return False
     End Try

End Function





++

Fauve




<hr size  ="2" width="100%" />
Pensez : Réponse Acceptée

natinusala · Answer

Okay ca me parait bien, mais comment on appelle la fonction ?

Private Sub Button1_Click (........................)
         EnvoyerMail()
End Sub

???

natinusala · Answer

Erreur :  Failure Sending Mail

    Private Function EnvoyerMail() As Boolean

        Dim objMessage As System.Net.Mail.MailMessage
        Dim objAdrExp As System.Net.Mail.MailAddress
        Dim objAdrRec As System.Net.Mail.MailAddress
        Dim objSMTPClient As System.Net.Mail.SmtpClient

        Try
            objMessage = New System.Net.Mail.MailMessage()
            ' Expéditeur
            objAdrExp = New System.Net.Mail.MailAddress("nazcaworld@free.fr")
            ' Destinataire
            objAdrRec = New System.Net.Mail.MailAddress("nazcaworld@free.fr")

            ' Adresse email de l'expéditeur
            objMessage.From = objAdrExp

            ' Adresse email du destinataire
            objMessage.To.Add(objAdrRec)

            ' Sujet de l'email
            objMessage.Subject = "Test"
            ' Définit si le message accepte le html
            objMessage.IsBodyHtml = False

            ' Message de l'email
            objMessage.Body = RichTextBox1.Text

            ' Définit la priorité de l'email
            objMessage.Priority = Net.Mail.MailPriority.High

            ' Renvoi un email à l'expéditeur si la remise de l'email
            ' a échoué (il existe d'autres options comme recevoir
            ' un email si l'expéditeur a bien reçu celui envoyé)
            objMessage.DeliveryNotificationOptions = Net.Mail.DeliveryNotificationOptions.OnFailure

            ' Définit le serveur smtp qui va envoyer l'email
            objSMTPClient = New System.Net.Mail.SmtpClient("smtp.free.fr", 587)
            ' Définit si l'envoi de l'email va utiliser une connexion SSL
            objSMTPClient.EnableSsl = True
            ' Définit l'adresse email et le mot de passe
            objSMTPClient.Credentials = New Net.NetworkCredential("nazcaworld@free.fr", "******")
            ' Envoi l'email
            objSMTPClient.Send(objMessage)
            ' Affiche un message si tout c'est bien passé
            MsgBox("Ok !")
            ' La fonction retourne 1 si tout c'est bien passé
            Return True

            ' Si une erreur se produit
        Catch ex As Exception
            ' Affiche l'erreur rencontré
            MsgBox("Exception : " & ex.Message)
            ' La fonction retourne 0 s'il y a eu une erreur
            Return False
        End Try

    End Function

cs_fauve · Answer

Salut,

Plusieurs problèmes possible, il me semble que Free interdit de mettre la même adresse email pour l'expéditeur et le destinataire mais j'en suis pas sûr.

Sinon vérifie que ce n'est pas le pare-feu qui bloque le logiciel <<< Je pense que çà doit être ça

<hr size="2" width="100%" />Pensez : Réponse Acceptée

natinusala · Answer

"Plusieurs problèmes possible, il me semble que Free interdit de mettre
la même adresse email pour l'expéditeur et le destinataire mais j'en
suis pas sûr."

Non.

"Sinon vérifie que ce n'est pas le pare-feu qui bloque le logiciel <<< Je pense que çà doit être ça" 

Non plus.

natinusala · Answer

up

natinusala · Answer

Is there anyone on this post ?

natinusala · Answer

nan

"Open n'est pas déclaré"

117 réponses

Votre réponse

Discussions similaires