Discussion :

[fastzombi]

Bonjour j'utilise Borland C++ builder6
Je veux lire un fichier text contenant du code assembleur 8086 et séparer l'instruction l'op1 et l'op2 j'utilise 3Edit et un RichEdit. Le RichEdit (RE1) contient le texte voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 int pos,ToEnd;
 
RE1->Lines->LoadFromFile("e:\\asm.txt");
 
ToEnd = RE1->Text.Length() - 0;
pos=StrToInt(RE1->FindTextA(" ",0,ToEnd,TSearchTypes()<< stMatchCase));
 
RE1->SelStart=0;
RE1->SelLength=pos;
Edit1->Text=RE1->SelText;
 
 
RE1->SelStart=pos+1;
pos=StrToInt(RE1->FindTextA(",",0,ToEnd,TSearchTypes()<< stMatchCase));
RE1->SelLength=pos-RE1->SelStart;
Edit2->Text=RE1->SelText;
 
RE1->SelStart=pos+1;
pos=StrToInt(RE1->FindTextA(" ",0,ToEnd,TSearchTypes()<< stMatchCase));
RE1->
RE1->SelLength=RE1->Lines->Text.Length()-pos; /* jusqu'a la fin de tout le text !?*/
Edit3->Text=RE1->SelText;

le probléme c'est qua la fin si ma premiére ligne est mov ax,5 et la econde add bx,3
le Edit3->Text contient 5 add bx,3
comment spécifier la ligne sur laquelle on travail, je veux que le Text.Lenght() ne marche que pour chaque ligne séparement est ce possible ?

Il faut décocher l'option "Désactiver le BBCode dans le message" pour que les balises [code] soient prises en compte.
Merci d'en tenir compte la prochaine fois [henderson]

Merci

[henderson]

Salut !

voir l'aide : TRichEdit::CaretPos

A plus !

[fastzombi]

Bonjour,
cela marche bien pour indiquer la ligne mais dans mon cas je n'en voie pas l'utilité puisque la fin de ma chaine n'est pas connue!
je pense lire directement du fichire!

[henderson]

Salut !

La longueur de la ligne est forcément connue puisque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

int ligne = RichEdit1->CaretPos.y;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

int longueur = RichEdit1->Lines->Strings[ligne].Length();

A plus !

[fastzombi]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lines.Strings[ligne]

c'est ce que je cherchais, je test mais je pense que c'est la sollution. Merci

[fastzombi]

Bonjour j'utilise Borland C++ builder6

voici la version brouillon du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
String chaine;
int i,poS,Index,Indx; //Indx idexe dans Memo1 Index index dans RE1
Index=0;  //i pour la boucle copie de carac et pos la fin de boucle
Indx=0;
 
 
while (UpperCase(RE1->Lines->Strings[Index])!="END") //condition d'arret
{
chaine=RE1->Lines->Strings[Index];    //chaine reçoit la ligne du RE
 
if (chaine.Length()!=0)
{  //si chaine vide on passe
Edit1->Text="";Edit2->Text="";Edit3->Text=""; //RAZ
 
poS=chaine.Pos(" "); //position de l'espace
for (i=1;i<poS;i++)
Edit1->Text=(Edit1->Text)+UpCase(chaine[i]); //instruction car par car
 
i=poS+1;    //commence apres espace pour empiler l'opérande ou reg
poS=chaine.Pos(","); //position de la virgule
switch (poS) // existe t'il une autre opérande ?
{
case 0:
{
poS=chaine.Length();
for (i;i<=poS;i++)
Edit2->Text=(Edit2->Text)+UpCase(chaine[i]); //operande
//afficher dans Memo instr op
Memo1->Lines->Strings[Indx]="Opération : "+Edit1->Text;
Indx=Indx+1;
Memo1->Lines->Strings[Indx]="Opérande : "+Edit2->Text;
Indx=Indx+1;
Memo1->Lines->Strings[Indx]="";
Indx=Indx+1;
break;
}
default:
{
for (i;i<poS;i++)
Edit2->Text=(Edit2->Text)+UpCase(chaine[i]); //operande 1 car par car
 
i=poS+1; //commence apres ,
poS=chaine.Length();
for (i;i<=poS;i++)
Edit3->Text=(Edit3->Text)+UpCase(chaine[i]); //operande 2
 
//afficher dans Memo instr op1 et op2
Memo1->Lines->Strings[Indx]="Opération : "+Edit1->Text;
Indx=Indx+1;
Memo1->Lines->Strings[Indx]="Opérande1 : "+Edit2->Text;
Indx=Indx+1;
Memo1->Lines->Strings[Indx]="Opérande2 : "+Edit3->Text;
Indx=Indx+1;
Memo1->Lines->Strings[Indx]="";
Indx=Indx+1;
break;
}
 
}
 
}
Index=Index+1; //incrementer Index
 
}

Merci A plus!