Discussion :

[AT]

Hello,

Voici une séquence un fragment d'ADN que je copie et colle dans un richedit comment être sur de compter le bon nombre de base ? j'en compte 1635

gaattcgagatgcgaatgagcagcagccattttgatgttgtgagcatcggaacgtttctgcgtccgtacactgtccttttgttacttagataatggctaaggcaagcagtccgggccaca
ggagtcaaaggcttttcgccagctcctaaacgctggaagtgtaattttttttcttcttataaaattaaacaaacccttttagaaaggaacactcgctttatctcttcgaccgaatttact
atacatggatatatatatattatcttctgttcacagttaaaactaggaatagcatagtcataagttaacaccatcatgttgagaacgtcaacattgttcaccaagcgtgtccaaccaagc
ctattttctagaaacattcttagattgcaatccacagctgcaatccctaagactcaaaaaggtgtcatcttttatgagaataaggggaacctgcattacaaagatatccctgtccccgag
cctaagccaaatgaaattttaatcaacgttaaatattctggtgtatgtcacaccgatttacatgcttggcacggcgattggccattacctgttaaactaccattagtaggtggtcatgaa
ggtgctggtgtagttgtcaaactaggttccaatgtcaagggctggaaagtcggtgatttagcaggtatcaaatggctgaacggttcttgtatgacatgcgaattctgtgaatcaggtcat
gaatcaaattgtccagatgctgatttatctggttacactcatgatggttctttccaacaatttgcgaccgctgatgctattcaagccgccaaaattcaacagggtaccgacttggccgaa
gtagccccaatattatgtgctggtgttactgtatataaagcactaaaagaggcagacttgaaagctggtgactgggttgccatctctggtgctgcaggtggcttgggttccttggccgtt
caatatgcaactgcgatgggttacagagttctaggtattgatgcaggtgaggaaaaggaaaaacttttcaagaaattggggggtgaagtattcatcgactttactaaaacaaagaatatg
gtttctgacattcaagaagctaccaaaggtggccctcatggtgtcattaacgtttccgtttctgaagccgctatttctctatctacggaatatgttagaccatgtggtaccgtcgttttg
gttggtttgcccgctaacgcctacgttaaatcagaggtattctctcatgtggtgaagtccatcaatatcaagggttcttatgttggtaacagagctgatacgagagaagccttagacttc
tttagcagaggtttgatcaaatcaccaatcaaaattgttggattatctgaattaccaaaggtttatgacttgatggaaaagggcaagattttgggtagatacgtcgtcgatactagtaaa
taatagcgtgttacgcacccaaacttttatgaaagtctttgtttataatgatgaggtttataaatatatagtggagcaaagattaatcactaaatcaagaagcagtaccagtattttttc
tatatcaagtagtgataatggaaatagcccaaatttggcttccgtcgac

Code :

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

1
2
3
4
5
6
7
procedure TForm1.EffaceCaracterClick(Sender: TObject);
var S:string;
begin
 S:= RichEdit1.Text;
 RichEdit1.Text:=ExcludeChars(S,CS);
 label1.caption:= inttostr(length(RichEdit1.Text));
end;

[nuxtay]

Salut,
en supossant que CS est un TSysCharSet
je dirais 1609 en excluant #13 et #10 (CRLF)
@+

[AT]

Yes nuxtay. Quel fonction pour compter le bon nombre ?

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
 
const CS : TSysCharSet = ['0'..'9','+','-','*','/','=',' '];
 
function ExcludeChars(const S : string; const CS : TSysCharSet) : string;
  var pR : PChar;
      L,I,N: integer;
  begin
    L := Length(S);
    I := 0;
    for N := 1 to L do
      if S[N] in CS then I := I + 1;
    I := L - I;
    if I = 0 then
    begin
      result := '';
      exit;
    end else
    begin
      SetLength(Result, I);
      pR := PChar(Result);
      for N := 1 to L do
        if not (S[N] in CS) then
        begin
          pR[0] := S[N];
          inc(pR);
        end;
    end;
  end;
 
procedure TForm1.EffaceCaracterClick(Sender: TObject);
var S:string; CS : TSysCharSet ;
begin
 S:= RichEdit1.Text;
 RichEdit1.Text:=ExcludeChars(S,CS);
 label1.caption:= inttostr(length(RichEdit1.Text));
end;

[Andnotor]

CS : TSysCharSet = ['0'..'9','+','-','*','/','=',' ', #13, #10]; ou à l'inverse, ne compter que les TAGC.

[sgmsg]

Code :

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

1
2
3
4
5
6
7
8
9
10
function decompte(adn:string):integer;
const bases='acgtiurwkbvysmdhn';
var i:integer;
adn:string;
 
begin
   decompte:=0;
   for i:=1 to length(adn) do 
       if pos(adn[i],bases)>0 then inc(decompte);
end;

Fait à la volée...
Possible de remplacer avec des tsyscharset si besoin de rapidité.

A+

[AT]

Good

thanks à vous