*AppleScriptsVanilla*
ascii_to_HTML
Average
Calculator
Calendar
Count_item
cut_text
days_week
EAN13
Encrypt-Decrypt
FactPremier
French_Vanilla_Dotted_Date
French_Vanilla_Dotted_Date2
Hexa_to_Bin
Last_month
list_erase
list_insert
list_replace
ListeDiviseurs
ListePremiers
Minuscule
NombreLong
NombreLong2
NomExtension
num_item
num_month
num_month2
num_week
number_format
number_format2
Paques
PGCD
PGCD2
reverse_string
Roman_to_Arab
round_decimal
search_email
search_replace
search_URL
SepNbre
SepNbre2
snip_text
stat
TauxPermut
TauxTransform
the_left
the_right
TriBulle
TriLineaire
week_and_year
XOR
ZeroDouble

cut_text

Syntaxe

cut_text(the_text, tag1, tag2)
Expurge une chaïne de caractères, des caractères compris entre les paires de caracteres "tag1" et "tag2" et incluant ceux-ci. Les paramètres et le résultat sont au format texte. Les variables tag1 et tag2 doivent être différentes et en nombre égal.

Exemple

cut_text("HyperCard est (probablement)le (véritable)précurseur du WEB", "(", ")")
---> "HyperCard est le précurseur du WEB"

Script

on cut_text(the_text, tag1, tag2)
	set flag to true
	set temp to ""
	repeat with the_char in the_text
		if the contents of the_char is tag1 then
			set flag to false
		else if the contents of the_char is tag2 then
			set flag to true
		else if flag is true then
			set temp to the temp & the_char as string
		end if
	end repeat
	return temp
end cut_text

Remarque

Métaphore : une route (the_text), parcourue par un vehicule (contents of the_char), un panneau vitesse limitée à 50Km (tag1), le véhicule ralenti (flag is false), un panneau fin de limitation (tag2), le vehicule reprend sa vitesse initiale (flag is true), entre les 2 panneaux le véhicule roule lentement ( temp n'augmente pas) et en dehors le véhicule roule vite (temp augmente).
La méthode utilisée est celle d'une machine de Turing. Voir une série d'articles de Jean Tricot dans "Science & Vie" N° 689 à 696 (Fév 1975 à Sep 1976 ).