recherche chaine de caractere

Version imprimable

Bonjour,

J'ai realiser un programme qui permet de choisir un fichier sur le disque dur et ensuite des qu il rencontre un <td> il saute la ligne.
Mon probleme c est qu'il reconnait sous cette forme <td> mais des que c est <td width="414"> par exemple il ne reconnait plus.Je me demandais si il y avait une fonction qui pemettrais de dire que des qu il trouve <td au debut et > a la fin qu il puissent prendre tt cette chaine de caractere afin de faire le saut de ligne.

Voici le bout de code au niveau de la recherche:

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
31
32
33
34
35
36
37
38
39
40
41
 
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, i, j, k, strtmp, Resultat
Set fso = CreateObject("Scripting.FileSystemObject")
 
 Dim objTextStream 'objet contenant  le texte  a modifier,pour chaque modif ouvrir le fichier en lecture et ecriture
 'on lis le fichier corespondant pour modifier les td
		   Set objTextStream = Fso.OpenTextFile(fichier, ForReading)
		   Resultat = objTextStream.ReadAll
		   strtmp = split(Resultat,"")
					For j = 0 to Ubound(strtmp)
				If instr(trim(strtmp(j)),"<td>") Then
					strtmp(j) = Replace(strtmp(j),"<td>","<td>" & vbcrlf & vbtab  & vbtab )
 
				End If
				objTextStream.Close
				Set objTextStream = Fso.OpenTextFile(fichier, ForWriting, True)
				objTextStream.Write strtmp(j) 
				objTextStream.Close
			Next
 
			'on lis le fichier corespondant pour modifier les td
			 Set objTextStream = Fso.OpenTextFile(fichier, ForReading)
		   Resultat = objTextStream.ReadAll
		   strtmp = split(Resultat,"")
		  			For k =  0 to Ubound(strtmp)
				If instr(trim(strtmp(k)),"</td>") Then
					strtmp(k) = Replace(strtmp(k),"</td>",vbcrlf & vbtab  & vbtab &"</td>")
 
				End If
				objTextStream.Close
				Set objTextStream = Fso.OpenTextFile(fichier, ForWriting, True)
				objTextStream.Write strtmp(k) 
				objTextStream.Close
			Next
 
Set objTextStream = Nothing
Set fso = Nothing
 
MsgBox "Modifications effectuées !!!", vbInformation, Now()

Pour plus de precision n 'hesiter pas a me demander

merci d avance

Salut,

si j'ai bien compris tu recherches "<TD" dans ta chaine et si l'extrait de ta chaine qui commence par "<TD" se termine par ">", alors la condition est remplie.

En code, ca pourrait donner ca :
Code:

1 2 3 4 5 6 7 VVal0 = InStr(strtmp, "<TD") ExtLine = Mid(strtmp, VVal0, Len(strtmp) - VVal0 + 1) If Right(extline, 1) = ">" Then strtmp = Replace(strtmp,extline,extline & vbcrlf & vbtab & vbtab ) End If
Qu'en penses-tu ?

A++

21/11/2007, 11h48
adriantox

oui t as tt as fais compris,je v essayer la je te tiens au courant
merci
21/11/2007, 13h49
adriantox

J arive pas a l utiliser il me dise erreur,peut tu me montrer comment tu le mettrais en place a partir de mon code au dessus
merci
a+
21/11/2007, 18h51
RadPAT
dans ton code remplace :
Code:

1 2 3 If instr(trim(strtmp(j)),"<td>") Then strtmp(j) = Replace(strtmp(j),"<td>","<td>" & vbcrlf & vbtab & vbtab ) End If
par mon code et remplace les strtmp par des strtmp(j)
Et dis moi si ca marche ou pas.

A++
22/11/2007, 13h49
adriantox

Sa ne marche pas il reconait pas ton Vvalo,je l ai delarermerci comme meme pour ton aide,je v essyaer de refauire mon algo voir si il yas pas un autre moyen .
encore merci a+++

Ok,

VVal0 c'est la valeur de la position ou se trouve ta chaine "<TD".
Si tu as des lignes ou tu n'as pas de chaine "<TD" , tu dois ajouter un if pour prévoir ce cas. Remplace :

Code:

1
2
3
4
5
6
7
 
VVal0 = InStr(strtmp, "<TD")
ExtLine = Mid(strtmp, VVal0, Len(strtmp) - VVal0 + 1)
 
If Right(extline, 1) = ">" Then
   strtmp = Replace(strtmp,extline,extline & vbcrlf & vbtab  & vbtab )
End If

par

Code:

1
2
3
4
5
6
7
8
 
VVal0 = InStr(strtmp(j), "<TD")
If VVal0 > 0 Then
   extLine = Mid(strtmp(j), VVal0, Len(strtmp(j)) - VVal0 + 1)
   If Right(extline, 1) = ">" Then
      strtmp(j) = Replace(strtmp(j),extline,extline & vbcrlf & vbtab  & vbtab )
   End If
End If

et ca devrait etre bon.

A++