Nombre de lettres dans deux variables égauxRésolu

Question

Bonjour,

Voila je possède un mot qui est enregistré dans une variable dite Key
Et un texte qui est enregistré dans une variable dite Clair.

Je les déclare ainsi :

Dim Key as string = "toto"
Dim Clair as string = "Il fait un beau temps"

Ensuite, J'enlève tous les espaces du texte

Je les enlève ainsi :

Clair = replace(clair, " " , "")


Voila mon problème :

Je cherche à ce que qu'en je clique sur un bouton, le nombre de lettre dans la variable key et texte soit égaux toute en gardant les mêmes caractère de la variable key:

Exemple :

Key : toto
Texte (après enlèvement des espace) : Totovaàlaplage

Résultat voulu :

Key : tototototototo
Texte (après enlèvement des espace) : Totovaàlaplage



Autre exemple :

Key : Chiffre
Texte (après enlèvement des espace) : Jevaisàlacaserne

Résultat voulu :

Key : ChiffreChiffreCh
Texte (après enlèvement des espace) : Jevaisàlacaserne


Merci.

Sehnsucht · Accepted Answer

Déjà, on va faire plus simple pour ton Substring, si tu veux faire genre prendre tout à partir d'un point jusqu'au bout de la chaine, exemple:

azertyuiop
  ^-------|

prendre ça, tu peux laisser tomber le second paramètre et juste écrire machin.Substring(positionDepart) (mais tu le saurais si tu avais lu la documentation)

Après, j'ai beau retourné ton truc dans tous les sens, je perçois une légère logique sur ce que tu veux faire dans le sens où ça serait
- recopier key
- enlever de clair les "key-ème" premiers caractères (entendre par key-ème le nombre de caractère correspondant à la longueur de key)
- recommencer jusqu'à ce que clair soit vide

Alors si c'est bien ça je pige pas du tout le "bordel" que tu fais avec tes variables états et tout

en pseudo code ça donne simplement

Tant que clair.longueur > 0 faire
    resultat = resultat & clef
    clair = clair - "key-eme" premiers
Fin tant que

ni plus ni moins 4 lignes (et avec le pseudo-code que j'ai mis c'est limite s'il suffit pas de traduire en anglais pour avoir le vb.net

sauf que si tu fais gaffe à part l'histoire de la soustraction des caractères et du test "> 0" ça revient au même que le While de NHenry (sauf que lui ne soustrait pas et teste sur longueur résultat < longueur clair)

et donc tu te retrouveras comme dans son code avec des caractères en trop à supprimer, sauf qu'en plus toi ton code plantera, preuve par l'exemple:

clef = "aie"
valeur = "hello"
resultat = ""

est-ce que clair.longueur > 0 ? oui je rentre dans le tant que
    resultat resultat & clef -> donc resultat "aie" ici
    clair raccourci de 3 caractères -> donc clair = "lo" ici
fin tant que on boucle,

est-ce que clair.longueur > 0 ? oui je rentre dans le tant que
    resultat resultat & clef -> donc resultat "aieaie" ici
    clair raccourci de 3 caractères -> ah ben ça plante la chaine ne fait que 2 de longueur donc en démarrant de 3 (la longueur de clef) on est en dehors

Sehnsucht · Answer

Bonjour,

Et la question est ?

Parce que s'il s'agit de faire le boulot à ta place c'est pas trop la politique de la maison... :)

Cordialement !

Jeromedu79 · Answer

Bonjour,

Déjà je n'es jamais formulé de faire le boulot à ma place.

Et je me demande si tu as tous lut ...

Je cherche à ce que qu'en je clique sur un bouton, le nombre de lettre dans la variable key et texte soit égaux toute en gardant les mêmes caractère de la variable key:

NHenry · Answer

Bonjour,

Code extra simple :
Do while len(Key)<len(clair)
    key=key & key
loop
key=left$(key,len(clair))

Mon site

Sehnsucht · Answer

Oui oui j'ai bien lu, et c'est justement le but de ma question...

Tu définis ton objectif c'est bien, maintenant où est le souci ? tu ne présentes pas de code pouvant montrer ce qui coince, ni de début de piste sur l'algorithme que tu penses/cherches à utiliser...

parce que (et je ne serais pas le seul dans ce cas) sans autre information on se dit que ce que tu attends c'est le code tout fait.

Cordialement !

Sehnsucht · Answer

... ou alors quelqu'un passe te balance un code (qui ressemble plus à du VB6 que du VB.Net) et niveau intérêt... (désolé NHenry c'est sûr toi que ça tombe...  )

