Discussion :

[Maxence45]

Le programme marche , c'est un vrai cours particulier que j'ai eu là je te remercie , j'ai appris pleins de trucs .
Je persiste à penser que ta méthode était la plus complexe ( dis moi si je me trompe ) , car je n'ai pas encore vu des fonctions de type setlength...

PS : la prochaine fois quand je mettrai un algo dis le tt de suite si il est incomplet on ira bcp plus vite .

[Haywire]

A ma connaissance il n'y a pas de moyen plus simple de supprimer les espaces dans une chaine de caractères.
De nombreuses procédures et fonctions sont déjà fournies par le langage, mais il n'en existe pas qui supprime les espaces dans une chaine. La seule qui s'en rapproche c'est la fonction trim, qui enlève les espaces se trouvant au début et à la fin d'une chaine.

Attention setLength n'est pas une fonction, c'est une procédure, elle ne renvoit pas de résultat.

La plupart des exercices de débutants (et c'est vrai dans tous les langages) consistent à réécrire les fonctions et procédures fournies par le langage, pour comprendre comment elles fonctionnent.

Une autre méthode aurait été de déclarer une variable local de type chaine dans la fonction, de copier un à un chaque caractère de la 1ere chaine dans la 2e, sauf les espaces. Et de renvoyer la 2e chaine comme résultat de la fonction. Mais ça aurait utilisé + de mémoire puisque le programme devrait gerer 2 chaines en même temps.

[Alcatîz]

Bonjour,

Une autre méthode aurait été de déclarer une variable local de type chaine dans la fonction, de copier un à un chaque caractère de la 1ere chaine dans la 2e, sauf les espaces. Et de renvoyer la 2e chaine comme résultat de la fonction. Mais ça aurait utilisé + de mémoire puisque le programme devrait gerer 2 chaines en même temps.

Pas besoin de deux chaînes, tu peux appliquer ce principe à la chaîne elle-même :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Reply (s : String) : String;
Var CompteurSource, CompteurDest : Byte;
Begin
  CompteurDest := 1;
  for CompteurSource := 1 to Length(s) do
    if s[CompteurSource] <> ' '
       then
         begin
           s[CompteurDest] := s[CompteurSource];
           Inc(CompteurDest);
         end;
  s[0] := Char(CompteurDest);
  Reply := s;
End;

[Haywire]

Pas mal du tout. Sauf que s[0] := Char(CompteurDest) déclenche une erreur: [Error] Project2.dpr(31): Element 0 inaccessible - use 'Length' or 'SetLength'

Donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Reply (s : String) : String;
Var CompteurSource, CompteurDest : Byte;
Begin
  CompteurDest := 1;
  for CompteurSource := 1 to Length(s) do
    if s[CompteurSource] <> ' '
       then
         begin
           s[CompteurDest] := s[CompteurSource];
           Inc(CompteurDest);
         end;
  setLength(s,CompteurDest-1);
  Reply := s;
End;

[Alcatîz]

Sauf que s[0] := Char(CompteurDest) déclenche une erreur: [Error] Project2.dpr(31): Element 0 inaccessible - use 'Length' or 'SetLength'

A mon avis, ton compilateur considère qu'il s'agit d'ansistrings.

[Haywire]

Je suis sous Delphi donc string = ansiString chez moi.
Mais je ne pense pas que ça ait un rapport avec le format, ça doit être une simple protection, qui n'existe peut-être que sous delphi.

[Ultima]

Bonjour,
Sous TurboPascal et FreePascal, s[0] = Length(s)
Si tu change S[0] c'est comme si tu veux faire SetLength(s) mais de maniere plus exotique...
L'erreure vient probablement de la.

[defluc]

Bonjour,
J'ai créé la fonction suivante sous Pascal Delphi qui possède la fonction Delete dans l'unité System.

Function OteBlanc(MonString:String):String;
Begin
MonString:=Trim(MonString);
While (Pos(' ',MonString)>1)and(Pos(' ',MonString)<Length(MonString)) do
delete(MonString,Pos(' ',MonString),1);
Result:=MonString;
end;

[droggo]

Hi,

Je suis sous Delphi donc string = ansiString chez moi.
Mais je ne pense pas que ça ait un rapport avec le format, ça doit être une simple protection, qui n'existe peut-être que sous delphi.

En Delphi, string est une ansiString, qui peut prendre une longueur > 255, on ne peut donc pas stocker cette longueur dans chaine[0] qui est un char, et ne peut donc valoir plus de 255.
La procedure SetLength existe, il faut s'en servir.

J'ai créé la fonction suivante sous Pascal Delphi qui possède la fonction Delete dans l'unité System.

Code :

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

1
2
3
4
5
6
7
8
Function OteBlanc(MonString:String):String;
Begin
  MonString:=Trim(MonString);
  While (Pos(' ',MonString)>1)and(Pos(' ',MonString)<Length(MonString)) do
  delete(MonString,Pos(' ',MonString),1);
  Result:=MonString;
end;

ça marche plus ou moins, mais pas pour tous les cas, et présente l'inconvénient de partiellement parcourir la chaine plusieurs fois, via la fonction Pos (3 fois (voir plus loin) par espace tant qu'il en reste dans la chaine, sauf ceux de début/fin supprimés par trim [qui elle-même a déjà parcouru la chaine]), et le test contrôlant la boucle while n'est pas bon : la partie que j'ai mise en rouge ne sert à rien, Pos ne pouvant en aucun cas renvoyer une valeur > à la longueur de la chaine (renvoie 0 si caractère pas trouvé).
Et de plus, l'autre test contrôlant la boucle while est faux:

