begin process at 2010 02 10 02:34:35
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > INVERSER ORDRE DES MOTS DANS UNE PHRASE AMELIORÉ ;)

INVERSER ORDRE DES MOTS DANS UNE PHRASE AMELIORÉ ;)


 Information sur la source

Note :
7 / 10 - par 2 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Niveau :Initié Date de création :01/06/2002 Date de mise à jour :01/06/2002 01:07:12 Vu / téléchargé :1 448 / 120
Auteur : DeAtHCrAsH

Ecrire un message privé
Site perso
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Comme son nom l'indique, ca inverse les mots dans une phrase ....

Source

  • Private Sub Command1_Click()
  • Text1.Text = RTrim(Text1.Text)
  • Text1.Text = Text1.Text & " "
  • Dim MotRes As String
  • Dim txt As String
  • Dim MyTab() As String
  • Dim MyTab2() As String
  • MyTab() = Split(Text1.Text, " ")
  • j = UBound(MyTab)
  • w = 0
  • Randomize
  • ReDim MyTab2(0 To 1)
  • For a = 0 To Len(Text1.Text) + 200
  • i = Int(Rnd * j)
  • For n = 0 To UBound(MyTab2)
  • If i = MyTab2(n) Then
  • MotRes = vbNullString
  • GoTo er
  • End If
  • Next n
  • If UBound(MyTab2) = w - 1 Then
  • ReDim Preserve MyTab2(0 To w + 20)
  • End If
  • MyTab2(w) = i
  • MotRes = MyTab(i)
  • txt = txt & " " & MotRes
  • w = w + 1
  • er:
  • Next a
  • txt = LTrim(txt)
  • Text2.Text = txt
  • Text1.Text = RTrim(Text1.Text)
  • End Sub 
Private Sub Command1_Click()

Text1.Text = RTrim(Text1.Text)
Text1.Text = Text1.Text & " "

Dim MotRes As String
Dim txt As String
Dim MyTab() As String
Dim MyTab2() As String
MyTab() = Split(Text1.Text, " ")

j = UBound(MyTab)

w = 0

Randomize

ReDim MyTab2(0 To 1)
For a = 0 To Len(Text1.Text) + 200

i = Int(Rnd * j)

For n = 0 To UBound(MyTab2)
 If i = MyTab2(n) Then
 MotRes = vbNullString
 GoTo er
 End If
Next n

If UBound(MyTab2) = w - 1 Then
ReDim Preserve MyTab2(0 To w + 20)
End If

MyTab2(w) = i
MotRes = MyTab(i)
txt = txt & " " & MotRes
w = w + 1
er:
Next a

txt = LTrim(txt)

Text2.Text = txt

Text1.Text = RTrim(Text1.Text)

End Sub

 Conclusion

Merci pour tes remaqrques almandric ... Maintenant, le programme marche a tous les coups et il est bcp plus rapide :]

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture OUVRIR UNE APPLICATION ET LA FEMER
Source avec Zip Source avec une capture PROGRESSBAR ( CHANGER LA COULEUR)
Source avec Zip Source avec une capture REPLACE
Source avec Zip Source avec une capture FICHIER ( DECOUPEUR )
Source avec Zip Source avec une capture DEFFILLEMENT DE TEXTE COMME DANS LES CREDITS DE JEUX
Toutes les sources de DeAtHCrAsH

 Sources de la même categorie

Source avec Zip Source avec une capture AYOUBPAD2009 par ayoube2009
Source avec Zip Source avec une capture PILOTAGE D'AFFICHEURS LCD SUR PORT SÉRIE OU USB par mays
Source avec Zip Source avec une capture TRAITEMENT DE TEXTE RTF par zozo14
FORMATAGE D'UNE CELLULE EXCEL VIA UNE SYNTAXE HTML par 8Tnerolf8
Source avec Zip DÉFILEMENT TEXTE par mimiZanzan
Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de DeAtHCrAsH le 01/06/2002 01:17:55

Merci d'avance pour vos commentaires :]

Commentaire de kronprinz le 01/06/2002 19:54:17

quel est l'intérêt ?????

Commentaire de muad-dib le 01/06/2002 20:54:00

c la question que je me posais

Commentaire de DeAtHCrAsH le 01/06/2002 22:49:24

Serieux vous avez un cerveau ou pas ???
Vous etes vraiment trop con .... L'interet n'est pas le programme finale, mais l'apprenstissage et le travail qu'il y a eu sur ce code ...
Alors s'il vous plait arretez de vous moquez en faisant les grands car ce qu'un signe de jalousie .....
Respecter les codeurs et leur codes ...
Puis si c'est pour metre des commentaires pareil vous ferez mieux de la fermer ...

P.S : Et vous deux quel est l'interet de vos remarques ??? Vous servez vraiment a tchi bande de nul !

Commentaire de shivan le 02/06/2002 11:05:39

pas non plus obligé d'etre aussi bienlent dans tes paroles...
sinon, sympa... je connaissais meme pas la fonction split !!! ;-)

A+

Commentaire de Almandric le 03/06/2002 14:16:00

Plutôt que de faire ta boucle 'For a = 0 To Len(Text1.Text) + 200' et de tester à chaque fois si tu as déjà récuperer ce mot voila ce que je te conseil :
- Tu as une phrase de 5 mots
- 'Split' te retourne un tableau avec un index allant de 0 à 4 (ou de 1 à 5 peu importe)
- Tu fais un random compris entre 0 et 4 et tu obtiens to 1er mot.
- Jusque la pas de différence avec toi mais c'est maintenant que ca change.
- Tu reconstruit ton tableau en dégageant le mot que tu viens de tirer au sort et tu obtiens un tableau allant de 0 à 3
- Tu fais un random en modifiant le born supérieur à 3 et tu obitens ton 2 ème mot et tu es sur qu'il différent sans faire de test et sans rique de boucler des dizaines de fois pour rien.
Etc...

A+

Commentaire de Almandric le 03/06/2002 15:54:29

Oops, j'ai fais pleins de fautes.....

Commentaire de DeAtHCrAsH le 04/06/2002 18:47:00

Yep .. Bon conseil ... C'est ce que je voulais faire au debut, mais je n'ai pas trouver comment faire pour retirer un element du tableau ...
C'est ce que je suis en train de chercher ...
Sinon c'est clair que ca fera gagner bcp de temps sans faire boucler inutillement ...
:]
A++

Commentaire de Almandric le 04/06/2002 23:26:33

Moi je vois qu'une seule solution, il te faut un 2ème tableau temporaire...

Commentaire de jackky le 20/01/2003 17:41:32

salut, felicitation pour ton code yé vraiment super et pour ceux qui disent "a quoi ca sert " ben ceux la y doivent pas programmer beaucoup ou bien jaloux de ne pas avoir réussi ce code avant toi!
felicitantion , pitier c comme le gars qui dis "quel est l'intérêt ?????" plus haut lollll faut arreter de metre des critique negative car ya plus personne qui va mettre des sources, et pour l'interet de la chose c'est tres instructif et a la fois amusant! non! penser des fois plus loin que votre bout du nez! cette source a beaucoup a vous apprendre

pour ceux qui ne voient encore aucun interet a cette source penser a la cryptogrphie

bonne journée les copain

10/10

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,484 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)