Discussion :

[audreym31]

[Titre édité par Nono40]
[Ancien titre = Question bete... ]

Bonjour,

Je débute en Turbo Pascal, et je bloque sur un point bête.
Je vous explique :
J'ai une chaine du type : 1300c1340dr1430e , ce qui veut dire pour moi que l'événement "c" a duré de 13mn00s à 13mn40s, que l'événement "dr" a duré de 13mn40 à 14mn30, etc.
Comment faire pour que le programme repère les nombres (1300, 1340..), et ne les considere pas comme des chaines de caractères ??

Car lorsque je fais...

debut,i:integer;
ligne:string;
debut:=ligne[i]*1000+ligne[i+1]*100+ligne[i+2]*10+ligne[i+3]*100

...le compilateur me dit que j'attribue une chaine à une variable de type entier, donc il n'est pas content :-(
Or je ne connais pas la solution pour faire autrement.
(je sais, je débute !!)

Merci d'avance pour votre aide
Audrey

[M.Dlb]

Il faut que tu utilises les procédures de conversion de char en entier, c'est-à-dire ord(). Tu convertis alors les caractères dans ta chaîne en integer et ensuite tu peux faire les calculs que tu veux !

a+

[audreym31]

Merci !
Je m'en suis sortie avec une formule pas tres économique (avec des "(ord(ligne[i])-48)"...), je pense qu'il y a plus compact, mais ça marche :-)

encore merci,
Audrey

[Eric Sigoillot]

Euh... Avec Ord, ça va pas vraiment donner ce qu'il te faut.

Il vaudrait mieux utiliser la fonction Val, qui convertit réellement une chaîne en entier ou réel.

Ensuite, tu dois pouvoir faire la lecture dans une boucle, sachant que tu connais par avance la longueur des données à lire pour tes heures.

Ton programme doit pouvoir se faire avec les fonctions : Val, Delete et Length je pense, le tout dans une boucle repeat.

A+

[audreym31]

Ouille, je ne sais pas encore utiliser "val" et "delete" mais je vais tâcher de chercher quelque chose avec ça, merci :-)

Sinon ça marche quand meme avec ord, mais c'est long.. par ex. avec ord(0) on obtient 48, et du coup il faut soustraire 48 pour revenir à 0...
Et ord(1) donne 49, donc quand je soustrais 48 ça donne 1... etc..!!

a+