Code :

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

Pos(' ',MonString)>1)

que se passe-t-il s'il ne reste qu'un caractère dans la chaine, et qu'il s'agit d'un espace ? il ne sera pas supprimé.

donc le test devrait être

Code :

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

Pos(' ',MonString)>0)

Pourquoi 3 fois par espace ? une fois par couleur ci-dessous:

While (Pos(' ',MonString)>1)and(Pos(' ',MonString)<Length(MonString))[/color] do
delete(MonString,Pos(' ',MonString),1);

dont, comme précisé plus haut, une inutile Pos(' ',MonString)

A mon avis, la meilleure version est celle de Mushroom7 , corrigeant celle d'Alcatîz, en utilisant SetLength, et en ayant vu que la longueur finale est = CompteurDest-1.

Dailleurs, pour éviter ce CompteurDest-1 à la fin, j'aurais initialisé CompteurDest à 0, et l'aurais incrémenté avant d'ajouter le caractère <> ' ' qui vient d'être trouvé dans la boucle, ce qui fait que CompteurDest aurait toujours valu la longueur effective de la chaine en reconstruction. Mais c'est bien pour pinailler.

[Ultima]

Bonjour,

Je propose ce code ci, il me semble qu’il n’est pas très compliqué et fait bien son boulot.

Code :

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

1
2
3
4
5
6
7
8
9
function noSpaces( s : STRING ) : STRING;
var  i : BYTE;
     saux : STRING;
Begin
  saux:= '';
  for i:= 1 to length(s) do
    if not( s[i] = ' ') then saux:= saux+s[i];
  noSpaces:= saux;
end;

Bonne journée.

[droggo]

Ho,

Bonjour,

Je propose ce code ci, il me semble qu’il n’est pas très compliqué et fait bien son boulot.

Code :

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

1
2
3
4
5
6
7
8
9
function noSpaces( s : STRING ) : STRING;
var  i : BYTE;
     saux : STRING;
Begin
  saux:= '';
  for i:= 1 to length(s) do
    if not( s[i] = ' ') then saux:= saux+s[i];
  noSpaces:= saux;
end;

Bonne journée.

Cela impose l'utilisation d'une string en tampon, on peut s'en passer.

