' On crée un objet gérant les dossier (facultatif) Dim di As New System.IO.DirectoryInfo("F:") di.CreateSubdirectory("TempVB.net") ' On crée un objet gérant le fichier Dim fi As New System.IO.FileInfo(di.FullName & "\TempVB.net\st.dat") ' On crée un flux pour l'écriture (de texte dans mon cas) et on crée le fichier Dim sw As System.IO.StreamWriter = fi.CreateText() ' J'ai besoin de te donner un exemple donc je crée un tableau Dim tableau1() As String = {"Orange", "Tomate", "Cerise", "Mangue", "Poire"} ' Je crée une variable de référence pour l'instruction For Each Dim s1 As String ' A chaque boucle j'inscrit le mot suivant dans le flux et je le vide ( je le mets dans le fichier) grâce à l'instruction Flush() (Flush() >>> ça dépend de ce qu'on veut inscrire, dans ce cas je peux m'en passer vu que ce que j'ai à faire est minuscule, Close() aurait pu le faire lui même à la fin) For Each s1 In tableau1 sw.Write(s1 & " ;") sw.Flush() Next ' Je vide une dernière fois le flux (si il y a quelque chose, dans ce cas non) et je le ferme. sw.Close()
Public Sub FileOpen( _ ByVal FileNumber As Integer, _ ByVal FileName As String, _ ByVal Mode As OpenMode, _ Optional ByVal Access As OpenAccess = OpenAccess.Default, _ Optional ByVal Share As OpenShare = OpenShare.Default, _ Optional ByVal RecordLength As Integer = -1 _ )
Dim sr As New StreamReader(ofd1.FileName) ' ici ofd1.filename >>> mettre un nom de fichier valide Dim str As String = sr.ReadToEnd Dim str1() As String = str.Split("§") ' ici § >>> mettre un symbole de séparation valide d'après l'exemple {item1;item2;item3}, il faudrait mettre ';', et résulte un tableau str1().
Dim sr As New StreamReader(fi.FullName) ' Je crée un tableau dynamique, c'est "plus simple" Dim arl As New ArrayList() ' Dans une boucle, j'extrais ligne par ligne et je mets dans le tableau dynamique While (sr.Peek <> -1) Dim str As String = sr.ReadLine arl.Add(str) End While ' Puis je mets le contenu de ce tableau dynamique dans mon tableau aryPref = arl.ToArray
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question