Extraire du texte entre balise d'un .txt et generer html avec ce texte
Résolu
Akita95
Messages postés
23
Date d'inscription
dimanche 13 mars 2005
Statut
Membre
Dernière intervention
30 juillet 2007
-
31 juil. 2006 à 15:33
Akita95 Messages postés 23 Date d'inscription dimanche 13 mars 2005 Statut Membre Dernière intervention 30 juillet 2007 - 1 août 2006 à 13:22
Akita95 Messages postés 23 Date d'inscription dimanche 13 mars 2005 Statut Membre Dernière intervention 30 juillet 2007 - 1 août 2006 à 13:22
4 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
1 août 2006 à 11:33
1 août 2006 à 11:33
umm, voici un exemple rapide...
on suppose sBuffer déjà rempli par lecture du fichier texte :
Option Explicit
Private Sub Form_Load()
Dim sBuffer As String
sBuffer = "<head>" & vbCrLf
sBuffer = sBuffer & "<titre1>bonjour</titre1>" & vbCrLf
sBuffer = sBuffer & " ah ouai " & vbCrLf
sBuffer = sBuffer & "<nan>ouaip</nan>" & vbCrLf
sBuffer = sBuffer & "<test>ouaip</test>" & vbCrLf
sBuffer = sBuffer & "</head>"
Dim aBalises(3) As String
aBalises(0) = "titre1"
aBalises(1) = "test"
aBalises(2) = "balise3"
aBalises(3) = "non"
Dim i As Long, lPos1 As Long, lPos2 As Long
Me.AutoRedraw = True
For i = 0 To 3
lPos1 = InStr (1, sBuffer, "<" & aBalises(i) & ">")
lPos2 = InStr(lPos1 + 1, sBuffer, "</" & aBalises(i) & ">")
If lPos1 > 0 And lPos2 > 1 Then
Me.Print UCase$(aBalises(i)) & " : " & Mid$(sBuffer, lPos1 + Len(aBalises(i)) + 2, lPos2 - lPos1 - Len(aBalises(i)) - 2)
Else
Me.Print UCase$(aBalises(i)) & " : non-trouvée..."
End If
Next i
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
on suppose sBuffer déjà rempli par lecture du fichier texte :
Option Explicit
Private Sub Form_Load()
Dim sBuffer As String
sBuffer = "<head>" & vbCrLf
sBuffer = sBuffer & "<titre1>bonjour</titre1>" & vbCrLf
sBuffer = sBuffer & " ah ouai " & vbCrLf
sBuffer = sBuffer & "<nan>ouaip</nan>" & vbCrLf
sBuffer = sBuffer & "<test>ouaip</test>" & vbCrLf
sBuffer = sBuffer & "</head>"
Dim aBalises(3) As String
aBalises(0) = "titre1"
aBalises(1) = "test"
aBalises(2) = "balise3"
aBalises(3) = "non"
Dim i As Long, lPos1 As Long, lPos2 As Long
Me.AutoRedraw = True
For i = 0 To 3
lPos1 = InStr (1, sBuffer, "<" & aBalises(i) & ">")
lPos2 = InStr(lPos1 + 1, sBuffer, "</" & aBalises(i) & ">")
If lPos1 > 0 And lPos2 > 1 Then
Me.Print UCase$(aBalises(i)) & " : " & Mid$(sBuffer, lPos1 + Len(aBalises(i)) + 2, lPos2 - lPos1 - Len(aBalises(i)) - 2)
Else
Me.Print UCase$(aBalises(i)) & " : non-trouvée..."
End If
Next i
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
31 juil. 2006 à 16:26
31 juil. 2006 à 16:26
salut,
pourtant il y a déjà ce genre de réponses.
as-tu essayé avec "parser html" ?
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
pourtant il y a déjà ce genre de réponses.
as-tu essayé avec "parser html" ?
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Akita95
Messages postés
23
Date d'inscription
dimanche 13 mars 2005
Statut
Membre
Dernière intervention
30 juillet 2007
1 août 2006 à 10:31
1 août 2006 à 10:31
Merci pour ta réponse, cependant, cela ne m'a pas aidé :-( désolé
Akita95
Messages postés
23
Date d'inscription
dimanche 13 mars 2005
Statut
Membre
Dernière intervention
30 juillet 2007
1 août 2006 à 13:22
1 août 2006 à 13:22
Nikel, ca a pu m'aider !! merci beaucoup :)
