[Lecture fichier] en VB

Public Sub LireFichier()

    Dim Nombre As Integer
    Dim numFileIN As Long, numFileOUT As Long
    
    Dim Texte() As String, i As Long
    Dim TexteResultat() As String, k As Long
    
    Dim j As Integer, Resultat As String
    Dim Premier As String, Second As String
    Dim Reponse As Long
    
    numFileOUT = FreeFile
    'Form3.c.ShowOpen
    'Form3.Text1.Text = Form3.c.FileName
    numFileIN = FreeFile
    i = -1
    Open "C:\MonFichier.txt" For Input As #numFileIN
    While Not EOF(numFileIN)
        i = i + 1
        ReDim Preserve Texte(i)
        Line Input #1, Texte(i)
    Wend
    Close numFileIN
    
    'j = -1
    k = 0
    For j = 0 To UBound(Texte)
    'While j <= 5
        'j = j + 1
        Premier = Texte(j)
        Reponse = InStr(1, Premier, "A", vbBinaryCompare)
        If (Reponse > 0) Then
            k = (k + 1)
            ReDim Preserve TexteResultat(k)
            Resultat = Mid(Premier, (Reponse + 1))
            TexteResultat(k - 1) = Resultat
        End If
    'Wend
    Next j

    Open "C:\Resultat.txt" For Output As #numFileOUT
    
    For j = 0 To UBound(TexteResultat)
        Premier = TexteResultat(j)
        Reponse = InStr(1, Premier, " ", vbTextCompare)
        If (Reponse > 0) Then
            Resultat = Mid(Premier, 1, (Reponse - 1))
            Write #numFileOUT, Resultat
            Second = Second & vbLf & Resultat
            Resultat = Mid(Premier, (Reponse + 1))
            Write #numFileOUT, Resultat
            Second = Second & vbLf & Resultat
        End If
    Next j

   Close numFileOUT

    MsgBox Second & vbLf & "Voir fichier Resultat.txt"

End Sub
'