none
sauver un fichier en mode console RRS feed

  • Question

  • Bonjour,

    J'ai écris un programme application console et j'aimerais enregistrer le résultat
    en mode application windows, j'utilise savedialog
     My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, ListBox1.Items(i), True)
    mais sous DOS comment faire ?

    Voici mon code:

    Dim TableauSolution(90) As String
    Dim a1 As Byte
    For a1 = 1 To 90
       Console.WriteLine(TableauSolution(a1))
    Next a1


    dimanche 21 décembre 2008 17:15

Réponses

  • En cherchant, j'ai trouvé une solution

    Imports System.Text

    Module Module1

        Sub Main()
            Dim i As Byte
            Dim ascii As Encoding = Encoding.ASCII
            Dim Tableau(100) As String
            For i = 1 To 100
                Tableau(i) = i.ToString
                Console.WriteLine(Tableau(i))
                My.Computer.FileSystem.WriteAllText("c:\test.txt", Tableau(i), True, ascii)
            Next

            Console.ReadKey()

        End Sub

    End Module
    dimanche 21 décembre 2008 17:35