Jeromedu79 · Answer

Merci Nhenry, pourrais-je avoir d'informations sur :

key=left$(key,len(clair))

S'il te plait 

Sehnsucht désolé si je me suis mal exprimé.

cs_ShayW · Answer

donc 
avant
key = "Essaietoutseul"
Texte ="jevaisessayerdemedebrouillersiçamarchepas
jevaisdemanderdel'aide"

ce qui donne
EssaietoutseulEssaietoutseulEssaietoutseul 

Sérieux 
pour retirer les espaces utilise
la méthode trim
str = "blabla blabla blabla"
str = str.trim()

Sehnsucht · Answer

@Shayw

Trim ne supprime que les espaces en début et fin de chaine pas au milieu, par contre utiliser la méthode Replace de la classe String plutôt que celle servant à la compatibilié VB6 serait légèrement mieux

Jeromedu79 · Answer

Ba c'est bien là le problème ...
J'essaye depuis 9h00, et là ? il est 13h10..
Sa fait ..humm.. 4 heure ?

4 heure que j'essaye sans résultat

Jeromedu79 · Answer

Si j'ai trouvé avec un select case mais ... c'est long et chiant ...

Il n'existe pas d'autre méthode ?

Jeromedu79 · Answer

For i As Integer = 0 To NbrCharacterClair

            Select Case CharacterKey

                Case "1"
                    NewKey = NewKey + CharacterKey(0)

            End Select

        Next

Mais sa ne marche pas ..

Sehnsucht · Answer

Bah l'algorithme est pourtant simple (sur le papier), pour chacune des lettres de ta variable "clair" tu concatènes la lettre suivante de ta variable "key" à ta variable résultat et quand tu dépasses la longueur de key tu reviens au début

Après faudrait voir quel doit être le comportement à adopter dans des cas "spéciaux" si tu passe Nothing pour la clef ou la valeur, si la clef ou la valeur est une chaîne vide, si la valeur est plus courte que la clef mais déjà faisons fonctionner dans le cas "standard"...

Jeromedu79 · Answer

J'ai bien compris l'algorithme, mais je ne sais pas comment le passer sous le vbnet

Sehnsucht · Answer

La seule méthode dont tu aies besoin (et peut-être est-ce parce que tu ne la connait pas que ça coince) est la méthode Substring, qui permet d'extraire une sous-chaine d'une chaine, exemples:


Const source As String = "hello"

Dim firstTwo As String = source.Substring(0, 2) ' retournera "he"


Après à part balancer le code je vois pas quoi faire d'autre, parce que la méthode en elle-même fait 3 lignes (si on compte pas les fioritures, déclarations etc.)

Jeromedu79 · Answer

Merci, je te répondrais quand j'aurais fais mon code

Jeromedu79 · Answer

Je crois que l'on ne sais pas bien compris 

Soit clé un mot (toto)
Soit clair un text (ilfaitbeau)

Le résultat cherché est :

Clé : tototototo



Quand tu m'a donné le code :

Const source As String = "hello"

Dim firstTwo As String = source.Substring(0, 2) ' retournera "he"



Si je le modifie ainsi :

Const texte As String = "ilfaitbeau"

Dim firstTwo As String = source.Substring(0, NbrCaracterKey)


Si ma clé comprend 2 lettres,
Sa me donnera "il"

D'où l'intérêt ?

Jeromedu79 · Answer

Pourrais tu me dire le protocoles à employé dans le language "français" (pas le code) ?

Sehnsucht · Answer

J'ai jamais dit que c'était de cette façon qu'il fallait s'en servir, d'ailleurs c'est pas une obligation non plus, j'ai trouvé une autre façon de faire sans.

Quant à l'algorithme je l'ai déjà précisé plus haut, mais en essayant de reformuler plus en pseudo-code

Initialiser résultat à vide
Pour chaque caractère de "valeur" faire
    Ici faire ce qu'il faut pour récupérer le caractère "suivant" de clef"
    ajouter à résultat le caractère récupéré
Fin Pour

Renvoyer résultat

Exemple
"clef" = "aie"
"valeur" = "hello"

