Discussion :

[thais781]

Bonjour,

J'ai un fichier disons de 100 caractères, je voudrais juste récupérer le mot qui contient le caractère n°40.

Pour l'instant je recherche le caractère "espace" avant et après mais c'est un peu lourd.

Une autre idée ?

Idem si on peut avoir le mot d'avant et le mot d'après ?

Merci pour votre aide

Thais

[PBELL]

Bonsoir Thiais781,

Le plus simple est de procéder en 2 temps :
1) lecture de tout le texte du document Word dans une variable, puis transformation en liste de mots,
2) recherche du caractère dans chaque mot. Lorsqu'il est trouvé, enregistrement de l'index du mot.

il est donc ensuite possible avec Index de trouver le mot qui contient le caractère cherché, avec (Index-1) de trouver le mot qui précède, avec (index+1) de trouver le mot qui suit,...et ainsi de suite.

Voici le code :

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
18
19
20
21
22
-- cherche le caractère de code 40 dans le texte Word
 
set Mon_Car to ASCII character 40 -- caractère de code ASCII = 40
 
-- passe le texte du document ouvert dans la variable Mon_Texte
tell application "Microsoft Word"
	activate
	tell active document
		set Mon_texte to content of text object
	end tell
end tell
 
-- transforme le texte en liste de mots
set Mes_Mots to every word of Mon_texte
-- recherche dans chaque mot
repeat with I from 1 to count of Mes_Mots
	if Mon_Car is in item I of Mes_Mots then
		set Mon_Index to I
		set I to count of Mes_Mots -- pour terminer rapidement la boucle !
	end if
end repeat
display dialog "Index=" & Mon_Index & return & "Mot=" & item Mon_Index of Mes_Mots

Tu vois que la recherche peut se faire sur un caractère, mais aussi sur une suite de caractères. Par exemple en changeant la ligne 3 avec :

Code :

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

Set Mon_Car to "Thi"

Cela va chercher le mot qui contient "Thi"

Ensuite Mon_Index contient le N° du mot. Il est donc facile de prendre le mot précédent (Mon_Index-1) ou suivant (Mon_Index+1)

Cordialement