PureBasic

De mes tests, il vaut mieux rester en Ubuntu 18
Y'a pas mal de lib incompatibles sur la 20. Perso j'ai lâché l'affaire.
Je compile sous linux sur Mint 19.3 installé en virtuel via VirtualBox et je crois que j'en avais chié pour installer tout le bordel (parce que je suis en adsl et que les telech ...

Bonsoir
Un tuyau pour installer PB sur Ubuntu 20.04?Je n'y arrive pas...Surement encore une de mes lacunes...
Merci

salut, je devais être fatigué, il faut remplacer findstring(r$,",") par CountString(r$,",")

car findstring(r$,",") renvoi la position de la virgule la plus a gauche de la chaine.
alors que CountString(r$,",") renvoi le nombre de virgules dans la chaine ce qui donne le nombre d'elements a recuperer ...

avec des , comme separateur par exemple.


Dim contenu.s(50)
If OpenFile(1,"fichier.txt")
pos=0
Repeat
r$=ReadString(1)
nb=FindString(r$,",")
For rd=1 To nb+1
contenu(pos)=StringField(r$,rd,",")
pos+1
Next
Until Eof(1)
closefile(1)
EndIf
For a=0 To 50
Debug Str(a)+" - "+contenu(a ...

Le mode de récupération des données du fichier txt avec séparateurs et findstring() est le plus simple.
Après pour le traitement tu as plein de solutions.

Exemple avec des maps


Structure Oiseau
Nom.s ; Nom scientifique..
Type.s ; rapace etc
Vie.s ; diurne/nocturne
EndStructure

NewMap ...

Tout depend de comment sont ecris et stockés tes noms d'oiseaux !
regarde du côté de DIM, MAP voir même LIST
Mais donne nous un exemple de contenu ce sera plus aisé
fichiers text (moineaurougegorgegrimpereaumesange grise etc) (passereaux rapaces perroquets....)
je voudrais recuperer tout cela dim ...

Bonsoir
Encore un truc que j'ai du zapper ,veuillez m'en excuser.
Comment peut on charger des fichiers que j'ai sur mon DD (des noms d'oiseaux et d'especes) dans des tableaux .
Merci

falsam a écrit :Le sujet de ach ne traite pas de la 2D

Merci à vous trois et bravo pour votre réactivité
Je vais tester tout cela

Bonjour
Quelqu'un pourrait il me dire comment sélectionner un élément dans une ListViewGadjet au moyen d'un clic de souris afin de le mettre dans une variable pour l'utiliser dans la suite du programme.
Je ne vois pas comment on gère la souris .Je suis nul..
Merci

If OpenWindow(0,0,0,940,1080 ...

Merci Falsam
Je me doutais bien que PB n'avais pas cette lacune mais je me suis bien pris la tête avec cela.
j'ai encore du boulot pour apprendre les bases...
encore merci

Je vous joint un exemple de mon mauvais code qui ne fonctionne pas

Structure Achats
Mois.s
Categories.s
Articles.s
Prix.f
EndStructure

Dim Budjet.Achats(6)

Budjet(0)\Mois="Janvier"
Budjet(0)\Categories="Animaux"
Budjet(0)\Articles="Paté chats"
Budjet(0)\Prix=22.95
Budjet(1)\Mois ...

Bonsoir
j'ai des additions(des *,/) à faire sur 4000 à 5000 nombres et quand j'additionne 12.47+56.37+15.45+3.03 j'attend 84.32 et Pb me donne 83.Quelle méthode dois je employer ?j'ai beau lire je ne trouve rien .Surement le Ba Ba pour vous mais moi rien de valable .Merci à celui qui vas m'aider ...

Allez comme j'ai brassé un peu dessus ces derniers temps, voilà le code prêt à l'emploi.

Par contre je vais corriger ton titre. On ne parle pas spécifiquement de Cortana, même dans ton code. Ici on utilise SAPI voice (Speech Application Programming Interface).
Voilà. Amuse toi bien (quand tu auras ...

Bonjour et bienvenue,

Je te renvoie sur le cite de GallyHC : http://www.koakdesign.info/pbfrance/?url=source&cmd=viewer&val=46
Tu trouveras la routine qu'il te faut. (clique sur "code source" car le code que tu veras sur la page est une petite modif d'une partie du code)

Si tu ne connais pas PB ...