J?ai un exemple de code VB6, et j?aimerai trouver un code similaire pour VS2010

Question

Bonjour 
Je ne c'est pas ci j'ai posté ma question a la bonne place mais 
Je voudrai utilisé la même fonction de ce code vb6 mais avec VS2010

3.Private Sub Sauver_Click()
4.  Dim vari As Integer
5.  vari = FreeFile
6.  contenu = Form1.Text1.Text
7.' adresse du fichier a enregistrer 
8.  chemin = "c:\...	ext.txt"
9.'ouverture du fichier
10.  Open chemin For Output As #vari
11.' enregistrement du texte
12.  Print #vari, contenu
13.'Fermeture du fichier
14.  Close vari
15.End sub

J'ai trouvé des exemples de code VS2010..  Richtextbox avec SaveFileDialog et streamwriter... ??!!
http://social.msdn.microsoft.com/Forums/fr-FR/vbasicfr/thread/1d39c042-0caa-4c6a-bdd4-969b49605a3f
Ce n'est pas ce que je veux faire ...

*Pas de boite SaveFiledialog*

Avec VS 2010
Bouton1Save = crée le dossier (C:\dossier1\) + crée le Fichier (\TEST.txt)
(écrire lingne1 = textbox1.text) 
(écrire lingne2 = textbox2.text) 

Bouton2Open = Ovrir le fichier (C:\dossier1\TEST.txt) + 
(écrire lingne1 = textbox1.text)
(écrire lingne2 = textbox2.text)

Merci beaucoup & je sui nouveau de le langage VB

imageinbox · Answer

J'ais  essayer beaucoup d'exemples de code... & aucun résulta!

Private Sub Grcbt_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grcbt_save.Click

        Dim cDirs As DirectoryInfo() = New DirectoryInfo("c:").GetDirectories()
        Using sw As StreamWriter = New StreamWriter("TEST.txt")
            For Each Dir As DirectoryInfo In cDirs
                sw.WriteLine(Dir.Name)
                sw.WriteLine("textbox1.Text")
            Next
        End Using

    End Sub

Ca ne marche pas.. il me manque bcp d'informations je crois

NHenry · Answer

Bonjour,

Ou Io.File.WriteAllText(Fichier, texte).

Tu t'es trompé de catégorie, tu as mis VB6 à la place de VB.NET, penses-y pour la prochaine fois.

Mon site

vblover · Answer

un morceau de code vb 2005 pour lire d'un fichier

Dim Obj_Fichier As FileStream
Dim Obj_StreamReader As StreamReader
Obj_Fichier = New  FileStream("comptabilite.ini", FileMode.OpenOrCreate, FileAccess.Read)
Obj_StreamReader = New StreamReader(Obj_Fichier)
' lire le fichier
Gstr_RepertoireSource = Obj_StreamReader.ReadToEnd
' BONNE PRATIQUE liberer les objets crees
'Obj_Fichier = Nothing
'Obj_StreamReader = Nothing
 
vblover

NHenry · Answer

Bonjour,

@vblover,

Si Gstr_RepertoireSource est une string :

Gstr_RepertoireSource=IO.File.ReadAllText("comptabilite.ini")

Pour les lignes :
Dim ltStr as string()=IO.File.ReadAllLines("comptabilite.ini")

Plus simple à utiliser.

Mon site

imageinbox · Answer

Merci beaucoup pour cette aide, j'es maleureusement pas eu le temps de testé encow.. je travail bcp c'est temps ci! mais je vous donne des nouvelles ci je réusi ...   lol

J?ai un exemple de code VB6, et j?aimerai trouver un code similaire pour VS2010

5 réponses

Votre réponse

Discussions similaires