Discussion :

[alll1]

bonjours a toutes et tous, je cherche a trouver la solution pour rechercher un nom dans une feuille liste Excel , j'utilise un F1BOOK pour un carnet d'adresse ou j'ai plus de 15800 ligne et je doit retrouver le nom dans la colonne 1
si je sélectionne manuellement la ligne "" rows "" j'affiche bien toutes les coordonnées de la personne déjà sa marche très bien

j'aimerai rajouté un findtext depuis un édit ou je tape le nom et me renvoyer a la ligne donc ""rows "" concerner

je doit

rechercher le nom dans ma liste Excel
sélectionné dans mon tableau Excel la bonne cellule

"""f1book1.findcomponent ? ou finddialog1 ?"""

Code :

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

1
2
3
4
5
6
f1book1.row[1];                                                      // je sélectionne la colonne
finddialog1.findtext := édit.text ;                             // j'envoie le édit.text au finddialog
finddialog1.findtext := f1book1.textrc[f1book1.col];
////////////////la j'essais de visualiser dans un show message ////////////////////
 
showmessage(f1book1.textRc[1,1]);                         // bien sur j'affiche le résultat de la cellule A1 car 1,1

après mon code fonctionne déjà en affichant les 6 colonnes dans des édit séparé de ma sélection rows manuellement mais sa me prend trop de temp a listé toute ma liste pour trouvé le bon nom

pouvez vous m'aidé
merci
Alain

[ShaiLeTroll]

F1Book cela date de Delphi 4
C'était un ActiveX ! Non ?

Tu pourrais le remplacer par SMImport / SMExport de Scalabium sinon TMS Flexcell, ayant utilisé les deux, pour mes besoins simplistes, cela suffisait grandement, au pire je lançais Excel en OLE pour quelques opérations.

Si tu veux rester avec F1Book, sans nous fournir un lien vers sa documentation actuelle, difficile de t'aider, on ne trouve pas grand chose de concluant sur vieil OCX

Tu pourrais corriger ton code, on ne comprend pas grand chose, utile

findcomponent c'est System.Classes.TComponent.FindComponent, cela permet de retrouver un composant via son nom dans la collection du Onwer, c'est totalement hors sujet

finddialog1 et findtext c'est Vcl.Dialogs.TFindDialog.FindText ce n'est qu'une boite de Dialogue, ce fait rien d'autres que permettre la saisie de la recherche, cela n'a pas de lien avec F1BOOK, et vu votre code c'est surement totalement inutile

Code :

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

1
2
 
finddialog1.findtext := f1book1.textrc[f1book1.col];

Cette ligne compile ? Cela serait étonnant sachant que property TextRC[nRow: Integer; nCol: Integer]: WideString;

Code :

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

showmessage(f1book1.textRc[1,1]); // bien sur j'affiche le résultat de la cellule A1 car 1,1

après mon code fonctionne déjà en affichant les 6 colonnes dans des édit séparé de ma sélection rows manuellement mais sa me prend trop de temp a listé toute ma liste pour trouvé le bon nom

tu veux juste concaténer plusieurs cellules ?

Code :

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

1
2
3
 
