Discussion :

[pascalourox]

Bonjour,

Dans ma base Access 2003 j'ai un Champ TxT dans une table. (Ce Champ provient d'une page web que j'ai copier via un copier/coller). Ce champ TxTest composée de x lignes de differentes longeurs et je désire retirer des informations à partir de differents repères (mots clefs) du texte. La fonction et la requette que j'utilise fonctionne; ok: par contre je désire recuperer les 4 lignes qui précéde mon mot clef et là je bloque...

je pense à une solution : Compter le nombre de lignes du champ TxT et enregistrer le N° de la ligne du mot clef (Numclef), puis extraire les lignes (Numclef-4,Numclef-3,...).

Un petit bout de code serait la bienvenue (j'apprends au fur et à mesure). Merci....

[ilank]

Bonjour,
regarde du côté des fonctions Instr() et Split().
une nouvelle ligne est identifiée par deux caractères, LineFeed (fin de ligne) et CarriageReturn (Retour chariot) qui correspondent à une constante VBA vbCrLf (ou aux caractères Chr(13) & Chr(10).
A chaque fois que tu as ces caractères dans ton champ, il y a une nouvelle ligne.

Exemple : Ici une fonction qui attend en paramètre la chaine à lire, le mot clé à rechercher et le nombre de lignes précédent le mot clé à renvoyer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function GetLignes(Chaine As String, MotClef As String, NbLigne As Integer) As string
 Dim Ligne() As String, I As Integer, J As Integer
 Dim Result as String
 Result=""
 Ligne=Split(Champ, vbcrlf)
 For i=0 to UBound(Ligne)
    If Instr(Ligne(i),MotClef)>0 Then
       J=IIF(I-NbLigne<0,0,I-NbLigne)
       Do While J<I
           Result=IIF(len(Result)=0,Ligne(j), Result & vbcrlf & Ligne(j))
           J=J+1
       Loop
       Exit For
    Endif
 Next i
 GetLignes=Result
End Function