Discussion :

[Mvu]

Bonjour,
J'utilise actuellement le script suivant

Code :

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

IF(POS('CABINET',SC2)>0,COPY(SC2,1,POS('CABINET',SC2)-1)+COPY(SC2,POS('CABINET',SC2)+12,LENGTH(SC2)-POS('CABINET',SC2)+12)+'/ '+SC1,SC2)

pour récupérer un string tout en éliminant des caractères parasites.
Exemple:
MEUBLE B HAUT CABINET_18049 devient MEUBLE B HAUT 9/DOOR (DOOR =SC1)
ou
MEUBLE FOUR CABINET_2 devient MEUBLE FOUR /TRV-HT (TRV-HT = SC1)
Bref c'est pas terrible.
J'aimerais savoir s'il est possible d'écrire un script qui ferait ceci:
- démarrer depuis le dernier caractère de SC2
- remonter en arrière
- éliminer tous les caractères jusqu'à la première occurrence d'un espace.
Exemple: MEUBLE B HAUT CABINET_18049 deviendrait MEUBLE B HAUT

Merci d'avance pour votre aide.

[popo]

De ce que je constate, tu souhaites simplement enlever la partie correspond à "CABINET_" suivi d'une suite de nombre.

Code :

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

1
2
3
4
Pattern := 'CABINET_\d+';
Input := 'Bla bla avant CABINET_1234 bla bla après';
Regex := TRegEx.Create(Pattern);
Result := Regex.Replace(Input , '');

[Mvu]

Bonjour,
Oui c'est cela mais le problème c'est que le nombre de caractères qui suit CABINET_ n'est pas fixe. Au minimum il y e a 4. Je pense qu'il y en a rarement plus de 6.
Mais on ne peut pas continuer sur cette voie, car parfois, dans le string, il n'y a tout simplement pas le terme CABINET_
Raison pour laquelle je me disais que la méthode la plus sûre est de
- compter le nombre de caractères dans SC2
- compter à rebours
- éliminer tous les caractères jusqu'à la première occurrence d'un espace
Bàt.

[Andnotor]

En pure Delphi :

Code :

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

1
2
3
4
5
6
7
8
function ShortText(const aText :string) :string;
begin
  const i = aText.LastDelimiter(' ');
 
  if i > -1
  then Result := aText.Substring(0, i)
  else Result := aText;
end;

et par expression régulière :

Code :

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

1
2
3
4
function ShortText(const aText :string) :string;
begin
  Result := TRegEx.Replace(aText, '(.*) .*', '$1');
end;

[Mvu]

Je te crois :-)
Peux-tu télécharger ce fichier: https://www.woodlab.eu/files/ImportASCII.zip
C'est le script d'importation des données depuis une application de CAO 3D.
Les développeurs du logiciel en Italie m'ont toujours dit que c'était du Delphi.
Comment faire pour intégrer ton script en remplacement de la ligne n° 32 ?
A+

[ShaiLeTroll]

Si tu veux injecter un texte de remplacement à partir du numéro extrait, je devine une table de correspondance


C'est un codé écrit directement sur le forum révisé sous Delphi, il peut y a voir une petite erreur -1/+1 dans les positions

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
 
function GetDescriptionByNum(const Num: string): string;
const
  ASSOC: array[0..2] of record Num: string; Desc: string end =
    (
      (Num: '18049'; Desc: '9/DOOR (DOOR =SC1)'),
      (Num: '2'    ; Desc: '/TRV-HT (TRV-HT = SC1)'),
      (Num: '4'    ; Desc: 'en plein milieu')
    );
var
  I: Integer;
begin
  for I := Low(ASSOC) to High(ASSOC) do
    if ASSOC[I].Num = Num then
      Exit(ASSOC[I].Desc);
 
  Result := '[Not Found]';
end;
 
function RemplaceCabinet(const SC2: string): string;
const
   TAG_BASE = 'CABINET_';
var
  iStartTag, iStartNum, iEndTag: Integer;
  Tag, Num, Remplacement: string;
begin
  iStartTag := Pos(TAG_BASE, SC2);
  if iStartTag > 0 then
  begin
    iStartNum := iStartTag + Length(TAG_BASE);
    iEndTag := Pos(' ', SC2, iStartTag);
    if iEndTag <= 0 then
      iEndTag := Length(SC2) + 1;
 
    Tag := Copy(SC2, iStartTag, iEndTag - iStartTag);
    Num := Copy(SC2, iStartNum, iEndTag - iStartNum);
 
    // ici un recherche dans une table pour convertir Num en la chaine correspondante
    Remplacement := GetDescriptionByNum(Num);
 
    result := Copy(SC2, 1, iStartTag - 1) + Remplacement + Copy(SC2, iEndTag);
  end
  else
    result := '?';
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(RemplaceCabinet('MEUBLE B HAUT CABINET_18049'));
  ShowMessage(RemplaceCabinet('MEUBLE FOUR CABINET_2'));
  ShowMessage(RemplaceCabinet('MEUBLE FOUR CABINET_4 avec la suite'));
end;

Par contre, ce n'est pas du Script, Delphi produit un EXE, c'est compilé
Pourquoi parler de Script ?

Quelle version de Delphi ?
Non je n'ai pas regardé le zip, aucune personne censée ne télécharge un fichier d'une source inconnue.

[Andnotor]

IF(Condition, SiVrai, SiFaux) ressemble à du Pascal mais n'est pas du Delphi.

S'il y a un interpréteur de commande, ben il faut savoir précisément les commandes disponibles, que l'app CAO soit en Delphi ou pas.