dino34
Messages postés32Date d'inscriptionjeudi 6 janvier 2011StatutMembreDernière intervention 3 novembre 2023
-
Modifié par Whismeril le 20/02/2015 à 15:45
Whismeril
Messages postés18991Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention27 mars 2024
-
21 févr. 2015 à 18:17
Bonjour,
j'ai un fichier texte comme suit :
name:address ip1 serv
debut
long
VRRP2-1
VRRP2-2
.
.
VRRP-100
FIN
name:address ip2 serv
debut
long
VRRP-1
VRRP-2
.
.
VRRP-65
FIN
je cherche a extraire seulement les nombre puis je le met dans un memo :
j'utilise ce code est il marche bien pour la première partie uniquement :
N := Pos('VRRP2-', s);
if N<> 0 then
begin
Delete(S, 1, 6);
N := Pos('VRRP-', s);
if N<> 0 then
begin
Delete(S, 1, 5);
dino34
Messages postés32Date d'inscriptionjeudi 6 janvier 2011StatutMembreDernière intervention 3 novembre 2023 20 févr. 2015 à 17:05
salut:
mille merci , ça marche bien .
juste une dernière question :
les nombres reçu du fichier texte après traitement , je vais les mettre dans un listbox1 et je veux à chaque 22 je ferai division et
j'affiche le résultat dans listbox2:
procedure TForm1.Button1Click(Sender: TObject);
var
i,Nr: integer;
begin
ListBox2.Clear;
Nr:=0; for i := 0 to 22 do ListBox1.Items[ListBox1.ItemIndex]; Nr := StrToIntDef(ListBox1.Items[ListBox1.ItemIndex], 0); Nr := Trunc(Nr/22); ListBox2.Items.Add(IntToStr(Nr)); end;
mon code me donne un seul nombre dans listbox2:
par exemple:
du 1 au 22 j'ai 0
du 22 au44 j'ai1
jusqu'à cent j'aurai 4.
je cherche quand je click sur button1 :
il m'affiche le tout à la fois :
0
1
2
3
4
merci dubois77 pour votre aide et suggestion .
--
dubois77
Messages postés675Date d'inscriptionjeudi 17 avril 2008StatutMembreDernière intervention19 février 201914 21 févr. 2015 à 12:12
Je ne comprends pas bien ce que tu veux faire
en plus le bout de code que tu donne n'est pas correct :
[ for i := 0 to 22 do ListBox1.Items[ListBox1.ItemIndex]; ]
cela ne veux rien dire
dino34
Messages postés32Date d'inscriptionjeudi 6 janvier 2011StatutMembreDernière intervention 3 novembre 2023 21 févr. 2015 à 17:04
Bonjour dubois77:
Merci beaucoup pour vos remarques, je vais clôturer cette discussion puisque la première question a été résolus et ouvrir une autre qui sera synchroniser deux listbox.
1000 merci
--
Whismeril
Messages postés18991Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention27 mars 2024654 21 févr. 2015 à 18:17
je vais clôturer cette discussion
merci de cliquer sur le lien "Marquer comme résolu" sous le titre de la discussion