private mylist As new List(Of String)
Private Sub process(text As String)
Dim linenun As Integer = 0
For Each line As String In mylist
linenun += 1
If line.Contains("Class") Then
Do Until (mylist(linenun) = String.Empty Or mylist(linenun) = " ")
linenun += 1
Loop
mylist(linenun) = text
Exit For
End If
Next
End Sub
mylist = System.IO.File.ReadAllLines("file path").ToList
process(textbox1.text)
IO.File.WriteAllLines("file path", mylist.ToArray)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DecryptFile("12.dll", _
"test.dll", _
sSecretKey)
Dim tester As New Tester
tester.InsertNewClass(TextBox1.Text)
End Sub
End Class
Public Class Tester
Public Const ClassesFileName As String = "test.dll"
Public Sub InsertNewClass(className As String)
' on lit le contenu du fichier que l'on place dans une list de string
Dim lines = File.ReadAllLines(ClassesFileName).ToList()
'on recherche l'index dans cette liste ou se trouve ""Classes :""
Dim classIndex = lines.IndexOf("Classes :")
' on n'en a pas trouvé, on s'en va
If classIndex = -1 Then Exit Sub
'on insère la nouvelle classe dans la liste (juste sous Classe :)
lines.Insert(classIndex + 1, className)
'on supprime le fichier texte existant
File.Delete(ClassesFileName)
'on recrée le fichier avec le nouveau contenu
File.WriteAllLines(ClassesFileName, lines.ToArray())
End Sub
End Class
lines.Insert(classIndex + 1, className)
Public Sub InsertNewClass(className As String)
' on lit le contenu du fichier que l'on place dans une list de string
Dim lines = File.ReadAllLines(ClassesFileName).ToList()
'on recherche l'index dans cette liste ou se trouve ""Classes :""
Dim classIndex = lines.IndexOf("Classes :")
' on n'en a pas trouvé, on s'en va
If classIndex = -1 Then Exit Sub
Dim classIndex1 = lines.IndexOf("")
'on insère la nouvelle classe dans la liste (juste sous Classe :)
lines.Insert(classIndex1, className)
'on supprime le fichier texte existant
File.Delete(ClassesFileName)
'on recrée le fichier avec le nouveau contenu
File.WriteAllLines(ClassesFileName, lines.ToArray())
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmylist = System.IO.File.ReadAllLines("file path").ToList
process(textbox1.text)
IO.File.WriteAllLines("file path", mylist.ToArray)
Private Sub process(maclass As String)
mylist.add(maclass)
end sub