Un moyen simple et rapide consiste à installer une édition de script. Satimage.osax ( direct d/l ) et fonctionne avec regex. Le certificat du pkg a malheureusement expiré !
on run {input, parameters}
set text1 to change "^0+" into "" in (the clipboard as string) with regexp
do shell script "open https://api.whatsapp.com/send?phone=971" & text1
return input
end run
^0+ supprime les zéros de tête !
Un deuxième avec sed mais pas d'installation supplémentaire :
on run {input, parameters}
set text1 to do shell script "echo " & quoted form of (the clipboard as string) & " | sed 's/^0*//'"
do shell script "open https://api.whatsapp.com/send?phone=971" & text1
return input
end run
-
quoted form of (the clipboard as string) : '0501234567'
-
do shell script "echo " & '0501234567' & " | sed 's/^0*//'" : exécuter une commande shell echo '0501234567' | sed 's/^0*//' dans un script d'Apple
-
echo '0501234567' | sed 's/^0*//' : envoyer la sortie de echo vers l'éditeur de flux sed et faire quelque chose avec ça
-
^0* : expression régulière : ^ = début de la ligne * = quantificateur - correspond entre zéro et un nombre illimité de fois, autant de fois que possible
-
's/^0*//' : 's/reg_ex/replacement/' : remplace la chaîne de remplacement par la première instance de l'expression régulière dans l'espace de motif. Cela signifie : remplacer autant de zéros de tête que possible par la chaîne de remplacement. (=NIL/rien) \= enlever les zéros de tête
-
set text1 to ... : $text1=501234567
-
do shell script "open https://api.whatsapp.com/send?phone=971" & text1 : open https://api.whatsapp.com/send?phone=971501234567
Les deux ont été testés dans la version 10.11.6 (El Capitan) uniquement.
