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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Existe t-il un soft qui inverse les lettres des mots d'un texte ?

L'Homme sans manches

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.

Publicité

NINOH

Nexus 7.0

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

_john_doe_

A faire des messages codés :sweat:

Zipo

Ours bipolaire

C facile à programmer ça vite fait

L'Homme sans manches

Zipo a écrit :

C facile à programmer ça vite fait

Heu... je sais pas programmer

Carbon_14

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

Requin

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

L'Homme sans manches

Merci

charly007

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"

?

blazkowicz

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

Publicité

Requin

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

charly007

Requin a écrit :

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.

FORUM HardWare.fr

Windows & Software

Logiciels

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

Sujets relatifs
cherche soft pour visualiser et imprimer des arborescences	Cherche soft pour defragmenter mon dd "entierement"!!
Un soft pour faire bouger la souris avec un Joystick sous windows,	Recherche soft de planning et contrôle le de présence
[National Geographic] Décompresser les cartes sans passer par le soft	CH soft permettant de lire les mails sans les "poper"
soft de transplantation de driver ...	Logiciel pour convertir midi en Mp3??ça existe??
[cherche] soft libre ou gratuit pour acceder à 1 db Oracle(comme toad)	Soft antivirus, base de registres et restes gluants sur mon disque dur
Plus de sujets relatifs à : Existe t-il un soft qui inverse les lettres des mots d'un texte ?

Page générée en 0.079 secondes