Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1461 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  noobie en VB: retour a la ligne + placement de texte autour du résulat

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

noobie en VB: retour a la ligne + placement de texte autour du résulat

n°607153
boobax
il BuongiornoSiVedeDalTacchino
Posté le 10-01-2004 à 16:45:14  profilanswer
 

voila  
g obtenu le code source suivant qui permet de faire ce que je veux mais il utilise que 3 lettres : a, b, c.  
et je voudrais les 26 lettres de l'alphabet en gardant 3 caracteres ....
qu'est ce qu'il faut modifier ?
Et je voudrais qu'il m'affiche le résultat soit dans word soit dans un fichier texte au lieu d'une boite de dialogue  
Merci pour vos reponses  :hello:  

Code :
  1. Public Sub AppelleGeneMot()
  2. Dim chaine As String
  3. Dim PosLettre(1 To 3) As Integer 'initiale un tableau de n case pour un mot à n lettre
  4. chaine = ""
  5. PosLettre(1) = 1
  6. PosLettre(2) = 1
  7. PosLettre(3) = 1
  8. 'le premier chiffre correspond au nombre lettre de la chaine ex abc = 3
  9. ' le deuxieme correspond au nombre de lettre voulue en sortie ex 3= aaa,aab,aac 2=aa,ab,ac
  10. GeneMot "abc", PosLettre, chaine, 3, 3
  11. MsgBox chaine
  12. End Sub
  13. Public Function GeneMot(chaine As String, PosLettre As Variant, ch As String, LongeurChaine As Integer, nbLettreVoulue As Integer)
  15. While PosLettre(1) < LongeurChaine + 1
  16.    
  17.     For l = 1 To nbLettreVoulue
  18.         a = a & Mid(chaine, PosLettre(l), 1)
  19.     Next l
  20.     ch = ch & a & Chr(13)
  21.    
  22.     For m = nbLettreVoulue To 1 Step -1
  23.         If PosLettre(m) = LongeurChaine Then
  24.             If m <> 1 Then
  25.                 PosLettre(m) = 1
  26.             Else
  27.                 PosLettre(m) = PosLettre(m) + 1
  28.             End If
  29.         Else
  30.             PosLettre(m) = PosLettre(m) + 1
  31.             Exit For
  32.         End If
  33.     Next m
  34.     GeneMot chaine, PosLettre, ch, LongeurChaine, nbLettreVoulue
  35. Wend
  36. End Function


Message édité par boobax le 11-01-2004 à 19:04:22
mood
Publicité
Posté le 10-01-2004 à 16:45:14  profilanswer
 

n°607161
jagstang
Pa Capona ಠ_ಠ
Posté le 10-01-2004 à 16:49:57  profilanswer
 

hem

n°607163
boobax
il BuongiornoSiVedeDalTacchino
Posté le 10-01-2004 à 16:51:17  profilanswer
 

:heink:

n°607166
boobax
il BuongiornoSiVedeDalTacchino
Posté le 10-01-2004 à 16:55:53  profilanswer
 

c bon g trouvé pour ajouter des lettres
Maintenant je voudrais savoir pour ajouter ca a un fichier texte ou dans word ou dans un truc exploitable pour du copier coller :hello:

n°608159
phenxdesig​n
Posté le 11-01-2004 à 17:43:46  profilanswer
 

Open [adresse et nom du fichier] for Output as #[numero de fichier entre 1 et 512]
Write [la variable], #[numero de fichier entre 1 et 512, le meme qui est deja mis]
Close #[numero de fichier entre 1 et 512, le meme qui est deja mis]
 
il faut pas mettre les accolades, et si tu veux rajouter une ligne a chaque fois, mets Append au lieu de Output
 
vala

n°608226
boobax
il BuongiornoSiVedeDalTacchino
Posté le 11-01-2004 à 19:10:09  profilanswer
 

Merci pour ta réponse PhenXDesign
Donc voila je voudrais avoir en sorti les résultat sur le fichier texte comme ca :
 
aaa
aab
aac
...
 
mais je voudrais ajouter le texte machin avant et le texte truc aprés chaque résultat pour que ca devienne
 
machinaaatruc
machinaabtruc
machinaactruc
machin...truc
...
'machin et 'truc garderont toujours la même valeure
Qu'ajouter dans le code ?