"resultat" = ""
on boucle sur les caractères de "hello"
on est donc sur le "h"
on entre dans la boucle on récupère le caractère "suivant" de "clef" (on récupère donc "a"
on ajoute à résultat -> résultat contient donc "a"

on boucle sur le "e"
on récupère le suivant -> "i"
on ajoute à résultat -> "ai"

on boucle sur le "l"
on récupère le suivant -> "e"
on ajoute à résultat -> "aie"

on boucle sur le "l" (le 2ème)
on récupère le suivant (là trouver un moyen de revenir au début de clef) -> "a"
on ajoute à résultat "aiea"

on boucle sur le "o"
on récupère le suivant -> "i"
on ajoute à résultat -> "aieai"

sortie de boucle on renvoie "aieai"

Jeromedu79 · Answer

Tu entend quoi par on boucle sur les caractères de Hello ?

Sehnsucht · Answer

euh.. ben on boucle lol je vois pas comment le dire autrement, après que ce soit une boucle For, For Each, While, Do Loop ça c'est à toi de voir, chaque possibilité est faisable (plus ou moins facilement)

Jeromedu79 · Answer

Okay merci,

Je pensais aussi à sa :

key : azer
Clair : azerty


On compte les caractère de Key et de Clair :
Key : 4
Clair : 6

On met dans NewKey les 4 caractère de key
NewKey : azer

On extrait les 4 caractère de Clair
Key : 2
Clair : 2

On prend les deux premier caractère de key et on ajoute à NewKey :
NewKey : azeraz


Tu en pense quoi ?

Sehnsucht · Answer

Oui ça peut marcher aussi (d'ailleurs celle-ci je la verrais en tant que fonction récursive mais ça c'est une autre histoire  )

La méthode utilisée importe peu (dans un premier temps) le but c'est que ça marche (sans trop cochonner le boulot quand même)

Une fois que c'est fait, qu'on peut dire au patron/prof/etc. "c'est bon on a une version exploitable" on la garde au chaud et on essaie à côté de voir si on peut pas l'améliorer, rapidité, gestion mémoire, exceptions, etc. (parce que c'est rare que du premier coup ça soit parfait)

Jeromedu79 · Answer

Okay merci ;)

Jeromedu79 · Answer

Voila, regarde :

Soit NbrCharacterClair le nombre de caractères qu'il y a dans le texte.
Soit NbrCharacterKey le nombre de caractères qu'il y a dans la clé.
Soit NewKey la nouvelle clé
Soit NewNbrCharacterClair le nouveau nombre de caractère.


        If NbrCharacterClair > NbrCharacterKey Then
            NewKey = Key
            NewNbrCharacterClair = NbrCharacterClair - NbrCharacterKey

            If NewNbrCharacterClair > NbrCharacterKey Then
                ' Trop grand
            Else
                FirstClair = Key.Substring(0, NewNbrCharacterClair)
                NewKey = NewKey + FirstClair
                MsgBox(NewKey)
            End If

        Else
            'moin grand
        End If


Mais il y a quand même un défaut ^^
Je te laisse le découvrir ;)

Jeromedu79 · Answer

Imagine, Si je met tous sa dans une boucle while, existe t'il un moyens de relancer la boucle ?


while 1

If NewNbrCharacterClair > NbrCharacterKey Then
                ' On relance la boucle
            Else
                FirstClair = Key.Substring(0, NewNbrCharacterClair)
                NewKey = NewKey + FirstClair
                MsgBox(NewKey)
            End If

End while

Ce code n'est qu'un exemple

Sehnsucht · Answer

Pour "relancer" une boucle tu as l'instruction Continue For/While/Do (selon la boucle utilisée)
Je t'avouerais par contre que je vois pas trop où tu vas aller avec ton début de code (mais ça vient peut-être du fait que j'ai pas du tout la même approche)

Juste pour info, même si While 1 est "correct" il vaut mieux écrire While True (après tout un While attend un Boolean et à chaque tout tu as une conversion implicite de ton 1 en True)

D'ailleurs While 1/True on évite au maximum ce genre de boucle infinie (sauf cas spécifique) tu dois bien pouvoir trouver une condition adéquate à y mettre, non ?
Par rapport à ton début de code une condition portant sur les nombres de caractères déjà parcourus (bon je le répète je vois pas trop où en venir donc trouver la condition adéquate n'est pas aisée)

Jeromedu79 · Answer

Voila mon application avec le code :

http://files.webopload.net/1688491927.crypterdncriypteruntexteavecunecln.rar

Il y a juste un problème, lorsque je remplie mes champs et je clique sur le button crypter, une erreur apparait, je te laisse découvrir laquelle ;)

Si tu pouvais y jeté un coup d'œil sa serait super 

Merci

Jeromedu79 · Answer

Je t'es tous bien commenté

Sehnsucht · Answer

J'ai pas Visual Studio sous la main pour tester le code, et puis pour résoudre ce problème, j'en ai pas vraiment besoin...

