Extraire du texte d'un fichier txt

Résolu
cs_cruzy Messages postés 17 Date d'inscription dimanche 19 septembre 2004 Statut Membre Dernière intervention 23 novembre 2006 - 23 nov. 2006 à 10:32
 ucfoutu - 20 févr. 2015 à 06:22
bonjour à tous

je ne suis pas tres expérimenté en VBA excel, mais je souhaiterais faire ceci :

- j'ai un fichier texte "test.txt" contenant qqchose de ce type :
"blabla 123456 azerty"

- j'aimerais extraire de ce fichier le texte contenu entre "blabla" et "azerty" : soit "123465" et le placer dans une cellule excel

ca parait simple expliqué comme ca, mais pour un debutant, c'est pas si évident que ca

merci à celles et ceux qui pourraient m'aider dans cette recherche

A bientot

Cruzy
A voir également:

37 réponses

drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 11
23 nov. 2006 à 17:04
Plus court et plus simple pour la même chose:



Private Sub CommandButton1_Click()


Dim TaString As String
Dim TablString() As String
Dim keff As String
Dim sigma As String


Open "C:\Analyse.txt" For Input As #1


NbLignes = 0


While Not EOF(1)


Line Input #1, TaString


  If Left(TaString, 21) = "number of batch used:" Then


     TablString = Split(TaString, " ", -1, vbTextCompare)
     keff = TablString(6) & TablString(7) & TablString(8)
     sigma = TablString(10) & TablString(11) & TablString(12)
     MsgBox (keff & Chr(10) & sigma)


  End If


Wend


Close #1


End Sub

 Drikce 06
3
Rejoignez-nous