équivalent explode

Bonjour,

Existe-t-il dans panoramic une fonction équivalant à la fonction explode du php par exemple. Cette fonction consiste à découper une chaîne de caractères à la rencontre d'un caractère déclaré appelé séparateur, et à renvoyer chacun des éléments ainsi créés. Par exemple :

La chaîne "papa;maman;bébé;papy;mamie" se trouve explosée en 5 parties si je déclare le point-virgule comme séparateur. La fonction me retourne alors un tableau de 5 éléments :

chaine[1] = "papa"
chaine[2] = "maman"
etc.

Je vous remercie de votre réponse.

Actuellement, cela n'existe pas. Tu peux faire ceco:

Code:

dim origine$, nchaine%,p%,chaines$(20)
origine$ = "papa;maman;bébé;papy;mamie"
p% = instr(origine$,";"
nchaine% = 0
while p%>0
  nchaine% = nchaine% + 1
  chaine$(nchaine%) = left$(origine$,p%-1)
  origine*$ = mid$(origine$,p%+1,len(origine$))
  p% = instr(origine$,',')
end_while

tu obtiens nchaine% = nombre de sous-chaînes
et chaine$(...) les sous-chaînbes.

Et bienvenue sur ce site, ambroise !
Il n'y a peut-être pas, dans panoramic,
tout ce qu'on peut trouver dans les divers
autres langages, mais il y a déjà pas mal de
choses, et en plus, c'est évolutif, c'est à dire que
Jack, le créateur du langage, en rajoute à chaque
nouvelle version, selon les bonnes idées des demandes
de chacun. Super, non ?
Alors, bonne programmation !

Merci Klaus pour cette réponse rapide qui fonctionne bien.
Petites corrections :
- déclaration de chaine$(20) sans "s"
- fermeture de parenthèse nécessaire à la ligne 3
- remplacer l'apostrophe par les guillemets à la ligne 9 : p% = instr(origine$,",")
- terminer la chaîne de caractères par un séparateur (ici le point-virgule) : origine$ = "papa;maman;bébé;papy;mamie;"

Vraiment merci pour ce script efficace et le temps que vous m'avez fait gagner.

Merci jjn pour vos souhaits de bienvenue.
Ce langage très simple est parfait pour moi qui ne suis pas un super programmeur. Simple mais riche de possibilités. Et avec ce forum d'aide je devrais m'en sortir ! Que son créateur soit remercié comme les utilisateurs calés qui donnent de leur temps pour les débutants !

Désolé pour les imprécisions de mon code. Je voulais te répondre vite, car je devais m'absenter d'urgence, et j'ai saisi le code directement dans le post, sans passer par Panoramic.

Voici, pour la bonne forme, une version rectifiée, transformée en sousprogramme réutilisable:

Code:

label explode

dim origine$, nchaine%,p%,i%,chaines$(20)

memo 10

origine$ = "papa;maman;bébé;papy;mamie"
item_add 10,origine$
gosub explode
item_add 10,"explose en:"
for i%=1 to nchaine%
  item_add 10,chaines$(i%)
next i%
end

explode:
p% = instr(origine$,";")
nchaine% = 0
while p%>0
  nchaine% = nchaine% + 1
  chaines$(nchaine%) = left$(origine$,p%-1)
  origine$ = mid$(origine$,p%+1,len(origine$))
  p% = instr(origine$,";")
end_while
return

N'en soyez pas désolé. Votre code m'a fait gagner un temps fou.
Merci aussi pour votre second code.

Bonjour et bienvenu ambroise dans l'univers des panoramiciens. Il parait que certains sont un peu fou!
Bonne programmation à toi et amuse toi bien!

bienvenue Ambroise,

Bigono à dit:

Citation :

Il parait que certains sont un peu fou!

Je dirais plutôt "TOUS!"

A+

Merci pour votre bon accueil.

Petite question : l'éditeur se lance bien, mais l'IDE, pas moyen. Une cascade de fenêtres me répète à n'en plus finir : Cannot focus a disabled or invisible window". Ce phénomène arrive même si je viens d'allumer le PC, avec une mémoire toute propre. Mon système d'exploitation est Windows 7.

Willkommen Ambroise

Severin

Bienvenue à toi Ambroise!

Bigono a dit:

Citation :

Il parait que certains sont un peu fou!

Jean-Claude a dit:

Citation :

Je dirais plutôt "TOUS!"

Moi, je dirais même plus : On passe un temps fou en écrivant des programmes ; on passe un temps fou sur le Forum ; on passe un temps fou pour répondre aux autres utilisateurs du Forum ; on passe un temps fou pour comprendre les programmes des autres ; on passe un temps fou pour finalement s’amuser et se sentir bien ! Moi, je le voie comme ça et j’adore ma …..folie !!

Ambroise, sérieusement, je te souhaite une bonne programmation.

merci à tous pour vos messages de bienvenue.