Inverser une chaine

Question

Bonjour,

Je voudrais savoir si quelqu'un aurai un algo pour inverser une chaine 3 caractères par 3 caractères... ???
(en sachant que la taille de la chaine est toujours multiple de 3 ;) )

Merci

ZogStriP
IA pour : Incomplet de l'Ancéphale  %-6 
http://blog.developpeur.org/zogstrip/
 8-)  www.rubikscubor.fr.st  8-) 

#define ThatTheQuestion ((bb) || !(bb))

Dazzler · Answer

Si je comprends bien, 'abcdefghi' = 'cbafedihg' ? Si c'est bien ce que tu veux, essaie le code suivant :

Dim intI, intJ As Integer
Dim strTemp As String

    For intI = 1 To Len(strChaîne) / 3
        For intJ = 0 To 2
            strTemp = strTemp & Mid(txtChaîne, intI * 3 - intJ, 1)
        Next intJ
    Next intI
    strChaîne = strTemp

Si tu veux autre chose, n'hésite pas...

@+ et surtout bon code

ZogStriP · Answer

Merci dazzler, mais ce n'est pas ce que j'ai demander..
Non, je reconnais que j'aurais du donner un exemple et être plus explicite !

Voilà ce que je veux :

'abcdefghi'  ==> 'ghidefabc'

Merci

ZogStriP
IA pour : Incomplet de l'Ancéphale  %-6 
http://blog.developpeur.org/zogstrip/
 8-)  www.rubikscubor.fr.st  8-) 

#define ThatTheQuestion ((bb) || !(bb))

Dazzler · Answer

Je vois... Dans ce cas, c'est encore plus simple :

Dim intI As Integer
Dim strTemp As String

    For intI = 1 To Len(strChaîne) / 3
        strTemp = Mid(strChaîne, 1 + (intI - 1) * 3, 3) & _
            strTemp
    Next intI
    strChaîne = strTemp

Essaie pour voir... S'lut.

ZogStriP · Answer

Merci bcp, ça marche ;)

ZogStriP
IA pour : Incomplet de l'Ancéphale  %-6 
http://blog.developpeur.org/zogstrip/
 8-)  www.rubikscubor.fr.st  8-) 

#define ThatTheQuestion ((bb) || !(bb))

Inverser une chaine

4 réponses

Discussions similaires