with f1book1 do
  showmessage(Format('A: %s, B: %s, C: %s, D: %s, E: %s, F: %s', [textRc[1,1], textRc[1,2], textRc[1,3], textRc[1,4], textRc[1,5], textRc[1,6]]);

Mais cela me parait trop simpliste comme réponse donc faudrait mieux expliquer votre demande.


Vous devez confondre avec

Code :

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

1
2
3
4
5
6
7
    procedure FindDlg; dispid 1335;
    procedure ReplaceDlg; dispid 1336;
    procedure Find(const FindWhat: WideString; nSheet: Integer; nRow1: Integer; nCol1: Integer; 
                   nRow2: Integer; nCol2: Integer; Flags: Smallint; out pFound: Integer); dispid 1337;
    procedure Replace(const FindWhat: WideString; const ReplaceWith: WideString; nSheet: Integer; 
                      nRow1: Integer; nCol1: Integer; nRow2: Integer; nCol2: Integer; 
                      Flags: Smallint; out pFound: Integer; out pReplaced: Integer); dispid 1338;

Sans conviction, n'ayant pas F1Bool, cela pourrait être un truc genre

Code :

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

1
2
3
4
f1book1.Find(Edit1.Text, 1, 1, 1, 65535, 1, F1FindByRows + F1FindInValues, iFound);
if iFound > 0 then
  with f1book1 do
    showmessage(Format('A: %s, B: %s, C: %s, D: %s, E: %s, F: %s', [textRc[iFound,1], textRc[iFound,2], textRc[iFound,3], textRc[iFound,4], textRc[iFound,5], textRc[iFound,6]]);

Gros doute sur pFound si c'est une ligne ou plus le nombre d'élément trouvé, et comment savoir où c'est ?

Sinon

Code :

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

1
2
 function  DefineSearch(const FindWhat: WideString; nSheet: Integer; nRow1: Integer; 
                           nCol1: Integer; nRow2: Integer; nCol2: Integer; Flags: Smallint): IF1FindReplaceInfo; dispid 1448;

avec Row dans IF1FindReplaceInfo

Code :

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

1
2
3
 
  with f1book1, DefineSearch(Edit1.Text, 1, 1, 1, 65535, 1, F1FindByRows + F1FindInValues) do
    showmessage(Format('A: %s, B: %s, C: %s, D: %s, E: %s, F: %s', [textRc[Row,1], textRc[Row,2], textRc[Row,3], textRc[Row,4], textRc[iFound,5], textRc[Row,6]]);

[alll1]

bonjours shailetroll,

je suis en Delphi 7 et oui c'est un ActiveX relativement vieux
c'est un code que j'avais fait il y a plusieurs années c'est pour cela que la liste de mes contacts est énorme
mon besoin c'est de créer la recherche d'un nom dans la première colonne de mon f1book1 à partir d'un edit1.text pour donner le nom à chercher dans la list colonne 1

il ne s'agit pas d'une url pas de php mais d'une fiche type form1 dans lequel est mis un Tf1book

question plus simple comment puis-je créer la recherche d'un nom donné par ' edit1.text ' dans mon f1book colonne 1 !!!!!!

même sans utiliser finddialog

Alain

[alll1]

bonjour shailetroll,

je suis en Delphi 7 et oui c'est un ActiveX relativement vieux
c'est un code que j'avais fait il y a plusieurs années c'est pour cela que la liste de mes contacts est énorme
mon besoin c'est de créer la recherche d'un nom dans la première colonne de mon f1book1 a partir d'un edit1.text pour donner le nom à chercher dans la list colonne 1

il ne s'agit pas d'une url pas de php mais d'une fiche type form1 dans lequel est mis un Tf1book

question plus simple comment puis-je créer la recherche d'un nom donné par ' edit1.text ' dans mon f1book colonne 1 !!!!!!

même sans utiliser finddialog

Alain

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
procedure TForm1.rechercheClick(Sender: TObject);
var
r1,r2,j,k : integer;
begin
     f1book1.Col := 1; // SELECTION DE LA COLONNE 1 sa marche
     r1:= f1book1.Row;    // NUMERO DE LA LIGNE
     r2:= f1book1.col ;
     //   edit2.Text := IntToStr(r1);  /// je converti en string A1 en 1 
 
////////////////////////////////////////////////////////////////////////////////
     /////// ici je doit trouver comment chercher dans la colonne //////////////
 
 
// FINDDIALOG1.FindText := edit1.Text ;   // je place le text edit dans findtext ok
//    finddialog1.Execute;
// f1book1.SetFocus(finddialog1.FindText);
//       showmessage (f1book1.Text); // mesage de test avec le resultat
 
 
////////////////////////////////////////////////////////////////////////////////
 
     if position.Text > '  ' then
        F1BOOK1.OnDblClick(sender,1,1);  // ici je lisle contenue de la row
 
 
end;

[SergioMaster]

Cela démontre une chose : Excel n'est pas fait pour être une table de BDD. (mais je suis loin d'être objectif)

[ShaiLeTroll]

il ne s'agis pas d'une url pas de php mais une fiche type form1 dans le quel est mis un Tf1book

Pourquoi le préciser ?
Je ne comprends pas cette remarque

question plus simple comment puis-je créer la recherche d'un nom donné par ' edit1.text ' dans mon f1book colonne 1 !!!!!!

Avez vous lu ma réponse sur la fonction Find et la fonction DefineSearch ?

[ShaiLeTroll]

J'ajouterais d'ailleurs une boucle sur la fonction FindNext() de IF1FindReplaceInfo retournée par DefineSearch()

[alll1]

J'ajouterais d'ailleurs une boucle sur la fonction FindNext() de IF1FindReplaceInfo retournée par DefineSearch()

bonsoir,
pour vos réponse oui je les ai vu je suis même aller voir les source que vous avez désigné

pour les ligne de code que vous m'avez envoyer

f1book1. ? seul delphi7 renvoie une instruction attendu
, DefineSearch inconu dans delphi 7

(Edit1.Text, 1, 1, 1, 65535, 1, dans delphi7 trop de parametre ?
F1FindByRows inconu dans delphi 7
F1FindInValues inconu dans delphi 7

avec ce type de paramètre delphi7 me renvoie des message de chaque annotation
j'avoues ne pas comprendre vos code
j'ai essayer de les modifier pour les adapté a mon code sans succès

bonne soirée
alain

[Invité]

Un exemple VB trouvé dans le help

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
The following example searches for a string in the active worksheet, moves it to the top left corner and selects it:
 
Sub FindString ( target As String )
Dim i As Long, j As Long
  For i = 1 to F1Book1.LastRow
    For j = 1 to F1Book1.LastColForRow
      If F1Book1.TypeRC (i, j) = 2 then ’Text only search
        If StrComp (F1Book1.TextRC (i, j), target) Then
          F1Book1.TopRow = i
          F1Book1.LeftCol = j
          F1Book1.SetSelection (i,j,i,j)
          Exit Sub
        End If
      End If
    Next j
  Next i
End Sub

Si les donnés dans la colonne en question sont triées il est possible d'optimiser l’opération avec la recherche dichotomique..
Sinon utiliser le formula MATCH dans une cellule vide pour effectuer la recherche :

Code :

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

1
2
3
4
5
6
7
8
9
10
var
 i :integer;
begin
  for i := 1 to 100 do // des donnés pour le test
  begin
    F1Book1.TextRC[i,1] := 'F'+inttohex(i,4);
  end;
  F1Book1.FormulaRC[3,3] := 'MATCH("F0015";A1:A100;0)';
  showmessage(F1Book1.TextRC[3,3]);// renvoit 21
end;

[alll1]

salut rMist2024
merci pour le code mais hélas je n'ai pas Visual basic mais delphi7

merci quand même

Alain

[alll1]

salut ShaiLeTroll ,
j'ai essayer le composant sm dont vous m'aviez parlé , bon c'est intéressant j'ai téléchargé plein de truc et d'exemple plutôt sympas merci pour l'infos sur ces composants gratuits

juste une autre petite question

sur mon programme actuel réalisé grâce aux conseils de ce groupe. Quan dje l'exécute sur la machine avec Delphi cela fonctione marche au poil et même bien
par contre sur une machine n'ayant pas Delphi le programme m'affiche a exécution une erreur Eolesyserror 00060819 classe non enregistré ?
J'ai déjà copié et enregistré vcf132.ocx avec regsvr32, mais toujours le même problème ?

auriez vous une idée a me conseiller ?
auriez vous un vcf1.ocx pour win x86 ou x64 mon fichier a une taille de 618 ko j'en ai vu un sur le net qui est un peut plus gros mais pas réussi a le télécharger ,
Alain

[ShaiLeTroll]

regsvr32 lequel ?

C:\Windows\System32 = 64Bits
C:\Windows\SysWOW64 = 32Bits émulé sur 64Bits - c'est celui-ci pour vous

auriez vous une idée a me conseillé ?

Utiliser directement Excel et un fichier XLS ou XLSX cela sera plus pérenne.
Même un fichier CSV sera plus facile à gérer hors Delphi ... ce sujet contient tout ce qu'il faut Passer une StringGrid dans un MemoryStream
Même un XML via TXMLDocument, idem, vous pourrez l'utiliser hors Delphi

Avec F1Book vous restez dépendant à une technologie obsolète depuis 25 ans.
Fait un export en CSV de votre carnet d'adresses et changer votre approche en vous débarrassant de F1Book

auriez vous une idée a me conseillé ?

Oubliez D7, passer à Delphi: Community Edition
SQLite via ZeosDB,
JSON via TJSONObject (encore un fichier utilisable hors Delphi)
plein de technologie plus récente

Vous pourriez même changer de langage, du Python par exemple, c'est plus simple et plein de lib qui facilite la vie des développeurs débutants, alors qu'en Delphi, il faut faire beaucoup de chose par soi-même.
Il y a des tutoriels bien plus nombreux, la communauté Python est bien plus vaste que celle de Delphi ... sans parler qu'un logiciel de gestion de contacts en OpenSource, ça existe sur GitHub
Non parce que la gestion d'un carnet d'adresse, c'est le sujet de plusieurs tutoriels pour débutant :

• Réaliser un exercice pratique Python : carnet d’adresses
• Mini Projet : Création d'un Carnet d'Adresses avec Python

Ensuite une sérialisation d'un Dict en JSON c'est une ligne de code en Python



Vous n'avez pas lu les consignes !

P.S. Vous utilisez à foison le bouton [Répondre avec citation], il y a aussi le bouton [Répondre à la discussion] évitez d'utiliser ce dernier en citer le messages en entier (c'est beaucoup moins lisible) si vous devez citer, n'utilisez que les parties qui vous pose problème. J'en ai marre de toujours modifier vos messages.

P.P.S. Une utilisation du bouton sur les réponses que vous trouvez valides aidera les autres lecteurs qui auraient le même besoin

[SergioMaster]

Oubliez D7, passer à Delphi: Community Edition
SQLite via ZeosDB,
JSON via TJSONObject (encore un fichier utilisable hors Delphi)
plein de technologie plus récente

Au cas où vous oubliez D7 pour passer à la dernière version Community autant aussi oublier ZEOS puisque Firedac existe

Vous n'avez pas lu les consignes !

Consignes, faut pas pousser, ce ne sont que des conseils pour une meilleure visibilité pour les autres lecteurs.

[alll1]

bonjour ShaiLeTroll,

sisi ai bien lut mais le prix de ce soft n'est indiquer nul par
le téléchargement est gratuit et je pense que le soft ne l'ai pas prix de la licence ? surprise après inscription peut être ?
sur leurs site d'entrée il demande nom prénom Age sexe etx.......

combien coute se soft ? quant ai acheter Delphi 7 déjà a l'époque sa m'a couté très chère , je comprend bien que chaque chose se paye mais quant même
je n'aime pas les surprise pourrie

alors les autre soft bon bof

l'activx de delphi 7 est un peut a l'ouest avec le / formula one / pdf / chartfx / vfspell/ vtchar apparement c'est tout ce qui touche vcf132.ocx
voila pourquoi ma question sur vcf132

dans Delphi 7 j'ai effectivement une démo fournie avec un stringgrid et j'arrive a charger bien sur mon fichier original qui est en *.xls au départ il créait un stringgrid au démarrage je l'ai modifier
et sa fonctionne sur les autre machine effectivement en chargeant mon fichier excels
le problème est re encore a refaire la recherche dans la strigggrid du nom dans la colone1 et afficher chaque colonne dans un edit1 pour colone1 edit2 pour colonne 2 etc.... edit3 edit4 edit5 edit6


donc retour au départ avec une stringgrid, c'était trop beau pour être vrai
ma version est en 32 bits oui donc dans sytem32 de windows


Alain

[SergioMaster]

si j'ai bien lu mais le prix de ce soft n'est indiqué nulle part

Normal la version community est gratuite, il y a juste un contrat à respecter : la barre du chiffre d'affaires (5000$ par an).
Cette version est comparable à un version 12.1 professionnelle avec les mêmes limitations