D'ailleurs la première solution de NHenry marchait plutôt bien, c'est juste les méthodes utilisées qui me plaisent moins mais en remplaçant les méthodes Len et Left par des trucs moins VB6-like ça irait (techniquement ça va aussi tel quel, ça répond au besoin c'est simple et court)

Après des méthodes différentes on peut s'amuser à en trouver plein !

Jeromedu79 · Answer

Oui, le seul problème est qu'avec ce code :

Do while len(Key)<len(clair)
    key=key & key
loop
key=left$(key,len(clair))

dans la ligne :

key=left$(key,len(clair))

une erreur apparait :

Le caractère de type '$' ne correspond pas au type de données déclaré 'Integer'

Jeromedu79 · Answer

Si je reprend mon code :
Clair est le texte

Dim FirstClair As String = Clair
Dim NbrCharacterKey As Integer = Len(Key)
Dim NbrCharacterClair As Integer = Len(Clair)
Dim NewNbrClair As String = NbrCharacterClair


 FirstClair = FirstClair.Substring(NbrCharacterKey, NewNbrClair)

Une erreur apparait :

L'index et la longueur doivent faire référence à un emplacement situé dans la chaîne.
Nom du paramètre : length

Sehnsucht · Answer

Pour l'histoire du Left$ c'est l'écriture VB6 il existait 2 versions Left et Left$ (me rappelle plus exactement la différence) donc ici tu "pourrais" mettre Left et ça marcherait ou mieux remplacer par l'équivalent VB.Net (que tu connais, suffit juste de comprendre ce que fais le code)

Quant à ton problème si on résumé ce qu'il se passe:

NbrCharacterKey contient le nombre de caractères de la clef
NbrCharacterClair contient le nombre de caractères de la valeur
(NewNbrClair je sais pas trop à quoi il sert car dans ce que tu as écrit c'est la représentation en texte du nombre d'avant ex: 123 -> "123")

ensuite tu utilises Substring, qui prend en paramètre (suffit de lire la documentation) en premier l'indice de départ pour extraire la sous-chaine et tu lui donnes la longueur totale de la chaîne (en gros tu places ton "curseur" sur le dernier caractère) et tu veux extraire NewNbrClair caractères (bon déjà merci les options laxiste qui convertissent implicitement ton texte en nombre) mais tu cherches à écrire n caractères à partir du dernier, forcément ça dépasse et ça plante

Et puis c'est quoi cette foutue manie d'utiliser Len() partout, la classe String propose une propriété Length faire pour ça c'est pas fait pour rien (c'est ma minute coup de gueule)

Jeromedu79 · Answer

Pour le Substring, je démarre au nombre de caractère du key et ce termine au nouveaux nombre de caractère du clair.

Regarde mon code complet :

Do While NbrCharacterKey < NewNbrClair
            NewKey = NewKey + Key
            FirstClair = FirstClair.Substring(NbrCharacterKey, NewNbrClair)
            NewNbrClair = NewNbrClair - NbrCharacterKey
            MsgBox(NewKey)
            If NewNbrClair < NbrCharacterKey Then
                EtatKey = True
            Else
                ' on relance la boucle
            End If

        Loop


        If EtatKey = False Then
            NewKey2 = Key.Substring(0, NbrCharacterClair)
            NewKey = NewKey + NewKey2
        End If


        MsgBox(NewKey)

Sehnsucht · Answer

arf l'affichage à plantouiller sur mon exemple du azertyuiop lol bref je voulais montrer qu'on partait du "e" pour aller jusqu'au "p" (jusqu'au bout quoi)

Jeromedu79 · Answer

Je ne comprend pas pourquoi tu fais : clair.longueur > 0

Sehnsucht · Answer

Ben tu voudrais l'arrêter quand ta boucle exactement sinon, là à chaque tour tu réduis clair (toujours en partant du principe que j'ai compris l'idée) donc quand tu l'as réduit au point qu'elle soit vide tu vas bien t'arrêter non ?

NHenry · Answer

Bonjour,

Oui, le seul problème est qu'avec ce code :

Do while len(Key)<len(clair)
    key=key & key
loop
key=left$(key,len(clair))

dans la ligne :
key=left$(key,len(clair))

une erreur apparait :
Le caractère de type '$' ne correspond pas au type de données déclaré 'Integer'

Je sais, j'ai rédigé le message à la va-vite sans prendre en compte que c'était du .NET.

Le code .NET serait :
Do While key.Length<clair.Length
    key+=key
loop
key=key.SubString(0,clair.length)

Désolé 

Mon site

Sehnsucht · Answer

