Aspi Radioblog

[venom]

a ok mais j'ai un petit souci , si par exemple je tappe amélie poulain dans la barre de recherche de radioblog sa me met: Votre recherche n'a donné aucun résultat.

alors que si je met amelie poulain sans l'accent et bien la il me trouve des chansons donc je ne comprend pas tout j'ai donc chercher des chansons avec accent mais sans passer par la barre de recherche et je n'en ai pas vu.
donc désolé mais je ne trouve pas de titre qui ont des accentuation sur radioblog. . si j'ai des apostrophe mais sa sa s'enregistre bien.
donc voila


@++

[Ar-S]

La plupart des chansons étant anglo saxonne, il se peut que les accents ne courent pas les rues. Tant mieux pour toi

[venom]

lol oui c'est clair, si non apart sa tout fonctionne bien ?

d'ailleur si sa peut servir voici le code source :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Web_0
  #Button_0
  #Button_1
  #ExplorerList_0
  #Text_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 800, 800, "Aspi radioblog",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      WebGadget(#Web_0, 0, 0, 800, 600, "http://www.radioblogclub.fr/")
      ExplorerListGadget(#ExplorerList_0, 0, 625, 800, 175, "C:\Documents and Settings\"+GetEnvironmentVariable("username")+"\Local Settings\Temporary Internet Files\Content.IE5\*.rbs", #PB_Explorer_AutoSort | #PB_Explorer_AlwaysShowSelection | #PB_Explorer_FullRowSelect)
      ChangeListIconGadgetDisplay(#ExplorerList_0, #PB_ListIcon_LargeIcon)
      TextGadget(#Text_0, 200, 605, 500, 20, "ouvrir les dossiers ci-dessous puis clic droit sur la musique souhaité pour convertir en mp3")
      ButtonGadget(#Button_0, 0, 600, 145, 25, "precedent", 0)
      ButtonGadget(#Button_1, 655, 600, 145, 25, "effacer les vieilles chansons", 0)
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
      Case #Button_0
       SetGadgetState(#Web_0, #PB_Web_Back)
      
      Case #Button_1
       DeleteDirectory("C:\Documents and Settings\"+GetEnvironmentVariable("username")+"\Local Settings\Temporary Internet Files\Content.IE5\", "*.*", #PB_FileSystem_Recursive)

       Case #ExplorerList_0
        Select EventType()
         Case #PB_EventType_RightClick
          fichieracopier$ = GetGadgetText(#ExplorerList_0) + GetGadgetItemText(#ExplorerList_0, GetGadgetState(#ExplorerList_0), 0)
           fichier1$ = ReplaceString(fichieracopier$,"%20"," ")
            save$ = SaveFileRequester("enregistrer sous", fichier1$, "mp3|*.mp3", 0)
             pos = FindString(save$, ".rbs", 1)
              fichier1$ = LSet(save$, pos-4)
             CopyFile(fichieracopier$, fichier1$ + ".mp3")
 
        EndSelect
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

@++

[Ar-S]

Pour l'Histoire de l'accent d'Amélie, ajoute

Code : Tout sélectionner

fichier1$ = replacestring(fichieracopier$,"%C3%A9","é") 

ainsi que (pour que le fichier porte directement la bonne extension) :

Code : Tout sélectionner

extentension$=GetExtensionPart(fichier1$)
if extension$<>"mp3"
    extension$="mp3" 
else
    extension$=extension$
endif

après ou avant ton

Code : Tout sélectionner

fichier1$ = ReplaceString(fichieracopier$,"%20"," ")