Bonjour nico, voici une fonction qui divise un string dans un tableau de string en fonction des tabulations. Ensuite, un petit try balaie le tableau pour convertir en entier tes données : Function ConversionEntier(ByVal LaConversion As String) As Boolean Dim MesDonnées() As String ConversionEntier = False MesDonnées = Split(MaPhrase, vbTab) 'on divise la phrase en fonction des séparateurs 'vbTab = tabulation Dim MesEntiers(MesDonnées.Length - 1) As Integer Try For i = 0 To MesDonnées.Length - 1 MesEntiers(i) = CInt(MesDonnées(i)) Next MsgBox("Convertion réussie", MsgBoxStyle.Information, "Convertion en entier") ConversionEntier = True Catch ex As Exception MsgBox("Le programme a rencontré une erreur lors de la conversion." & _ "Vérifiez que la donnée à convertir est un entier", MsgBoxStyle.Critical, "Conversion en entier") ConversionEntier = False End Try End Function
Le probleme qui risque de se poser : Est tu sur de relever uniquement des entier ? Autre question, a tu regarder du côté de "file.WriteAllLines(nom_du_fichier as string)" qui peut mettre toutes les lignes de ton fichier texte (*.txt, *.ini ...) dans un tableau de chaine de caractère (string). la fonction split ==> Tableau_de_string = Split(Un_Ligne_Du_Fichier , Separateur)
Tiens moi au courant. Xpmich
|