Discussion :

[kikica]

J'explique: j'ai une ceintaine d'enregistremments, et certains commencent par deux lettres "DA". Je souhaite modifier uniquement ces enregistremments de la façon suivante: uniquement les deux premières lettres des enregistremments on met en minuscule, le reste du mot on garde en majuscule.

Merci pour toute idée...

[Thierry67]

Avec la fonction Copy.

Code :

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

1
2
3
Chaine:= 'DAVID & GOLIATH';
if Copy(Chaine, 1, 2) = 'DA' then
  Chaine:= 'da'+Copy(Chaine, 3, Length(Chaine)-2);

[HumanTool]

salut,
je pense que

Code :

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

if Pos('DA', Chaine) < 2 then

doit être plus efficace que

Code :

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

if Copy(Chaine, 1, 2) = 'DA' then

je sais qu'on a des machines de + en + rapide mais bon les comparaisons de chaine ça prends du temps...même 2 lettres

[HumanTool]

oups, j'oublié il existe la fonction LowerCase qui transforme du texte en minuscule et UpperCase en majuscule.

[kikica]

Merci de vos réponses. Ca marche très bien dans un exemple de base avec un edit1.text, par ex. Maintenant, je veux appliquer ceci à tous les enregistremments du champ "Nom" de ma table1, sachant qu'il s'agit d'une base paradox. (Je ne sais pas si c'est important de souligner ceci).

Merci d'avance.

[HumanTool]

il suffit de traiter le champ "nom" comme si ct ton TEdit...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
while not matable.eof do
begin
     if Pos(masouschaine, Chaine) < 2 then
     begin
          matableNom.value := Lowercase(masouschaine) + Copy(matableNom.value, 3, Length(matableNom.value)-2);
          matable.post;
     end; 
     matable.next;
end;

en gros......................

[Rayek]

il suffit de traiter le champ "nom" comme si ct ton TEdit...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
while not matable.eof do
begin
     if Pos(masouschaine, Chaine) < 2 then
     begin
          matableNom.value := Lowercase(masouschaine) + Copy(matableNom.value, 3, Length(matableNom.value)-2);
          matable.post;
     end; 
     matable.next;
end;

en gros......................

Ta fonction est fausse et fonctionnera même quand "DA" n'est pas présent dans le texte.

Si Substr est introuvable, Pos renvoie zéro.

Au lieu de

Code :

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

1
2
 
if Pos(masouschaine, Chaine) < 2 then

Il faut mettre

Code :

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

1
2
 
if Pos(masouschaine, Chaine) = 1 then // pos renvoi toujours la position du premier caractère de la chaine recherchée

[HumanTool]

à vouloir trop en faire...

[kikica]

...oui, mais ceci va mettre TOUS les enregistremments en minuscules! Je veux seulement ceux qui commencent par "DA"...
Donc, il faudrait un if, mais comment...???

[Thierry67]

Mais si, il y est le if. Allez, on recommence.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
table.open;
table.first;
while not table.eof do begin
  Chaine:= table.FieldByName('Nom').AsString;
  if Pos('DA', Chaine) = 1 then begin
    table.Edit;
    table.FieldByName('Nom').AsString:= 'da'+Copy(Chaine, 3, Length(Chaine)-2);
    table.Post;
  end;
  table.Next;
end;
table.Close;

[kikica]

Le côde me parraît excellent, et très clair, mais malheureusement, il ne fait rien!!!! Bizzarre...

[HumanTool]

met un point d'arrêt sur le if et vérifit le valeurs retournées pour tes champs

[kikica]

?

[kikica]

OUI, j'ai mis un "showmessage" et j'ai compris qu'il fait un enregistremment à la fois. Donc, il faut reclicquer à chaque fois pour qu'il fasse un nouvel enregistremment!
Donc, il faut trouver une boucle... hmmm...

[HumanTool]

à ce ryhtme c pas gagné :
la boucle est dans le code gentiment fournit

Code :

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

while not table.eof do begin

[kikica]

Oui, j'ai cette boucle, bien sur, mais le côde modifie UN enregistremment à la fois, quand même! Il faut clicquer autant de fois combien il y a des enregistremments à modifier...!

[Thierry67]

Ben, si tu mets le Showmessage dans la boucle, ça me semble logique.

[kikica]

Nooooooon, je l'ai enlevé, bien sûr!

[sjrd]

Tu peux faire ça directement en SQL

Code :

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

1
2
3
UPDATE ta_table
SET ton_champ = CONCAT('da', SUBSTRING(ton_champ, 3))
WHERE ton_champ LIKE 'DA%'

Si ta table est volumineuse, n'oublie pas de placer un index sur la colonne en question

[kikica]

Je n'utilise pas SQL, c'est une base Paradox et le côde précédent est très bien, il fonctionne, mais il manque qqchose pour l'executer en boucle... je ne sais pas quoi...