Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf 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
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
Do while len(Key)<len(clair) key=key & key loop key=left$(key,len(clair))
key=left$(key,len(clair))
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)
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)