Code :
  1. Public Sub AppelleGeneMot()
  2. Dim chaine As String
  3. Dim PosLettre(1 To 3) As Integer 'initiale un tableau de n case pour un mot à n lettre
  4. chaine = ""
  5. PosLettre(1) = 1
  6. PosLettre(2) = 1
  7. PosLettre(3) = 1
  8. 'le premier chiffre correspond au nombre lettre de la chaine ex abc = 3
  9. ' le deuxieme correspond au nombre de lettre voulue en sortie ex 3= aaa,aab,aac 2=aa,ab,ac
  10. GeneMot "abcdefghijklm", PosLettre, chaine, 13, 3
  11. Open "C:\machin.txt" For Output As #1
  12. Write #1, chaine,
  13. Close #1, 1
  14. End Sub
  15. Public Function GeneMot(chaine As String, PosLettre As Variant, ch As String, LongeurChaine As Integer, nbLettreVoulue As Integer)
  17. While PosLettre(1) < LongeurChaine + 1
  18.    
  19.     For l = 1 To nbLettreVoulue
  20.         a = a & Mid(chaine, PosLettre(l), 1)
  21.     Next l
  22.     ch = ch & a & Chr(13)
  23.    
  24.     For m = nbLettreVoulue To 1 Step -1
  25.         If PosLettre(m) = LongeurChaine Then
  26.             If m <> 1 Then
  27.                 PosLettre(m) = 1
  28.             Else
  29.                 PosLettre(m) = PosLettre(m) + 1
  30.             End If
  31.         Else
  32.             PosLettre(m) = PosLettre(m) + 1
  33.             Exit For
  34.         End If
  35.     Next m
  36.     GeneMot chaine, PosLettre, ch, LongeurChaine, nbLettreVoulue
  37. Wend
  38. End Function


Message édité par boobax le 11-01-2004 à 19:17:13
n°608242
phenxdesig​n
Posté le 11-01-2004 à 19:28:44  profilanswer
 

sa se complique
 
 
tu as deja ecris les aaa, aab ... dans le fichier ?
si oui, il faut utiliser une boucle :
while EOF(1)=false
 
wend
 
a l'interieur, il faut lire tout le fichier et mettre chaque ligne dans une variable tableau :
dim VariableTablo(1 to n) as string
 
en ouvrant le fichier avant la boucle ( avec open ? for input as #1 ), puis lire une ligne par cycle de boucle (input VariableTablo, #1 ), en incrementant n de 1 a chaque cycle
puis fermer le fichier
 
 
il faut ensuite modifier chak variable :
VariableTablo(1) = machin & VariableTablo(1) & truc
avec une boucle
 
puis de reecrire tt sa avec un boucle
 
vala

boobax a écrit :

Merci pour ta réponse PhenXDesign
Donc voila je voudrais avoir en sorti les résultat sur le fichier texte comme ca :
 
aaa
aab
aac
...
 
mais je voudrais ajouter le texte machin avant et le texte truc aprés chaque résultat pour que ca devienne
 
machinaaatruc
machinaabtruc
machinaactruc
machin...truc
...
'machin et 'truc garderont toujours la même valeure
Qu'ajouter dans le code ?

Code :
  1. Public Sub AppelleGeneMot()
  2. Dim chaine As String
  3. Dim PosLettre(1 To 3) As Integer 'initiale un tableau de n case pour un mot à n lettre
  4. chaine = ""
  5. PosLettre(1) = 1
  6. PosLettre(2) = 1
  7. PosLettre(3) = 1
  8. 'le premier chiffre correspond au nombre lettre de la chaine ex abc = 3
  9. ' le deuxieme correspond au nombre de lettre voulue en sortie ex 3= aaa,aab,aac 2=aa,ab,ac
  10. GeneMot "abcdefghijklm", PosLettre, chaine, 13, 3
  11. Open "C:\machin.txt" For Output As #1
  12. Write #1, chaine,
  13. Close #1, 1
  14. End Sub
  15. Public Function GeneMot(chaine As String, PosLettre As Variant, ch As String, LongeurChaine As Integer, nbLettreVoulue As Integer)
  17. While PosLettre(1) < LongeurChaine + 1
  18.    
  19.     For l = 1 To nbLettreVoulue
  20.         a = a & Mid(chaine, PosLettre(l), 1)
  21.     Next l
  22.     ch = ch & a & Chr(13)
  23.    
  24.     For m = nbLettreVoulue To 1 Step -1
  25.         If PosLettre(m) = LongeurChaine Then
  26.             If m <> 1 Then
  27.                 PosLettre(m) = 1
  28.             Else
  29.                 PosLettre(m) = PosLettre(m) + 1
  30.             End If
  31.         Else
  32.             PosLettre(m) = PosLettre(m) + 1
  33.             Exit For
  34.         End If
  35.     Next m
  36.     GeneMot chaine, PosLettre, ch, LongeurChaine, nbLettreVoulue
  37. Wend
  38. End Function




Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  noobie en VB: retour a la ligne + placement de texte autour du résulat

 

Sujets relatifs
Résolu : Comment rendre invisible dynamiquement une zone de texte?PB champ de texte + récupération données
affichage de texte japonais chinois russe ...Infos bulles sur du texte,=?
[SQLPlus] Peut on enchainer des commandes sur 1 seule ligne ?Orientation d'un texte vertical en php !?
Lecture d'un fichier Texte et affectation dans variables ksh[DOS]caractère ligne suite, ça existe ?
Table et form, comment faire un form par ligne ?[php]rechrcher du texte dans un fichier.
Plus de sujets relatifs à : noobie en VB: retour a la ligne + placement de texte autour du résulat

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.099 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR