IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Conversion C# en VBA


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 3
    Par défaut Conversion C# en VBA
    Bonjour,

    Je dois créer un programme qui compare deux chaine de caractere entre elle. J'ai trouvé un code C# qui utilise le test de Levenshtein. La traduction en VB proposé sur le site ne fonctionne et je suis débutant en programmation VB Excel. Voici un lien vers le code C# de ce test :

    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
        * public int LevenshteinValue()
        * {
        * if (this._n == 0) return this._m;
        * else if (this._m == 0) return this._n;
        * else
        * {
        * List<int> lastColumn = new List<int>(this._m);
        * for (int i = 1; i <= this._m; i++) lastColumn.Add(i);
        * int lastValue = 0;
        * int forLastValue = 0;
        *
        * // Get the minimum value
        * for (int j = 1; j <= this._n; j++)
        * {
        * for (int i = 0; i < this._m; i++)
        * {
        * int x = (i == 0 ? j : lastValue) + 1;
        * int y = lastColumn[i] + 1;
        * int z = (i == 0 ? j - 1 : lastColumn[i - 1]) + (this._word1[j - 1] == this._word2[i] ? 0 : 1);
        *
        * forLastValue = lastValue;
        * lastValue = this.Min(x, y, z);
        *
        * if (i > 0) lastColumn[i - 1] = forLastValue;
        * if (i == this._m - 1) lastColumn[i] = lastValue;
        * }
        * }
        * this._levenshtein = lastValue;
        * return this._levenshtein;
        * }
        * }
    Si vous avez des solutions je suis tout ouïe!!!
    Merci

    Mamath

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    J'ai trouvé quelque chose qui devrait t'intéresser.
    C'est dans le bas de cette page:
    http://www.cs.pitt.edu/~kirk/cs1501/...20Distance.htm
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  3. #3
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Ne confond pas VB et VBA-Excel. Par exemple, en VBA, on ne peut pas écrire ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
        While j <= Me._n
          Dim i As Integer = 0  'bug
          While i < Me._m
            Dim x As Integer = (IIf(i = 0,j,lastValue)) + 1 'bug
            Dim y As Integer = lastColumn(i) + 1 'bug
            Dim z As Integer = (IIf(i = 0,j - 1,lastColumn(i - 1))) + (IIf(Me._word1(j - 1) = Me._word2(i),0,1)) 'bug
    'etc.
    Par contre (à première lecture) le code indiqué par AlainTech "paraît" compatible et, dans le cas contraire, est de toutes façons plus facilement convertible.
    Bonne soirée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Conversion de code VBA en JAVA (BDD cnx)
    Par clipper67 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 17/01/2010, 19h48
  2. Conversion SOMMEPROD en VBA
    Par choudoudou15 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/06/2009, 16h41
  3. Probleme conversion PDF par VBA
    Par Raikko68 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 02/10/2008, 12h06
  4. Conversion Vb6 Vers Vba
    Par thunderpat dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 29/03/2007, 11h49
  5. Conversion des codes VBA Access en VB6
    Par cokouT dans le forum Access
    Réponses: 1
    Dernier message: 23/11/2006, 09h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo