Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmid("123456FORUM_56", 7, 5) = "FORUM"
Dim Enregistrements() as String Dim Count as integer Dim i as integer While Not File.Eof Ligne = File.ReadLine Redim Preserve Enregistrements ( Count , i) Enregistrements ( Count , 0) = Left$ ( Ligne , 4) Select case left$ ( Ligne , 4) Case "@110" redim preserve Enregistrements ( Count , 4) Enregistrements ( Count , 1) = Mid$ ( Ligne , 4 , 2) Enregistrements ( Count , 2) = Mid$ ( Ligne , 6 , 5) Enregistrements ( Count , 3) = Mid$ ( Ligne , 11,1) Enregistrements ( Count , 4) = Mid$ ( Ligne , 12,10) Case "@120" découpage adapté Case "@100" etc End Select Count = Count +1 Wend