Discussion :

[linuxien08]

Bonjour,

J'écris un petit soft pour automatiser l'ajout d'une ligne dans le fichier "host" de Windows pour réorienter les membres d'une association vers un site web en développement car le nom de domaine n'est pas encore acquis.

A l'ouverture de la fenêtre principale, je réalise quelques tests dont le présence ou non de la ligne à ajouter. pour cela j'utilise le code trouvé dans ce post et qui fonctionne (testé séparemment).

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
procedure TForm1.Button1Click(Sender: TObject);
var posM,posL,i,j:integer;
    trouve:boolean;
    NumeroLigne:integer;
begin
for i:=0 to Memo1.Lines.Count do
begin
posL:=pos(Edit1.Text,Memo1.Lines[i]);
if posL <>0 then begin
posM:=0;
for j:=0 to i-1 do
posM:=posM+length(Memo1.Lines[j]);
posM:=posM+(i*2);
posM:=posM+posL-1;
Memo1.SetFocus;
Memo1.SelStart:=posM;
Memo1.SelLength:=length(Edit1.Text);
trouve:=true;
///////////// ici on recherche le le numéro de ligne /////////
 NumeroLigne := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,-1,0);
  edit2.Text:=(inttostr(NumeroLigne)); //Edit2: affiche le numéro de la ligne
/////////////////////
break;
end;
if trouve=false then
Edit2.Clear;
end;
end;

J'incorpore ce source dans mes tests et il ne me donne pas le numéro de ligne lorsque la ligne est ajouté à la main au host (donc bien présente).
je vous mes le code de mes test car je suppose une mauvaise structure de mes conditions mais je tourne en rond depuis le W-E dernier alors que l'un d'entre vous verra certainement ma mauvaise logique et pourra me remettre sur le bon chemin.

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
Procedure TForm1.SearchHost_OnShow(Sender: TObject);
  var
  Import : String;
  FImport : TextFile;
  FHost : TextFile;
  StgImport : String;
  StgHost : String;
  //
  posM,posL,i,j:integer;
  trouve:boolean;
  NumeroLigne:integer;
  Yes : integer;
  begin
    Yes := 0;
    posM:=0;
    posL:=0;
    i:=0;
    j:=0;
    //OS = JvComputerInfoEx1.ProductName + ' - ' + JvComputerInfoEx1.VersionCSDString:
    JvLabel1.Caption := 'Votre version de Windows est ' + JvComputerInfoEx1.OS.ProductName + ' - ' + JvComputerInfoEx1.OS.VersionCSDString + ' ( Build : ' + IntToStr(JvComputerInfoEx1.OS.VersionBuild) + ' )';
    //JvOSVersionInfo.
    JvMemo1.Clear; //Efface le contenu de Memo1
    JvLabel2.Caption := '';
    //Lecture du fichier import
    AssignFile(FImport,ExtractFilePath(Application.ExeName)+'import.txt');
    {$I-} //La vérification d'E/S est désactivée
    Reset(FImport);
    {$I+} //La vérification d'E/S est activée
    if IoResult=0 then //Renvoie l'état de la dernière opération d'E/S
       begin
 
       Readln(FImport,StgImport); //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
       JvLabel2.Caption := 'Lecture des données : ' + StgImport; //Affiche dans Memo1 le contenu de la variable Stg
       JvLabel3.Caption := 'Texte à ajouter : ' + StgImport;
       CloseFile(FImport);
 
       //Regarde si la ligne à ajouter est présente dans le fichier host.
       //Ouverture et lecture du fichier Host.
        AssignFile(FHost,JvComputerInfoEx1.Folders.System +'\drivers\etc\hosts');
       Reset(FHost);
         repeat //Repeter...
         Readln(FHost,StgHost); //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
         JvMemo1.Lines.Add(StgHost); //Affiche dans Memo1 le contenu de la variable Stg
         //JvRichEdit1.Lines.Add(StgHost);
         //AdvMemo1.Lines.Add(StgHost);
         until EOF(FHost);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
       CloseFile(Fhost);
       NumeroLigne :=0;
       RzGroupBox1.enabled := False;
       RZGroupBox2.Enabled := True;
 
 
       for i:=0 to JvMemo1.Lines.Count do
         begin
           posL:=pos(JvLabel2.Caption,JvMemo1.Lines[i]);
             if posL <>0 then begin
                posM:=0;
                for j:=0 to i-1 do
                posM:=posM+length(JvMemo1.Lines[j]);
                posM:=posM+(i*2);
                posM:=posM+posL-1;
                JvMemo1.SetFocus;
                JvMemo1.SelStart:=posM;
                JvMemo1.SelLength:=length(JvLabel2.Caption);
                trouve:=true;
                ///////////// ici on recherche le le numéro de ligne /////////
                NumeroLigne := SendMessage(JvMemo1.Handle,EM_LINEFROMCHAR,-1,0);
                JvLabel4.Caption:=(inttostr(NumeroLigne)); //Edit2: affiche le numéro de la ligne
                /////////////////////
                break;
              If NumeroLigne <>0 then
              begin
              //JvLabel4.Caption:= 'Ce texte apparait à la ligne '+ (inttostr(NumeroLigne))+ '. Souhaitez-vous le supprimer ?'; //Edit2: affiche le numéro de la ligne
              RzGroupBox1.Enabled := False;
              RzGroupBox2.Enabled := True;
              JvBitBtn5.Enabled := False;
 
              end
              else
              begin
              //JvLabel4.Caption:= 'Ce texte n''a pas été trouvé. Souhaitez-vous l''ajouter ?';
              RzGroupBox1.Enabled := True;
              JvBitBtn2.Enabled := False;
              RZGroupBox2.Enabled := False;
              end;
 
       end
       Else
       begin
       JvLabel2.Caption := 'Fichier texte non trouvé. Contactez moi par mail, SVP';
       JvLabel3.Caption := '';
       JvLabel4.Caption := '';
       end;
 
     end;
   end;
  end;