D'autre part, pourquoi se limiter à un Byte pour la longueur de la chaîne ? Cela spécialise ta fonction pour les chaînes "classiques", et ne marchera plus pour les chaînes type "ansiString" par exemple, qui peuvent avoir une longueur bien supérieure.

Ça ne sert absolument à rien, même pas à économiser de la mémoire, car le compilateur va ligner les données sur la taille du mot mémoire du processeur, cela d'autant plus que les variables locales sont réservées dans la pile, qu'il ne faut pas désaligner, sous peine d'ennuis certaines.
Et la string tampon que tu utilises en consomme beaucoup plus que ce que tu pourrais espérer gagner, si le problème d'alignement n'existait pas.

Tu perds également en vitesse, car les processeurs modernes n'aiment pas traiter des données de longueur inférieure à leur largeur native (32 ou 64 bits, actuellement).

[Ultima]

Bonjour,
Merci Droggo, t'as l'aire très bon.
Comment puis-je travailler sur des chaînes d’une longueur supérieure à 255 caractères ?
Comment déclarer ce genre de chaîne ? Et Quelle est leur taille ?
Comment me passer d’une variable intermédiaire pour la fonction que j’ai proposée ?

En fait je suis débutant en pascal si tu pouvais me dire où tu trouves tes tutoriaux, ce serait impeccable.
Encore merci et à plus.

[Ultima]

Bonjour,
Mes trois premières questions sont résolues, je crois...
Il m’a suffit de faire ceci :

Code :

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

