Existe t-il un soft qui inverse les lettres des mots d'un texte ?

Marsh Posté le 25-09-2003 à 14:49:33

Salut.
Je cherche un soft qui est capable d'inverser les lettres d'un texte.
Par exemple, le mot chien serait traduit par neihc.
Merci.

Reply

Marsh Posté le 25-09-2003 à 14:49:33

Reply

Marsh Posté le 25-09-2003 à 15:20:48

Ca servirait à quoi/qui ? :??: :heink:

Reply

Marsh Posté le 25-09-2003 à 15:23:57

A faire des messages codés :sweat:

Reply

Marsh Posté le 25-09-2003 à 16:11:55

C facile à programmer ça vite fait

Reply

Marsh Posté le 25-09-2003 à 17:14:56

Zipo a écrit :

C facile à programmer ça vite fait

Heu... je sais pas programmer

Reply

Marsh Posté le 25-09-2003 à 22:51:29

C'est l'occasion de commencer.
Ca tombe bien, c'est pas compliqué DU TOUT comme exercice de débutant.

Reply

Marsh Posté le 25-09-2003 à 23:47:21

A mettre dans un fichier texte "revert.vbs", ensuite il suffit de double-cliquer dessus :

Code :

Dim myString, myRevertString
myString = inputbox("Veuillez saisir le texte à inverser :", "Inverseur de chaîne", "[Chaîne à inverser]" )
If myString <> "" Then
myRevertString = StrReverse(myString)
myRevertString = InputBox("Résultat pour la chaîne :" & vbCrLf & myString, "Inverseur de chaîne", myRevertString)
End If

Ou à télécharger ici

Pour la documentation sur VBScript :
http://msdn.microsoft.com/library/ [...] Script.asp

Message édité par Requin le 25-09-2003 à 23:50:42

Reply

Marsh Posté le 26-09-2003 à 22:52:46

Merci

Reply

Marsh Posté le 26-09-2003 à 23:32:39

Le texte "qui a tué le chacal" doit-il etre inversé comme ça :

"lacahc el éut a iuq"

ou comme ça :

"iuq a éut el lacahc"

?

Reply

Marsh Posté le 27-09-2003 à 00:05:48

pour une ligne de texte, et en qbasic

CLS
input "saisissez votre texte" ; a$
print : print
for i=len(a$) to 1 step -1
print mid$(a$,i);
next

Reply

Marsh Posté le 27-09-2003 à 00:05:48

Reply

Marsh Posté le 27-09-2003 à 16:34:47

charly007 a écrit :

Le texte "qui a tué le chacal" doit-il etre inversé comme ça :

"lacahc el éut a iuq"

ou comme ça :

"iuq a éut el lacahc"

?

Dans ce cas il faut utilsier la fonction SPLIT pour séparer sur les espaces la chaîne dans un tableau de chaines. ensuite une boucle FOR de LBound() à UBound() en effectuant un strReverse à cahuqe itération et concaténation dans une nouvelle chaîne de caractères. Ca pourrait donner :

Code :

Dim myString, myRevertString, arrayAux
myString = inputbox("Veuillez saisir le texte à inverser :", "Inverseur de chaîne", "[Chaîne à inverser]" )
myRevertString = ""
If myString <> "" Then
arrayAux = Split(myString)
For i = LBound(arrayAux) To UBound(arrayAux)
myRevertString = myRevertString & " " & StrReverse(arrayAux(i))
Next
myRevertString = InputBox("Résultat pour la chaîne :" & vbCrLf & myString, "Inverseur de chaîne", myRevertString)
End If

Reply

Marsh Posté le 28-09-2003 à 16:22:12

Requin a écrit :

Dans ce cas il faut utilsier la fonction SPLIT pour séparer sur les espaces la chaîne dans un tableau de chaines. ensuite une boucle FOR de LBound() à UBound() en effectuant un strReverse à cahuqe itération et concaténation dans une nouvelle chaîne de caractères. Ca pourrait donner :

Code :

Dim myString, myRevertString, arrayAux
myString = inputbox("Veuillez saisir le texte à inverser :", "Inverseur de chaîne", "[Chaîne à inverser]" )
myRevertString = ""
If myString <> "" Then
arrayAux = Split(myString)
For i = LBound(arrayAux) To UBound(arrayAux)
myRevertString = myRevertString & " " & StrReverse(arrayAux(i))
Next
myRevertString = InputBox("Résultat pour la chaîne :" & vbCrLf & myString, "Inverseur de chaîne", myRevertString)
End If

OK.

Reply

Existe t-il un soft qui inverse les lettres des mots d'un texte ?

Sujets relatifs:

Leave a Replay