'Dim i As Short
'FileOpen(1, My.Application.Info.DirectoryPath & "\" & "a.txt",
OpenMode.Output)
'For i = 0 To lstInputWord.Items.Count - 1
'LaListe.SelectedIndex = i
'PrintLine(1, LaListe.Text)
'Next
'FileClose(1)
peut -on le faire avec WriteAllText ? : j'ai essayé
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
scalpa
essaie : If .ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim w As IO.StreamWriter
Dim i As Integer
w = New IO.StreamWriter(.FileName)
For i = 0 To lstInputWord.Items.Count - 1
w.WriteLine(lstInputWord.Items.Item(i))
Next
w.Close()
End If
"Pascal" a écrit dans le message de news: 44722450$0$28223$
bonjour j'ai essayé avec fileopen :
'Dim i As Short 'FileOpen(1, My.Application.Info.DirectoryPath & "" & "a.txt", OpenMode.Output) 'For i = 0 To lstInputWord.Items.Count - 1 'LaListe.SelectedIndex = i 'PrintLine(1, LaListe.Text) 'Next 'FileClose(1) peut -on le faire avec WriteAllText ? : j'ai essayé
essaie :
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim w As IO.StreamWriter
Dim i As Integer
w = New IO.StreamWriter(.FileName)
For i = 0 To lstInputWord.Items.Count - 1
w.WriteLine(lstInputWord.Items.Item(i))
Next
w.Close()
End If
"Pascal" <scalpanospm@wanadoo.rf> a écrit dans le message de news:
44722450$0$28223$8fcfb975@news.wanadoo.fr...
bonjour
j'ai essayé avec fileopen :
'Dim i As Short
'FileOpen(1, My.Application.Info.DirectoryPath & "" & "a.txt",
OpenMode.Output)
'For i = 0 To lstInputWord.Items.Count - 1
'LaListe.SelectedIndex = i
'PrintLine(1, LaListe.Text)
'Next
'FileClose(1)
peut -on le faire avec WriteAllText ? : j'ai essayé
essaie : If .ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim w As IO.StreamWriter
Dim i As Integer
w = New IO.StreamWriter(.FileName)
For i = 0 To lstInputWord.Items.Count - 1
w.WriteLine(lstInputWord.Items.Item(i))
Next
w.Close()
End If
"Pascal" a écrit dans le message de news: 44722450$0$28223$
bonjour j'ai essayé avec fileopen :
'Dim i As Short 'FileOpen(1, My.Application.Info.DirectoryPath & "" & "a.txt", OpenMode.Output) 'For i = 0 To lstInputWord.Items.Count - 1 'LaListe.SelectedIndex = i 'PrintLine(1, LaListe.Text) 'Next 'FileClose(1) peut -on le faire avec WriteAllText ? : j'ai essayé