1
2
3
4
begin
  writeln('taille AnsiSTRING : ',sizeof(AnsiSTRING),' Octets');
  writeln('Soit : ',sizeof(AnsiSTRING)*256,'-1 caract'#138'res');
end.

[droggo]

Hi,

Bonjour,
Mes trois premières questions sont résolues, je crois...
Il m’a suffit de faire ceci :

Code :

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

1
2
3
4
begin
  writeln('taille AnsiSTRING : ',sizeof(AnsiSTRING),' Octets');
  writeln('Soit : ',sizeof(AnsiSTRING)*256,'-1 caract'#138'res');
end.

Et qu'obtiens-tu en affichage ?

En fait, la taille possible pour une ansiString peut dépendre du compilateur. En Delphi par exemple, ça peut aller jusqu'à 2^31, soit 2 Giga Bytes !!
Les compilateurs ne connaissent pas tous ce type de chaine, Turbo Pascal, entre autres.

Le "sizeof(AnsiSTRING)" ne te donne pas la taille possible d'une chaine de ce type.

Pour te passer de chaine intermédiare, remonte dans les messages, Alcatîz a donné une solution (qu'il faut corriger comme l'a fait Mushroom7), et également corriger en remplaçant les byte, comme pour ta version, pour ne pas se limiter aux chaines classiques du Pascal, de longueur maximale 255 caractères.

Côté tutoriaux (en français, on dit "didacticiels"), vois ceux du site, je ne sais pas s'il en existe, les ansiString n'ayant pas grand chose de différent des string classiques, hormis la longueur maximale, et le fait qu'on ne peut pas mettre la longueur effective en faisant [b}chaine[0] = la_longueur[/b]

[Ultima]

Bonjour,
voici je que j'obtiens:

>
taille AnsiSTRING : 4 Octets
Soit : 1024-1 caractères

Je suis très étonné car j’ai remarqué que je peux stocker 335 caractères dans une chaine du type STRING et 1584201679 caractères dans une chaine du type AnsiString.

Pour les Ansistring, je ne sais pas si c’est normal, mais pour les STRING, je croyais que c’été 255.

pour vérifier:

Code :

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

1
2
3
4
5
6
7
8
var s : String;
    i : CARDINAL;
begin
  for i:= 1 to 1000 do
  begin
    writeln(i);
    setlength(s, i);
  end;

Remarque : J’utilise FreePascal.

[Alcatîz]

Bonjour !

Lorsqu'il n'y a pas de spécification de longueur, Free Pascal considère que le type String est une AnsiString. Pour utiliser les strings de Turbo Pascal, il faut soit utiliser le type ShortString, soit la directive de compilation {$H-}.

[droggo]

Ha,

Bonjour,
Mes trois premières questions sont résolues, je crois...
Il m’a suffit de faire ceci :

Code :

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

1
2
3
4
begin
  writeln('taille AnsiSTRING : ',sizeof(AnsiSTRING),' Octets');
  writeln('Soit : ',sizeof(AnsiSTRING)*256,'-1 caract'#138'res');
end.

J'avais oublié de te demander: à quoi est censé correspondre le calcul
sizeof(AnsiSTRING)*256,'-1
??

Petit supplément : en FreePascal, les ansiString sont très particulières, puisque imitant les chaînes de caractères du C : c'est un caractère de code 0 qui les termine, ce qui est un comportement très bizarre pour du Pascal.

Je n'ai pas fait de tests, mais, a priori, cela doit poser des problèmes de vitesse d'exécution quand on utilise la longueur de la chaine avec length(chaine), car

Ansistrings are strings that have no length limit. They are reference counted and null terminated.

ce qui impose d'"éplucher" toute la chaine pour en trouver la fin, donc la longueur [par définition, une "longueur sans limite" ne saurait être stockée dans une variable entière, quelle qu'en soit la précision]

[Alcatîz]

Petit supplément : en FreePascal, les ansiString sont très particulières, puisque imitant les chaînes de caractères du C : c'est un caractère de code 0 qui les termine, ce qui est un comportement très bizarre pour du Pascal.

Je n'ai pas fait de tests, mais, a priori, cela doit poser des problèmes de vitesse d'exécution quand on utilise la longueur de la chaine avec length(chaine), car

ce qui impose d'"éplucher" toute la chaine pour en trouver la fin, donc la longueur [par définition, une "longueur sans limite" ne saurait être stockée dans une variable entière, quelle qu'en soit la précision]

L'API Windows travaillant exclusivement avec des chaînes à zéro terminal, il est logique qu'elles aient été incluses dans le langage Pascal : d'abord avec Turbo Pascal for Windows puis avec Delphi.

En matière de performances, la recherche du zéro terminal n'est guère pénalisante : un simple rep cmpsb suffit. Le maintien de l'attribut de longueur, par contre, nécessite des instructions supplémentaires.
Car les AnsiStrings (apparues avec Delphi) ont un attribut de longueur codé sur 32 bits; voici leur structure :

Code :

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

1
2
3
Var s : String;
...
s := 'Bonjour';

- s contient un pointeur vers un bloc dans le tas global;
- le bloc est structuré comme suit :

• à l'adresse ( s - 8 ) : compteur de références (dword);
• à l'adresse ( s - 4 ) : longueur de la chaîne (dword);
• à l'adresse s : 'Bonjour'#0#0

Les tableaux de caractères pChar (apparus avec Turbo Pascal for Windows), par contre, n'ont aucun attribut de longueur, juste un zéro terminal.

[droggo]

Hi,

En matière de performances, la recherche du zéro terminal n'est guère pénalisante : un simple rep cmpsb suffit.

Et tu penses que ça se fait instantanément ?

Essaye avec des chaines de 10000, ou 100000, ou plus, caractères. Ça va vite, mais ce n'est pas du tout la même chose que simplement lire la valeur d'un entier.

Car les AnsiStrings (apparues avec Delphi) ont un attribut de longueur

J'ai vu en faisant des tests de vitesse.

Mais, cet attribut est incompatible avec la doc que j'ai citée plus tôt :

Ansistrings are strings that have no length limit. They are reference counted and null terminated.

même avec 32 bits pour stocker la longueur, ça ne permet pas d'avoir des chaînes infinies.
C'est très largement au-delà de l'usage courant, certes, mais pas infini

[Ultima]

J'avais oublié de te demander: à quoi est censé correspondre le calcul sizeof(AnsiSTRING)*256,'-1 ??

Bonjour, ça ne sert à rien, (je n’ose pas dire ce qui me passé par l’esprit quand j’ai écrit ça).