Dictionnaires 5 langues

[SPH]

Voici des dictionnaires en 5 langues que je met a votre disposition :
http://xmas.free.fr/dico/
Peut etre en aurez vous besoin !

Pour gagner de la place, j'ai retranché la premiere lettre et j'ai fais des fichiers pour chaque longueur de mot.
Ex : dico-a5 veux dire "tous les mots de 5 lettres commencant pas a" mais dedans il n'y a que des mots a 4 lettres puisque je retranche le A.
Vous vous y ferez

[Ar-S]

Une occasion de tester ceci ?
Merci pour le partage.

Par contre, pour les dico j'aurai plutôt eu tendance à créer 1 seul fichier texte contenant une syntaxe du genre,
Ouvrir,Open,Abrir etc...

La traduction et la mise en œuvre en serait bien simplifiée

[SPH]

Par contre, pour les dico j'aurai plutôt eu tendance à créer 1 seul fichier texte contenant une syntaxe du genre,
Ouvrir,Open,Abrir etc...

J'ai abandonné cette idee car si notre mot se trouve a la fin du fichier, on "perd" du temps. Tandis que si on cherche un mot de X lettres commencant par Y, ca va tres vite.

[Ar-S]

Oui ce sont peut-être des buts différents, je voyais personnellement plus une solution pour faire plus aisément des logiciels multilangues. Mais il est vrai que le nombre de mots/phrases est bien moindre.

[Ar-S]

Par contre ton fichier Dico2.pb tu peux quand même l'améliorer.
Que de répétitions !

Essaye ça, non testé avec ce code car j'ai pas toutes les archives mais teste donc et dis moi si ça passe.

Code : Tout sélectionner

Enumeration
#src ; sera 0
#dst ; sera 1
EndEnumeration

Procedure.s ReplaceAccents(Chaine$)
  ; by Falsam
  ; Modif : Ar-S
  
  Chaine$=LCase(Chaine$) ; On passe tout en min histoire que ce soit propre et que le ReplaceString() dure 2 x moins longtemps
  Protected i
  Protected CharToFind.s="àáâãäåßçèéêëìíîïñòóôõöÞùúûüýÿ"
  Protected CharToReplace.s="aaaaaabceeeeiiiinooooopuuuuyy"
  
  For i=1 To Len(CharToFind) 
    ReplaceString(Chaine$, Mid(CharToFind,i,1), Mid(CharToReplace,i,1),#PB_String_InPlace, 1)
  Next
  
  ; vérif pour les caractères spéciaux passant de 1 à 2 caractères
  Chaine$ = ReplaceString(Chaine$, "œ", "oe")
  Chaine$ = ReplaceString(Chaine$, "æ", "ae")
  
  ProcedureReturn Chaine$
EndProcedure


chemin$="c:\.Trash-999\"
  
If ReadFile(#dst, chemin$+"Liste de motsItaliens.txt")
  While Eof(#dst) = 0           ; loop as long the 'end of file' isn't reached
    mot$=ReadString(#dst)
    
    ReplaceAccents(mot$) ; ICI

    mot2$=Mid(mot$,2,Len(mot$)-1)
   
    a$=Left(mot$,1)
    Debug mot$
    If OpenFile(#src, chemin$+"dico-"+a$+Str(Len(mot$)))
      
      ReplaceAccents(mot$) ; ICI

      x=Len(mot$)
      For i=10 To 96
        a$=Chr(i)
        mot$=ReplaceString(mot$,a$,"")
      Next
      For i=123 To 255
        a$=Chr(i)
        mot$=ReplaceString(mot$,a$,"")
      Next
      For i=97 To 122
        a$=Chr(i)+Chr(i)+Chr(i)
        mot$=ReplaceString(mot$,a$,"")
      Next
      Debug mot$
      If x<>Len(mot$)
        Goto ok45
      EndIf
      
      
      While Eof(#src) = 0           ; loop as long the 'end of file' isn't reached
        mot3$=ReadString(#src)
        If mot3$=mot2$
          Goto ok45
        EndIf
      Wend
      WriteStringN(#src, mot2$)
      ok45:
      CloseFile(#src)
    EndIf
    
    
  Wend
  ok60:
  CloseFile(#dst)
  
Else
  MessageRequester ("Erreur", "Lecture du fichier " + chemin$ + "Liste de motsItaliens.txt" + " impossible",#MB_OK) ;-test
EndIf

[SPH]

Ca a l'air de marcher.
Mais fait attention, ß en allemand se traduit par SS et non par B (enfin, il parait)

[Kwai chang caine]

(enfin, il parait)

[Ar-S]

Désolé j'ai pas regardé plus avant car je n'ai pas eu l'occasion d'utiliser ce symbole.
Petit correctif :

Code : Tout sélectionner

Procedure.s ReplaceAccents(Chaine$)
      ; by Falsam
      ; Mod : Ar-S
      
      Chaine$=LCase(Chaine$) ; On passe tout en min histoire que ce soit propre et que le ReplaceString() dure 2 x moins longtemps
      Protected i
      Protected CharToFind.s="àáâãäåçèéêëìíîïñòóôõöÞùúûüýÿ"
      Protected CharToReplace.s="aaaaaaceeeeiiiinooooopuuuuyy"
      
      For i=1 To Len(CharToFind) 
        ReplaceString(Chaine$, Mid(CharToFind,i,1), Mid(CharToReplace,i,1),#PB_String_InPlace, 1)
        
      Next
      
			; vérif pour les caractères spéciaux passant de 1 à 2 caractères
      Chaine$ = ReplaceString(Chaine$, "œ", "oe")
      Chaine$ = ReplaceString(Chaine$, "æ", "ae")
      Chaine$ = ReplaceString(Chaine$, "ß", "ss")
      
      
      ProcedureReturn Chaine$
    EndProcedure

[SPH]

(enfin, il parait)

Bin koi ?

[SPH]

Si vous voulez ameliorer les dico, allez y mais mefiez vous des liste de mots proposé. J'y ai vu des exemple comme :

aa
aaa
aaaa
aaaaa
aaaaaa
aaaaaaa
aaaaaaaa
aaaaaaaaa
aaaaaaaaah
yzz
yzzz
yzzzz
yzzzzz
yzzzzzz

etc ...