Dim Chaine As String Open FichierBalise For Input As #1 Fichier.Text = "" Do While Not EOF(1) Line Input #1, Chaine Fichier.Text = Fichier.Text & vbCrLf & Chaine Loop Close #1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFichier.Text = Fichier.Text & vbCrLf & Chaine
Dim pos As Integer Dim entry() As String Dim entry2() As String entry = Split(Fichier.Text, vbCrLf, , vbTextCompare) For i = 0 To UBound(entry) entry2 = Split(entry(i), vbTab, , vbTextCompare) With MSFlexGrid1 .Col = 0 .Row = i + 1 .Text = entry2(1) .Col = 1 .Row = i + 1 .Text = entry2(0) End With Next