Merci de vos lumières. Je ne programme pas fréquemment et c'est pas comme le vélo, j'oublie vite les automatismes.
François

[ShaiLeTroll]

l'ouverture d'un autre sujet citant celui-ci aurait été préférable

Ton code est effectivement difficile à lire
Refaire les indentations seraient une aide au débogage

Pour des fichiers aussi court, un TStringList LoadFromFile sera bien plus simple qu'un textfile

Divise ton code en plus fonction (chacune de 10-20 lignes), avec un nom pertinent que l'on s'y retrouve
Renomme Memo1, JvMemo1, JvLabel4 avec des noms significatifs pour la même raison

il manque le -1 dans ce for

Code :

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

for i:=0 to JvMemo1.Lines.Count - 1 do

Code :

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

LINEFROMCHAR

il te faut fournir le nombre de caractère en paramètre en wParam
-1 c'est l'emplacement du curseur

[SergioMaster]

Bonjour,

tout d'abord j'ai préféré déplacer la discussion plutôt que de poursuivre sur une déjà résolue, bien qu'un peu identique. @shailetroll j'ai déplacé avant de mémoriser l'emplacement de la discussion de départ
Ensuite il aurait été bon d'indiquer votre version de Delphi car je ne sais pas si ce que je vais vous proposer compilera selon votre version.

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
 
// Delphi RIO
procedure TForm38.Button2Click(Sender: TObject);
 
    // une fonction
    function lignedemonsite(monsite : String) : integer;
    var SL : TStringList;
        S : String;
        i : Integer;
    begin
      result:=-1;
      SL := TStringList.Create;
      try
       SL.LoadFromFile('C:\Windows\System32\drivers\etc\Hosts');
       for I := 0 to SL.Count-1 do
        begin
         S:=Trim(SL[i]);
         if not S.StartsWith('#') then  // oter commentaire
           begin
             if S.Contains(monsite) then
               begin
                result:=i+1;
                Break;
               end;
           end;
       end;
      finally
        SL.Free;
      end;
    end;
begin
Memo1.Lines.LoadFromFile('C:\Windows\System32\drivers\etc\Hosts'); // afficher le fichier juste pour "voir"
// et son usage
   ShowMessage(LignedemonSite('rhino').toString);
end;

[anapurna]

salut

est tu sur que tu cherche la bonne valeur

Label2.Caption := 'Lecture des données : ' + G_StrImport; //Affiche dans Memo1 le contenu de la variable Stg

...

posL:=pos(Label2.Caption,Memo1.Lines[i]);

je ne pense pas que dans ton fichier host tu ai 'Lecture des données : '

sinon je trouve que tu te complique la vie juste pour connaitre le numero de ligne
vu que tu parcourt le memo ligne a ligne au moment ou tu le trouve tu est forcement sur la ligne voulue

autre truc la copie dan le mémo est inutile
celui-ci peut se charger de la lecture du fichier

cette simple ligne de code suffit

Memo1.Lines.LoadFromFile('c:\windows\system32\drivers\etc\hosts')

[philnext]

Les réponses sur le code me semblent pertinentes et donc je n'en rajouterais pas. Simplement l'indentation c'est le fait de décaler le début de chaque ligne en fonction de son 'niveau' dans le code, ça ne change rien au résultat, ça améliore la lecture du code, donc la résolution de problèmes.
Dans Delphi 10.3.1 il existe dans le menu 'Projet' le sous menu 'Formater les sources du projet' qui va indenter les lignes correctement pour tout le projet : à utiliser sans modération.