none
Comment pourrai je envoiyer ma list items dans un blocnote RRS feed

  • Question

  • Quelques pourrai me resseiller ou me documenter ou me donner un exemple de code

    J' aimerais copier mes items que j aie dans un Listbox et le transfairer dans un blocnote


    Francois Masse
    dimanche 23 janvier 2011 13:38

Réponses

  • Bonjour,

    Par exemple il y a ça :

    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim a = ""
      Dim i As Long
      Dim notepad As Process = New Process()
      Dim c = My.Application.Info.DirectoryPath & "\fichierListe.txt"
      Dim p As New System.IO.StreamWriter(CStr(c))
      possible = 1
      For i = 0 To ListBox1.Items.Count - 1
       a = a & ListBox1.Items(i) & Chr(13)
      Next i
      p.Close()
      notepad.StartInfo.FileName = "Notepad.exe"
      notepad.StartInfo.UseShellExecute = False
      notepad.StartInfo.RedirectStandardInput = True
      notepad.Start()
      notepad.WaitForInputIdle()
      System.Windows.Forms.SendKeys.SendWait(a)
      notepad.Close()
    End Sub
    

    Toutefois je ne comprends pas pourquoi tu fais ça, on dirait du paramétrage en VBA !

    Le bloc-notes est inutile pésentement, on affiche le texte dans un texteBox en programmation (vbNet en l'espèce), puis on donne à l'utilisateur ou au programme les suites à appliquer à ce texte, on n'a nul besoin du bloc-notes, ou alors ce n'est ps la peine de programmer, le forum VBA devrait répondre au paramétrage d'une liste qui se verse dans le bloc-notes, non ?

    Cordialement :o)

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe dimanche 23 janvier 2011 19:46
    • Marqué comme réponse FrançoisM dimanche 23 janvier 2011 20:32
    dimanche 23 janvier 2011 15:09

Toutes les réponses

  • Bonjour,

    Vous voulez envoyer les ListItems dans un fichier ou directement dans l'application Bloc-Notes ?

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte .NET/Consultant/Formateur chez Winwise
    Blog : http://gilles.tourreau.fr
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5
    dimanche 23 janvier 2011 13:55
    Modérateur
  • Bonjour François,

    Si la réponse t'es utile, merci de cliquer dans "utile" en haut à gauche ici, où est le triangle vert :

    Voici le code testé :

    Option Explicit On
    Public Class Form
     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim i As Long
      Dim c = My.Application.Info.DirectoryPath & "\fichierListe.txt"
      Dim p As New System.IO.StreamWriter(CStr(c))
      For i = 0 To ListBox1.Items.Count - 1
       p.WriteLine(ListBox1.Items(i))
      Next i
      p.Close()
      i = Shell("notepad.exe " & c, vbNormalFocus)
     End Sub
    End Class
    
    

    Cordialement.

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe dimanche 23 janvier 2011 14:02
    dimanche 23 janvier 2011 14:02
  • Dans l aplication blocnote je dirrais

    ou bien un peu comme faire un copier coler dans un blocnote


    Francois Masse
    dimanche 23 janvier 2011 14:04
  • Bonjour,

    Par exemple il y a ça :

    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim a = ""
      Dim i As Long
      Dim notepad As Process = New Process()
      Dim c = My.Application.Info.DirectoryPath & "\fichierListe.txt"
      Dim p As New System.IO.StreamWriter(CStr(c))
      possible = 1
      For i = 0 To ListBox1.Items.Count - 1
       a = a & ListBox1.Items(i) & Chr(13)
      Next i
      p.Close()
      notepad.StartInfo.FileName = "Notepad.exe"
      notepad.StartInfo.UseShellExecute = False
      notepad.StartInfo.RedirectStandardInput = True
      notepad.Start()
      notepad.WaitForInputIdle()
      System.Windows.Forms.SendKeys.SendWait(a)
      notepad.Close()
    End Sub
    

    Toutefois je ne comprends pas pourquoi tu fais ça, on dirait du paramétrage en VBA !

    Le bloc-notes est inutile pésentement, on affiche le texte dans un texteBox en programmation (vbNet en l'espèce), puis on donne à l'utilisateur ou au programme les suites à appliquer à ce texte, on n'a nul besoin du bloc-notes, ou alors ce n'est ps la peine de programmer, le forum VBA devrait répondre au paramétrage d'une liste qui se verse dans le bloc-notes, non ?

    Cordialement :o)

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe dimanche 23 janvier 2011 19:46
    • Marqué comme réponse FrançoisM dimanche 23 janvier 2011 20:32
    dimanche 23 janvier 2011 15:09
  • 'Pour l'instant j'aie proseder comme suit ca fonctionne 
    'mais je n est pas le retour chariot a chaque items
    
    Dim Mon_ruban As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Ruban.txt"
    
      For c = 0 To ListBox1.Items.Count-1
       My.Computer.FileSystem.WriteAllText(Mon_ruban, ListBox1.Items(c), True)
      Next

    Francois Masse
    dimanche 23 janvier 2011 19:23
  • Bonsoir,

    Normal qu'il n'y ait pas de saut de ligne, voir mon code pour la réponse, il est testé, tout y est.

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe dimanche 23 janvier 2011 19:55
    dimanche 23 janvier 2011 19:55