Enregistre le titre en cour sur radio dans un fichier texte

[Backup]

j'ai rééditer ma procedure ci dessus ! sorry je me reveille

[John]

OK super ça marche la dernière modif:

Artist: Dwayne Kerr
Titre : I Didn't Know

Merci beaucoup.

A+

[Backup]

je viens de reedité tout les codes (page1 aussi )

avec cette procedure

Code : Tout sélectionner

Procedure.s filtre(Var.s)
	for i=32 to 255
		if i<100
			Var.s = ReplaceString(Var.s,"&#"+"0"+str(i),chr(i) )
			Else
			Var.s = ReplaceString(Var.s,"&#"+str(i),chr(i) )
		Endif
	Next i
	
	; By Dobro
	; autre exemple de filtre qui a l'avantage que nous voyons directement les caracteres que nous désirons garder , il suffit de les ajouter dans la chaine Ref.s
	ref.s="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ&()/éèê.:[]-' " ; << derniere caractere est un espace
	For i=1 to len(var.s)
		ex.s=mid(var.s,i,1)
		If findstring(ref.s,ex.s)>0
			sort.s=sort.s+ex.s
		Endif
	Next i
	ProcedureReturn Sort.s
Endprocedure

j'ai ajouté la possibilité d'affichage des parentheses , et de certains accent , car j'ai constaté que de temps en temps il y en avait
j'ai aussi ajouté le Slash et le & car ça ne m"etonnerai pas qu'il faille les afficher ...

[John]

Oui j'ai aussi rajouter [] car il y en a de temps en temps. ça marche bien maintenant.

Le plus gênant étant le ' qui me foutait un zouk sur l'afficheur du tuner!
pour le reste ça ajoute de la lisibilité au texte.

Merci.

[Backup]

ok ben j'ai ajouté ...