Il récupère tout les noms et les enregistre dans un fichier mais ce n'est pas ce que je veux.
loca = IO.Directory.GetFiles(dir, "*" & ".mms")
For Each f As String In loca
c = IO.File.ReadAllText(f, System.Text.Encoding.Default)
toto50 = Mid(c, InStr(c, "<img "), InStrRev(c, " region="))
next
IO.File.WriteAllText(fichier2, toto50, System.Text.Encoding.Default)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIO.File.WriteAllText(fichier2 & le numéro du fichier, toto50, System.Text.Encoding.Default)J'espère avoir été clair :/
Private listoutputfilename As New List(Of String)
Private list1 As New List(Of String)
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim listfile() As String
'liste des fichiers se terminant avec extension mms dans le dossier bin/debug ou bin/release
listfile = IO.Directory.GetFiles(Application.StartupPath, "*" & ".mms").ToArray
For Each item In listfile
list1 = IO.File.ReadAllLines(item).ToList
Findfile()
Next
WriteToFiles()
End Sub
Private Sub Findfile()
For Each item In list1
If item.Contains("img src=") Then
listoutputfilename.Add(item.Substring(item.IndexOf("=") + 2, item.IndexOf("jpg") + 1 - item.IndexOf("=")))
End If
Next
End Sub
Private Sub WriteToFiles()
Dim index As Integer = 1
For Each file As String In listoutputfilename
IO.File.WriteAllText(Application.StartupPath & "\file " & index.ToString & ".txt", file)
index += 1
Next
End Sub
End Class