Recherche de partie de chaîne dans une autre chaîne

bonjour,
comme dit dans le titre j'expose mon problème ;
je suis en train de programmer (en VB6) un petit jeu de lettres et j'aurais besoin d'effectuer une recherche (dans un fichier txt) d'une partie d'un mot.

Exemple si je dispose de la chaîne "a???l??e??" où ? est la correspondance demandée pour trouver le mot et ou les lettres corresponde au critères recherchés .
Je voudrai trouver par exemple "absolument"
quelle procédure (ou quel code) utiliser ?

J'ai essayé StrComp sans résultat même en formatant ma recherche avec format;

Code:

---

IntPosi = StrComp(StrChnExtraite, Format(StrMot, "??????????"), 1)

---

si vous pouvez éclairer ma lanterne ?
merci à toutes aide qui sera la bienvenue.

Salut

Il serait opportun de passer par un RegExp.
Tu as plusieurs exemples dont un petit outils [HTA]Manipulation de l'objet RegExp ou tu peux faire des essais de ce que tu veux faire.

Bonjour à tous et merci à toi ProgElecT de ta réponse.
Alors après avoir regarder plusieurs de tes exemples sur regexp j'ai essayer de l'adapter à mon programme,
mais je bute à la ligne"Set Match = ResulT.Item(0)" sur l'erreur; Appel de procédure ou argument incorrect (erreur 5)
Je doit manquer une chose dans mes déclarations ou autre.
Ci-joint mon code,ou est mon erreur svp ?
Merci à toute aide.

Salut

:ouin: J'ai un problème sur mon ordinateur qui a VB6 :calim2:

Je t'ai fait çà en VbScript, sur un autre, il n'y a pas trop a transformer.

Code:

---

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

msgbox RechercheMot("a l e ")   'msgbox RechercheMot("a i l e ")   'msgbox RechercheMot("a l e t")   'msgbox RechercheMot("amertum ")   Function RechercheMot(StrMot) Dim RegularExpressioN, ResulT, Match Dim T, ThePattern Set RegularExpressioN = CreateObject("VBScript.RegExp") RegularExpressioN.Global = true 'Pour trouver plusieurs occurences RegularExpressioN.IgnoreCase = True 'accepte caract. min/MAJ   Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") LectureFichier = objFSO.OpenTextFile("C:\MesProgs\HTML et JavaScript\Sources\Dico.txt", 1).ReadAll Set objFSO = Nothing   ThePattern = ConstruitPattern(StrMot) If RegularExpressioN.Test(ThePattern) Then RegularExpressioN.Pattern = ThePattern Set ResulT = RegularExpressioN.Execute(LectureFichier) ' MsG = "" For T = 0 To ResulT.Count - 1 Set Match = ResulT(T) If Len(StrMot) = Match.Length Then RechercheMot = RechercheMot & vbNewLine & Match.Value next RechercheMot = "Trouvée(S): " & ResulT.Count & RechercheMot Else RechercheMot = "Pas d'occurence trouvée" End if   Set Match = Nothing Set ResulT = Nothing Set RegularExpressioN = Nothing End Function   Function ConstruitPattern(Data) Dim U,Car, Pat,Cpt Pat = "(" & left(Data,1) For U= 2 To Len(Data) Car = Mid(cstr(Data),U,1) If Car <> " " and Cpt <> 0 Then Pat = Pat & "[a-w]{" & cstr(Cpt) & "}" & Car Car ="" Cpt=0 End If If Car <> " " Then Pat = Pat & Car If Car = " " Then Cpt=Cpt+1 Next If Cpt <> 0 then Pat = Pat & "[a-w]{" & cstr(Cpt) & "}" End If Pat = Pat & "\b)" ConstruitPattern=Pat End Function

---

Mon Dico.txt fait 3.5Mo c'est pourquoi pour certaine lettres/espaces proposés, je trouve, par exemples
pour a l e t, je trouve 95 mots de 10 caractères,
pour a l e, j'en trouve 116 de 10 caractères, dont ton mot absolument arrivant en deuxième positions après le mot aboulaient.

En attendant de récupérer mon ordinateur ayant VB6, j'espère que tu pourras te débrouiller avec ce code.

Bonjours à tous, merci à toi pour ta réponse,
et désolé pour ton ordinateur avec VB6 (si je peux aider, avec plaisir);)
Je suis (enfin) arrivé à adapter ton code et "RegExp" à mon petit jeux,
et sa fonctionne très bien :ptdr:
Je Trouve tous les mots avec ou sans accent et selon mes critères de recherche (exemple cités précédemment).
Mon programme fonctionne mais il me manque un fichier d'indexation de mots et de leur fréquence d'utilisation,
pour info j'utilise le dico de synonymes de thesaurus-v2.3.
si quelqu'un a connaissance d'un tel fichier , merci de m'en faire part.
Bonne après-midi à tous.

Citation:

---

Envoyé par Micle

si quelqu'un a connaissance d'un tel fichier , merci de m'en faire part.

---

Si tu vises le fichier Dico.txt dont parle ProgElecT(:coucou:), il est téléchargeable ICI​

Merci de ta réponse l_autodidacte,ce fichier "Les Dicos" est très bien mais il ne contient pas de liste de fréquences d’utilisation des mots.
Un tel fichier (ou liste) m'aiderai à sélectionner les mots selon la difficulté demandée, exemple ;
(mot)-(fréquence d'utilisation),(mot)-(fréquence d'utilisation).
Malgré mes recherches sur le net je ne trouve que des listes sous licence.:weird:
pour info j'utilise le dico de synonymes de thesaurus-v2.3 qui est bien pour les synonymes, mais lui non plus ne contient pas de liste de fréquences d’utilisation des mots.

Merci à toute aide:zoubi:,et bonne journée à tous.

Merci à tous de votre aide,
j'ai trouvé le fichier recherché (Liste de mots et fréquences d'utilisation).:P
Si cela intéresse voici le lien environ 1500 mots et sans licence ;
https://eduscol.education.fr/cid4791...roissante.html.
Plusieurs choix sont possible (fréquence croissante décroissante etc)
La discution est close et merci à ProgElecT pour le code avec 'RegExp':zoubi:
bonne soirée à tous.
Michel