Identifier un paragraphe précis dans un fichier TXT

Version imprimable

11/02/2014, 13h59
nord

Identifier un paragraphe précis dans un fichier TXT

Bonjour

Je ne suis pas un grand spécialiste de vbs et je me heurte actuellement à un petit problème.
Mon souhait est le suivant :
Dans un fichier TXT je voudrais récupérer l'ensemble des lignes qui sont comprises entre deux "identificateurs" de type String (par exemple):

Premier identificateur

Texte a récupérer
Texte a récupérer
Texte a récupérer
Texte a récupérer
Texte a récupérer
Texte a récupérer
Texte a récupérer

Second identificateur

Je tiens à préciser que le nombre de ligne correspondant au "texte à récupérer" peut varier.

J'étais parti dans l'idée de récupérer le numéro de ligne des deux identificateurs et d'écrire les lignes comprise entre les deux......mais je n'y suis pas arrivé.....je sèche !

Si quelqu'un a une idée, une fonction vers laquelle m'orienter ou un exemple de ce qui pourrait être fait, ce serait cool !

Merci d'avance.

Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Const ForWriting = 2, ForReading = 1
Dim fso, f, Ret, Ident1, Ident2, I, ra, WS
Ident1="Début"  ' Identificateur début de la recherche
Ident2="Fin"    ' Identificateur fin de la recherche
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("Fichier1.txt", ForReading,False)
I = 0
ra = Split(f.readall, VbCrLf)
Do
	ra(i) = LTrim(ra(i))  ' On doit supprimer les espaces avant
	If Ucase(ra(i))=Ucase(Ident2) Then Exit Do
	If UCase(ra(i)) = UCase(Ident1) Then
	   Do
	      i = i + 1
	      Ret = Ret & ra(i) & VbNewLine
	  Loop Until UCase(Ident2) = UCase(ra(i))
	  Ret = Mid(Ret ,1 , Len(Ret) - Len(Ident2 + vbNewLine))
       End If
       I = I + 1
Loop Until  UCase(Ident2) = UCase(ra(i)) OR I >= UBound(ra) 
f.Close
 
If Ret <> "" Then
 Set f = fso.OpenTextFile("Result.txt", ForWriting,True)   
 f.Write Ret
 f.Close
End If
Set WS = CreateObject("WScript.Shell")
WS.Run "Result.txt", 1, True

:salut:
Testez ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Dim Titre,Data
Titre = "Extraction des données entre deux identificateurs"
Data = "Premier identificateur"&_
"Texte a récupérer 1" & VbCrLF &_
"Texte a récupérer 2" & VbCrLF &_
"Texte a récupérer 3" & VbCrLF &_
"Texte a récupérer 4" & VbCrLF &_
"Texte a récupérer 5" & VbCrLF &_
"Texte a récupérer 6" & VbCrLF &_
"Texte a récupérer 7" & VbCrLF &_
"Second identificateur"
MsgBox Between_Ands(Data,"Premier identificateur","Second identificateur"),64,Titre
'**********************************************************************************************
Function Between_Ands(ByVal Full_String, ByVal First_Delimiter, ByVal Second_Delimiter)
Dim Pos,Pos2
Pos = InStr(Full_String, First_Delimiter)
Pos2 = InStr(Full_String, Second_Delimiter)
If Pos = 0 Or Pos2 = 0 Then
    Between_Ands = "Missing Delimiter"
    Exit Function
End If
Between_Ands = Mid(Full_String, Pos + Len(First_Delimiter), Pos2 - (Pos + Len(First_Delimiter)))
End Function
'***********************************************************************************************