Discussion :

[Euseibus]

bonjour,

je dois recuperer une valeur dans plusieurs fichier en hexa , voici un extrait :

Code :

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

1
2
3
 
00 00 00 00 00 00 00 54 4E 20 53 6F 63 6B 65 75 ; .......TN Socket
00 00 00 00 00 00 00 00 00 F9 02 1A 07 45 00 01 ; .........ù...E..

je le lit simplement avec :

Code :

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

1
2
3
4
5
6
7
8
9
 
assignfile(F,NameFile);
        reset(F);
        while not eof(F) do begin
          read(F,lig);
          psit := psit + trim(lig);
        end;          
        memo3.Lines.Add(psit);
        closefile(F);

et suivant les fichiers, mon code va jusqu'à la fin du fichier ou sinon il s'arrête avant la fin, pourquoi ?

par exemple sur la partie du fichier que j'ai mis, le fichier s'arrête après le ù et ne lit pas la suite

en fait je cherche une valeur chaîne qui est dans le fichier mais j'arrive pas à lire l'hexa ou a le convertir alors je le lis 'en vrac' tel que mais au lieu de bidouiller vous avez peut-etre une astuce pour le convertir ou alors si vous pouvez m'aider à lire les fichiers jusqu'au bout, je suis preneur dans tous les cas !!!

[ShaiLeTroll]

F est de quel type ? file ?
en théorie, tu lit 128 octet avec Read

es-tu sur que ce n'est pas le TMemo qui n'aime pas la chaine !

[Euseibus]

Bonjour,
je reviens apres le week-end ...
j'ai regardé, et F est déclaré en textfile,
et effectivement le TMemo n'aime pas trop ce que je lui donne mais a la limite il ne me sert à rien, le plus important est la recherche de chaîne que je fais :

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
 
var
F:textfile;
psit, NameFile: string;
position : Integer;
begin
assignfile(F,NameFile);
reset(F);
while not eof(F) do begin
  read(F,lig);
  psit := psit + string(trim(lig));
end;          
memo3.Lines.Add(psit);
closefile(F);
position := AnsiPos(Edit1.Text, psit);

J'ai testé en débug, et mon code ne lit pas tous les fichier jusqu'au bout. Il s'arrête en cours de lecture sur certains fichiers comme s'il avait atteint eof alors qu'en fait il en est même pas au milieu ...

Merci pour ton aide

[Qwazerty]

Salut
J'avais filé un coup de main a un gars il y a plusieur mois, sur un sujet similaire, j'ai retrouvé les fichiers mais pas le file, il a du etre supprimé du fofo, je te joins un des projets, qui me semble etre le plus proche de ce que tu recherche, il te permet de charger un fichier (le bouton "...") d'afficher le fichier sous forme hexa dans le listbox (Bouton1) et d'enregistré le fichier (bouton4) l'enregistrement se fesant par rapport au contenu du listbox.
Il me semble avoir fait un truc un peu plus abouti... mais je remet pas la main dessus, l'organisation du programme est tres salle exterieurement ^^, mais tu y trouveras dans le code des fonctions bien utiles a mon sens.
++
Qwaz

[Euseibus]

T'es un chef !

C'est exactement ce que je voulais faire !!!! Tout est là ne cherche plus !

Merci beaucoup !

[Qwazerty]

Re
De rien
Tiens j'ai vu que tu utilisais aussi les caractères ascii dans ton exemple.
++
Qwaz

[ShaiLeTroll]

Cela ne serait pas dans ce sujet "Sauvegarder les Items d'une TListBox" ...

[Qwazerty]

Salut!!
Jolie, j'étais presque certain que tu y étais mêlé ^^
Il devait y avoir un autre file un peu plus ancien sur lequel la "partie" avait commencé , et le gars qui avait lancé le sujet avait recréé ce nouveau poste car mes réponses ne le satisfaisaient pas :p
Comme quoi, souvent les mêmes questions qui reviennent et les mêmes gens pour y répondre ^^ (même si ça fait un baille que j'ai pas trainé ici ^^)
a++
Qwaz