definir l'index d'un array pour variable

Version imprimable

Bonjour,

tous d'abord je ne suis pas un développeur donc pardon pour le code pas très pro que je peux proposer.

Voici ce que je cherche à faire:
le but est de parcourir des fichiers textes et d'en extraire des informations suivant une chaine de caractères connue.

Mais cette chaine de caractères connue peux être à différent endroit suivant les fichiers parcourus.

Voici mon code pour le moment
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 'on reccuperes les informations des fichiers textes localisés dans un repertoire MYKEYWORD = “ VALUE” VARPATH = “BLABLABLA” CONST FORREADING = 1 SET OBJFSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT") OBJSTARTFOLDER = VARPATH SET OBJFOLDER = OBJFSO.GETFOLDER(OBJSTARTFOLDER) SET COLFILES = OBJFOLDER.FILES ' parcourir tous les fichiers textes FOR EACH OBJFILE IN COLFILES FNAME=LCASE(OBJFILE.NAME) 'ouvrir seulement les fichiers comportant MYKEYWORD dans le nom IF LEFT(FNAME,6)= MYKEYWORD THEN STRFILENAME = OBJFILE.NAME SET OBJFILE = OBJFSO.OPENTEXTFILE(STRFILENAME, FORREADING) 'tous les informations du fichiers sont stocké dans une chaine STRWORDLIST = OBJFILE.READALL OBJFILE.CLOSE
Ensuite je recherche ma valeur connue apres avoir créer le tableau
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 'création d'un tableau avec l'espace comme séparateur STRSTARTER = STRWORDLIST INTSTARTER = LEN(STRSTARTER) FOR I = INTSTARTER TO 2 STEP -1 STRCHARS = SPACE(I) STRSTARTER = REPLACE(STRSTARTER, STRCHARS, " ") NEXT ARRSTARTER = SPLIT(STRSTARTER, " ") 'affiche la valeur a l'index 18 WSCRIPT.ECHO ARRSTARTER(18) End If Next
Avec ce tableau j'obtiens une valeur mais vu que l'index est statique (18) pour cet exemple, dans un fichier j'obtiens la valeurs souhaité dans un autre ca ne l'est pas.

Ce que je recherche c'est d'identifier le numéro qui sert d'index à ma valeur de recherche la transformer en variable "a" par exemple.
Afin que la ligne

Code:

WSCRIPT.ECHO ARRSTARTER(18)

devienne

Code:

WSCRIPT.ECHO ARRSTARTER(a)

Cela me permettra de ressortir les valeurs atour de celle-ci avec a+1 ou a+... ou a-1 ou a-...

Merci de votre aide :D

La fonction Instr() devrait résoudre ton probléme

Code:

1
2
3
4
5
6
7
8
9
10
11
Analyse "pour faire un essai","pour"
Analyse "Le mot recherché peut être a un endroit différent, pour exemple","pour"
Analyse "pour faire un essai","pas"
 
public sub Analyse(LeTexte,Rechercher)
if instr(LeTexte,Rechercher) then
 msgbox "trouvé position :" & instr(LeTexte,Rechercher)
 else
 msgbox "le mot ''" & rechercher & "'' est introuvable dans le texte"
end if
end sub

Citation:
Envoyé par ProgElecT
La fonction Instr() devrait résoudre ton probléme
Code:

1 2 3 4 5 6 7 8 9 10 11 Analyse "pour faire un essai","pour" Analyse "Le mot recherché peut être a un endroit différent, pour exemple","pour" Analyse "pour faire un essai","pas" public sub Analyse(LeTexte,Rechercher) if instr(LeTexte,Rechercher) then msgbox "trouvé position :" & instr(LeTexte,Rechercher) else msgbox "le mot ''" & rechercher & "'' est introuvable dans le texte" end if end sub
Citation:

Envoyé par ProgElecT

La fonction Instr() devrait résoudre ton probléme

Merci pour l'exemple mais en fait j'ai splitté la chaine en array car ce qui m'importe est ce qu'il y a derrière ma recherche et les informations peuvent avoir des longueur variables.

Donc c'est plus facile de travailler avec des array plutôt qu'une chaine de caractères?

Je suis d’accord avec toi, le splitage est plus rapide, mais tu vas perdre du temps à rechercher quel array contient la chaine connue, non ?

Un dernier exemple, pas forcement fonctionnel pour ton cas, toi seul connais le contenu du texte et les délimiteurs utilisables

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
msgbox Analyse1("pour faire un essai","pour")
msgbox Analyse1("Le mot recherché peut être a un endroit différent, pour exemple","pour")
msgbox Analyse1("pour faire un essai","pas")
 
'si un mot connue suit le texte à recuperer
msgbox Analyse2("pour faire un essai, comme çà, avec une fin connue","pour","connue")
msgbox Analyse2("Le mot recherché peut être a un autre endroit, encor un exemple différent.","endroit","différent")
msgbox Analyse2("pour faire un essai","pas","de mot trouvé.")
 
 
function Analyse1(LeTexte,Rechercher)
if instr(LeTexte,Rechercher) then
 Analyse1 = mid(LeTexte,(instr(LeTexte,Rechercher)+ len(rechercher)+ 1), len(letexte))
 else
 Analyse1 = ""
end if
end function
 
function Analyse2(LeTexte,Rechercher,TextFin)
dim Deb, Fin
 
Deb=instr(LeTexte,Rechercher)
if Deb <> 0 then
 Deb = Deb + len(rechercher)+ 1
 Fin = instr(DeB,LeTexte,TextFin)
 if Fin <> 0 then
  Analyse2 = mid(LeTexte,DeB, Fin)
  else
  Analyse2 = mid(LeTexte,DeB, len(letexte))
 end if
 else
 Analyse2 = ""
end if
end function

Bonne continuation.