PureBasic

falsam a écrit :Si cette astuces fonctionne chez toi, alors le code suivant fonctionne aussi

gibet_b a écrit :Eh bien non, après vérification, elle ne fonctionne pas sous Mac ! Et "l'équivalent", la palette de caractère, a le même effet que lorsque je copie/colle : un point d'interrogation pour certains signe de ponctuation...
Je pense que je vais créer une fonction qui permet de vérifier si un chiffre est compris dans une série d'intervalles. Ça peut toujours être utile, et je viendrai la mettre ici.

gibet_b a écrit :Je pense que je vais créer une fonction qui permet de vérifier si un chiffre est compris dans une série d'intervalles.

*RegMatch = CreateRegularExpression(#PB_Any ,"([2-3][0-9])")
Debug MatchRegularExpression (*RegMatch, "35") ; Retournera vrai
Debug MatchRegularExpression (*RegMatch, "15") ; Retournera faux

*RegMatch = CreateRegularExpression(#PB_Any ,"([2-3][0-9]|[5-7][0-5])")
Debug MatchRegularExpression (*RegMatch, "71") ; Retournera vrai

gibet_b a écrit :Bonjour à tous,

Comme je l'ai dit dans un autre sujet, je me frotte à PureBasic, en transposant une petite application que j'ai créé pour aider ma femme à faire des textes à trous.

Je parcours le texte soumis caractère par caractère, et pour détecter s'il s'agit d'un caractère de ponctuation, voilà comment je faisais sous RealBasic :

1/ Je déclarais une constante contenant tous les signes de ponctuation (ou en tout cas ceux qui m'intéressent) :

Code : Tout sélectionner

Const PONCTUATION = ".,;?!()"“”«»':-—–’"

2/ Je vérifiais si le caractère en cours figurait dans la contante pour savoir si c'était un signe de ponctuation :

Code : Tout sélectionner

If InStrB(PONCTUATION,caractere) > 0

Le hic, c'est que certains caractère sont remplacés par des "?" lorsque je copie/colle dans l'EDI de RealBasic. Notamment, une des deux formes d'apostrophe( ’ ), mais aussi les différents tirets ( — et – ) et certaines formes de guillemets( “” ).

Declare.s recherche_ponctuation(text.s)

text.s=" Toto est (perdu), ou bien 'trouvé' ? "
MessageRequester("info", recherche_ponctuation(text.s))






procedure.s recherche_ponctuation(text.s)
	PONCTUATION.s = ". , ; ? ! ( ) ? ? « » ' : - ? ? ? "+chr(34)
	for i=1 to len(PONCTUATION.s)
		x_car.s=StringField(PONCTUATION.s,i," ")
		pos=findstring(text.s,x_car.s,1)
		if pos<>0
			resultat.s=" le caractere : "+" '"+x_car.s+"' "+ "a été trouvé a la position :"+str(pos)+chr(10)+"  Dans la phrase :"+chr(10)+text.s
			ProcedureReturn resultat.s
		endif
	next i
EndProcedure
; EPB

gibet_b a écrit :Etant donné que lorsque je copie/colle certains caractères dans l'EDI, ils sont remplacés par des « ? », je ne peux pas faire un simple :

Code : Tout sélectionner

IF caractère = "—"

(ou une quelconque recherche de ce caractère dans une chaine composée de tous les signes de ponctuation qui m'intéresse)

Mon idée est donc de voir si le code ASCII du caractère saisi par l'utilisateur se situe dans telle ou telle plage, ou s'il est égal à telle valeur.

TXT.s = "une petite citation : " + Chr(34) + "Les regex sont pratiques" + Chr(34)
Debug TXT

TXT.s = "un texte "+Chr(171)+"entre"+Chr(187)+" guillemets"