Discussion :

[ABBAN270]

Bonjour à tous

J'aimerais bien créer un petit code qui peut remplacer tous les ",:!;?" par "." dans le contenu d'un fichier texte qui contient plusieurs lignes.

Par exemple, la ligne suivante :

Code X :

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

azerty;;;,,!azert;!,?

deviendrait

Code X :

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

azerty......azert....

Je travaille en mode Delphi basique.

Merci d'avance.

[Roland Chastain]

Bonjour !

Voici une façon de faire :

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
program Exemple;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
function MaFonction(const s: string): string;
var
  i: integer;
begin
  result := s;
  for i := 1 to Length(result) do
    if result[i] in [',', ';', '?', '!'] then
      result[i] := '.';
end;
 
var
  liste: TStringList;
  i: integer;
 
begin
  liste := TStringList.Create;
 
  liste.LoadFromFile('fichier.txt');
 
  for i := 0 to liste.Count - 1 do
    liste.Strings[i] := MaFonction(liste.Strings[i]);
 
  liste.SaveToFile('fichier.txt');
 
  liste.Free;
end.

[ABBAN270]

Merci je v la tester

[ABBAN270]

jai essayer avec ce code
mais il manque quelque chose
la quelle ?

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
program supprimer_carater_specific;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
VAR s:string;
     F1,F2:TEXTFILE;
    x,i:integer;
    t:string=':;,?';
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
ASSIGNFILE(F1,'C:\file1.TXT');            //fichier source
ASSIGNFILE(F2,'C:\file2.TXT');            //fichier de résultat finale
RESET(F1);
rewrite(F2);
i:=1;
WHILE NOT EOF(F1)  DO
  begin
      READLN(F1,s);
 while  pos(t[i],s) <> 0    do
  WRITE(F2,s[i]);
         i:=i+1;   end;
 
CLOSEFILE(F1);
CLOSEFILE(F2);
end.

[sgmsg]

La lecture séquentiel des fichiers date de DOS.

TEXTFILE, ASSIGNFILE, RESET, REWRITE, READLN, WRITE, CLOSEFILE

Roland Chastain te donne un code qui fonctionne avec du Delphi + moderne.

Et qui est plus efficace avec loadfromfile et savetofile

À moins d'utiliser windows 3.1 et Delphi 1, sur une machine trentenaire, pourquoi ne pas t'en servir?

Voici le code encore plus compacte si tu désires

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
program Exemple;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
var
  liste: TStringList;
  i: integer;
  s:string;
begin
  liste := TStringList.Create;
  liste.LoadFromFile('C:\file1.TXT');
  s:=liste.text;
  for i := 1 to Length(s) do
    if s[i] in [',', ';', '?', '!'] then s[i] := '.';
  liste.text:=s;
  liste.SaveToFile('C:\file2.TXT');
  liste.Free;
end.

[ShaiLeTroll]

La lecture séquentiel des fichiers date de DOS.

Mais toujours utile, si l'on doit charger des fichiers plusieurs Go !

Il y a plus performant que la TStringList dans ce cas : TStringStream
La TStringList analyse le fichier pour découper à chaque ligne pour gérer ses Strings[]
ensuite la propriété Text qui reconcatene toutes les lignes
C'est un tas d'opération inutile
Pire, l'affectation de la propriété Text recommence la découpe pour alimenter Strings[] ...

Autant ne rien analyser et gérer le texte brut !

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
program Exemple;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
var
  ss: TStringStream;
  i: integer;
  s:string;
begin
  ss:= TStringStream.Create('');
  ss.LoadFromFile('C:\file1.TXT');
  s:=ss.DataString;
  ss.Free;
 
  for i := 1 to Length(s) do
    if s[i] in [',', ';', '?', '!'] then s[i] := '.';
 
  ss:= TStringStream.Create(s);  
  ss.SaveToFile('C:\file2.TXT');
  ss.Free;
end.

Si ABBAN270 se forme, il est utile de connaitre ce type d'algo que l'on peut rencontrer dans d'autres types de données comme un DataSet que l'on parcours ligne par ligne !

ABBAN270, ta boucle while pos est fausse, analyse la réponse de Roland Chastain
Tu as totalement oublié de remplacer par le '.' ton code aurait plus tendance à ne pas recopier les caractères ...
pense que tu peux charger une ligne dans un string, travailler sur cette string puis écrire d'un coup la ligne entière (et non caractère par caractère)



Je te laisse chercher et nous proposer un nouveau code

Tu devrais aussi mieux écrire ton code surtout au niveau indentation