Lol NHenry à part le fait que sur mon brouillon j'ai mis un While plutôt qu'un Do While on a la même (enfin j'ai 3 versions ... pour le moment) la remarque était pas spécialement dirigée contre toi personnellement, mais je suis allergique aux mix VB6/VB.Net et tu passais par là (note que j'ai quand même souligner que ta solution était parfaitement valide, mais non je cherche pas à me rattraper ^^)

Jeromedu79 · Answer

Re,

Le code marche très bien.
Je les un peux modifier pour l'adapter à mon form.

Merci à vous deux

cs_ShayW · Answer

Salut
une autre méthode 

Dim rs As String
        Dim texte As String = "Jevaisàlacaserne"
        Dim key As String = "Chiffre"

        rs = Nothing
        For iter = 0 To texte.Length \ key.Length - 1
            rs = rs & String.Concat(key)
        Next
        rs = rs & (key.Substring(0, texte.Length Mod key.Length))

cs_ShayW · Answer

trop tard désolé

Sehnsucht · Answer

@ShayW juste pour te tarabuster un peu 

mieux vaut initialiser rs à "" (ou String.Empty qui fait pareil, même si je dois être le seul à m'en servir ^^) que Nothing dans un cas comme celui là (bon là encore c'est pas très grave, c'est pas faux) parce que lorsque tu concatènes au départ si on remplace les variables par leurs valeurs ça donne
rs = Nothing & "Chiffre" qui pourrait/devrait(?) planter en tout cas ça "fait bizarre" (peut-être que pour moi ^^) d'ajouter du texte non pas à rien ("") mais à quel que chose d'indéfini (Nothing)

String.Concat(key) fera la même chose que key (en moins performant) on utilise String.Concat avec plusieurs paramètres pour les concaténer entre eux, là tu concatènes key avec rien et ce résultat tu le concatènes (à l'aide de l'opérateur &) à rs.
Sinon pour raccourcir un peu plus l'écriture tu peux écrire
rs &key ' equivalent à rs rs & key

Et finalement la grande touche de gros chipotage ^^ tu utilises deux fois key.Length et texte.Length, si jamais cette fonction était utilisée souvent et faisait partie d'un "code critique" (= qui nécessite une grande performance/rapidité encore que .Net soit pas nécessairement le framework le mieux adapté dans ce cas) il vaudrait mieux stocker ces valeurs une fois avant dans des variables.

En fait cette dernière remarque me vient surtout d'une version quasi-similaire:

Dim result As New Text.StringBuilder
Dim length As Integer = key.Length

For i As Integer = 0 To value.Length - 1
    result.Append(key(i Mod length))
Next

Return result.ToString()

En fait je boucle sur chaque caractère de la chaîne donnée, et je recopie le caractère de la clef à la même position (modulo sa longueur) l'appel à la longueur étant nécessaire à chaque itération, j'ai préféré l'avoir dans une variable (je fais aussi appel à un StringBuilder, qui est plus performant en ce qui concerne les (re)copies de chaines, dans l'optique d'un très long texte mis en paramètre)

Si on voulait on pouvait aussi le faire en une ligne (assez lourdingue) grâce aux méthodes d'extension et LINQ mais ça présente pas vraiment d'intérêt en terme de lisibilité/performance, à la limite c'est surtout pour le "défi"...

Voilà, désolé si vous trouvez que je chipote beaucoup parfois, c'est mon style, et puis on est aussi là pour partager (même des trucs pas forcément indispensable) ... ça c'est ma minute "je me jette des fleurs"

Cordialement !

Jeromedu79 · Answer

Merci également pour ton Shayw

Jeromedu79 · Answer

Désolé j'ai fais une faute de frappe :

> Merci également pour toi Shayw

cs_ShayW · Answer

Non c'est bon 
il faut bien apprendre 
Comme je viens de l'époque pascal c c++
l'époque débrouille toi il fallait écrire toute
les méthode string tu seul  aujourd'hui avec le vb.net on cherche plutot la méthode qui convient
le mieux mais des fois on veut faire trop net 
par ex
 rs = rs & String.Concat(key)
je sais que c'est mieux 
rs&= key 
mais comme je me suis dit ce n'est pas assez net
alors string.concat 

Bonne soirée

Sehnsucht · Answer

Le String.Concat est possible, mais pour qu'il ait une réelle utilité il faudrait l'écrire comme ceci

rs = String.Concat(rs, key)

Jeromedu79 · Answer

Merci, bonne soirée à toi aussi

Nombre de lettres dans deux variables égaux

48 réponses

Votre réponse

Discussions similaires