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
|