Comment enlever une sous-chaine d'une chaine ?

**bigey3** · 17/12/2007, 14h11

salut,
j'ai un fichier1 que je parcours afin de l'écrire dans un autre fichier 2.

Avant de le réecrire j'aimerais repérer une chaine contenant un caractère précis afin d'enlever touteS lES sous-chaineS contenant ce caractère.

exemple

Code :

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

1
2
3
4
0246729|0246729|0|0|2007/10/05T18:27:24+00:00|1|1|1|1|0|0|1|0|0|0|1|1
9648079|9648079|0|0||1|1|1|1|0|0|0|1|0|1|1|1|19|19||0.000000|1|2008/09/03|2007/10/02||2008/09/18|0|0|2007/10/02|1|1||0|0|0|0|1|0
0270750|0270750|0|0|2007/10/05T12:02:43+00:00|0|1|1|1|0|0|1|0|0|0|1|1|43|43||146.666667|1|2008/04/07|2007/11/09||2008/04/22|0|0|2007/11/09|0|0||0|0|0|0|1|0

j'aimerais enlever de toutes les lignes du fichier, la sous-chaine coloriée en rouge contenant le caractère 'T' .

merci de me mettre sur la voie

**ero-sennin** · 17/12/2007, 14h34

Salut,

As tu fait une petite recherche par la FAQ ?

**Cl@udius** · 17/12/2007, 14h47

Re,

Oui effectivement ne pas hésiter à faire un tour dans la

.

Mais si l'on reprend le code que je t'ai proposé dans cette discussion, il suffit d'ajouter cette condition à la fonction imbriquée TransformFormat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  function TransformFormat(pDate : String) : String;
  var
    lFormatSettings : TFormatSettings;
    lDate : TDate;
  begin
    if (pDate = '') or (Pos('T', pDate) > 0) then
      result := ''
    else
    begin
      // ...
    end;
  end;

@+

**bigey3** · 17/12/2007, 16h28

salut claudius,
justement je voulais que ça colle avec ton code c'est pour cela que celui de la faq ne m'a vraiment pas inspiré.

voila comme je le disais,dans mon message précédent;il me faudrait enlever ou ignorer toutes ces sous-chaine dans l'ensemble du fichier sinon à j'ai des erreurs(voir fichier ci-joint).