Recuperation de x lignes a partir d un rtf

Question

Bonsoir,

Je me remets au VBS (old log JMO avec sources), ma question est surement simple.
A partir d'un fichier .rtf, je veux copier, dans un fic, toutes les lignes qui se trouvent entre "DEBUT DB02" et "FIN DB02".
Ex de mon fichier en entr&#233;e:

CLEANUP SPOOLOBJECTS05.09.2005 23:30:07


FIN SM37


DEBUT SM12


250 31.08.2005 14:18:24 MGRE /ALICE/VTRO_E25000000010100


FIN SM12


********************************************************************


DEBUT DB02


Tablespace ayant un taux de remplissage > 85%


PSAPROLLBIG94%


TablesMissing in databases :0


IndicesMissing in databases :0


TablesMissing in R3 DDIC:0


IndicesMissing in R3 DDIC:0


TablesSpace Critical:0


IndicesSpace Critical:0

FIN DB02
********************************************************************
Merci de votre aide. Je n'ai plus fait de VBS depuis 2 ans.....

cs_hassen · Answer

RichTextBox1.SelStart = 0
RichTextBox1.SelLength = InStr(1, RichTextBox1.Text, "DEBUT DB02") + Len("DEBUT DB02")
RichTextBox1.SelText = ""



RichTextBox1.SelStart = InStr(1, RichTextBox1.Text, "FIN DB02") - 1


RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelText = ""

Hassen TUNISIE

cs_jeanmarc · Answer

Merci pour la r&#233;ponse, mais j'ai pr&#233;cis&#233; en VBS.
J'ai essay&#233; un truc comme ca...mais j'en suis loin.

Set ObjTextStream = Fso.OpenTextFile(Path & Fic1, 1)
Do While Not ObjTextStream.AtEndOfStream
   strtmp = split(ObjTextStream.readline," ")
   For i = 0 to Ubound(strtmp)
       If instr(trim(strtmp(i)),"DEBUT DB02", "FIN DB02") Then
msgbox strtmp(i)
else
msgbox "erreur de synthaxe"
       End If
   Next
Loop

cs_hassen · Answer

desol&#233; mais je connais pas bien le vbs

Hassen TUNISIE