coller une variable devant toute les valeurs d'1 chaine

Bonjour,
Je voudrais réaliser un collage de « E » devant chaque caractère de la chaine d’une variable « valeur » mais dans un 1er temps j’ai besoin de savoir :

1)
Afficher Le chiffre ASCII d’un caractére avec la syntaxe Chr(caractère%)
Test = "a"
print Chr (Test) ‘comment afficher le chiffre ASCII par la variable Test

2)
Variable = "E"
Comment coller une variable devant toute les valeurs d'une chaine
Valeur = "abc"
Pour afficher le résultat : EaEbEc
On imaginant qu'on ne connaît que le nombre de caractère contenue dans la valeur soit 3.
Je n'est pas vraiment de solution adéquate, mise à part :
Coller "E" tout les « i » caractère dans la valeur en faisant une boucle de 0 à 2
Sachant que i = i + 1
If i = 3
Goto fin ' aller à l'étiquette fin

Donc valeur2 = valeur + "E" (tout les i caractère) ‘voilà l’instruction que je cherche à réaliser.

En gros valeur2 est incrémenté de "E" à chaque boucle et à un endroit déterminé par le nombre "i". (Du moins pour cette technique)

Si quelqu’un à l’instruction qu’il me manque pour c’est deux partie différente, je l’en remercie par avance.
Bon soir.


seb.

Exuse moi,
C'est en visual Basic (vb)
Mais c'est vrai que moi aussi je me demandais si "$" était juste pour le VB et Php,

merci A+

seb

Merci,
Oui c'est bien pour convertir un caractère en code ASCII
J'ai trouvé un petit example:
"A"= ASC("A" )

Alors je suggére :
print ASC("A" ) ' pour afficher le nombre 65


Je voudrais réaliser un collage de « E » devant chaque caractère de la chaine d’une variable « valeur » mais dans un 1er temps j’ai besoin de savoir :

Comment faire pour coller un caractère dans une variable en partant de la gauche.
Ex : pour coller le caractère « E » au deuxième rand du mots « test » pour avoir ce résultat: « tEest »

C'est la fonction "coller + endroit" qui m'embéte et que je n'arrive pas à résoudre, mais bon... ;-)

merci A+

Seb

Merci,
C'est éxactement se que je cherchais.
Je vais regarder et essayer de créer un bon code.

A+

Seb

Salut,

Euh, il ne me semble pas que ça fasse ce que tu veux. Tu as deux boucles, donc, i va être égal à :
1,2,3 (première boucle de k)
2,3,4 (deuxième boucle de k)
3,4,5 (troisième boucle de k)
soit : 1,2,3,2,3,4,3,4,5 un peu plus que ce que tu veux !

J'aurais dit ça moi :

Note : j'ai jamais vraiment fait de VB donc peut y avoir des erreurs...

Alors, le Right$(texte, X) récupère les X derniers caractères de la chaine texte.

Si tu fais :
Right$("abc", 2) ça va te retourner : "bc" (les deux derniers caractères).



Aie, ça me fait penser que j'ai oublié quelque chose.
Il faut ajouter nb = nb+1 pour augmenter la valeur de la chaine (vu que tu ajoutes un E, la longueur de la chaine augmente).

Si tu as une chaine de 5 caractères ("abcde" ) et que tu veux ajouter un caractère au caractère 3, tu fais Left$("abcde", 3) & "Z".
Ce qui va te donner : "abcZ". Sauf que tu n'auras plus le reste de la chaine ("de" ), le Right$("abcde", 5-3) va te permettre de récupérer les 2 derniers caractères manquant, donc "de".

Si tu concatènes le tout, ça va te donner :
Left$("abcde", 3) & "Z" & Right$("abcde", 2) = "abcZde"

Oui, j'ai quelques bases en programmation, mais c'est surtout pour la syntaxe, vu qu'elle est différente pour chaque langage, il se peut que mon programme ne fonctionne pas, faudrait peut-être ajouter quelques trucs par ci par là, je ne sais pas trop


As tu bien compris ou pas ?

Salut,

Je ne vois pas trop ce que tu veux dire par "ça change complètement le sens de la syntaxe".
Au départ, tu as une chaine de 3 caractères (abc), tu lui ajoutes un Z en 3ème position, ça va te donner une chaine de 4 caractères (abZc).
Après, c'est à toi de te débrouiller, dans ta boucle d'augmenter la valeur pour arriver tout le temps sur le bon emplacement pour ajouter ta lettre.
Pour cela, tu prends quelques exemples et t'essaies de trouver un générique à partir de ça


Sinon, pour sélectionner le contenu entre deux caractères, je ne connais rien de tel en VB (mais je n'ai pas de connaissances des fonctions de VB), mais oui, sinon tu peux le faire avec les deux instructions déjà cités.
Si ta chaine est de plus de 3 caractères (imaginons "abcdefg" ), et que tu veux récupérer la lettre entre a et c.
Tu récupères Left$("abcdefg", 2) qui va te donner ab, puis Right$("ab", 1) qui va te donner B.

Maintenant, si tu voudrais pouvoir le faire à n'importe quel endroit (imaginons que la chaine soit "fghijklabcde" et que tu veuilles récupérer la lettre entre a et c, ça serait un peu plus compliqué, vu qu'il faudrait lire les caractères, et tant que tu n'as pas a, tu continues de lire.

Enfin, je sais pas si tu vois ce que je dis

Salut,

Je ne connais pas la fonction Input, je suis allé voir sur la msdn, c'est une fonction pour lire le contenu d'un fichier, donc ça ne va pas.

Ca pourrait être fait toujours avec Left, dans le genre :

Edit: je n'ai pas testé, donc peut y avoir des erreurs

Re Salut
Y à un truc très intéressant que j’essaie d’assimiler, c’est un prog que ta surement déjà vue et qui au début je pensais facilement comprendre mais finalement il reste des pts à résoudre, voici le code :


-----------------------------

Dim sLettres As String
Dim lCompteur As Long
Dim lLongueur As Long
Dim lBoucle As Long

'Définition des constantes utiles pour la fonction (Clé et nombre d'itérations de la fonction maximum)
Const CLEF As String = "nbvfdszé""'(-è_ijhgfcKLKjhgyuilM^+)àçiu-('32azsDRtvBhujkoç_è6tre""zsXWqazerfcx<;:<?"
Const NBROTATIONSMAX As Long = 13

'Définition de la longueur de la chaîne à crypter et de la chaîne de résultat
lLongueur = Len(chaîneACrypter)
sLettres = String(lLongueur, Chr(0))

'Boucler en fonction du nombre de rotations attendues
For lBoucle = 1 To NBROTATIONSMAX
'boucler pour chaque caractère de la chaîne initiale
For lCompteur = 1 To lLongueur
'Remplacer le caractère de la chaîne à crypter par le caractère correspondant à
' le reste de
' la valeur ascii du caractère à crypter
' plus
' la valeur ascii du caractère correspondant dans la clé, multiplié par la longueur de la clé
' quand on le divise par 256
Mid(sLettres, lCompteur, 1) = Chr((Asc(Mid(chaîneACrypter, lCompteur, 1)) + _
(Asc(Mid(CLEF, (lCompteur Mod Len(CLEF)) + 1, 1)) * lLongueur)) Mod 256)
'recommencer
Next
'réaffecter la chaîne à crypter par le résultat trouvé pour pouvoir recommencer une itération
chaîneACrypter = sLettres
'Nouvelle itération
Next
'Renvoyer le résultat final
Crypter = sLettres
End Function
-----------------------------




Donc à par « Mod » je reconnais toute les instructions mais j’essaye de traduire 1 exemple en pseudo-code pour une boucle donc juste pour le 1er caractère (et sa clé) soit « D » et « n » je vais essayer de traduire sa :

Mid(sLettres, lCompteur, 1) = Chr((Asc(Mid(chaîneACrypter, lCompteur, 1)) +


Pour ((Asc(Mid(chaîneACrypter, lCompteur, 1))

Je suggére :

((La léttre ASCII(du code ASCII(du chiffre de la chaine (D)) + (la suitte)

Pour:

avec : lLongueur = 14
sLettres = 14 (longueur maxi si supérieur à valeur nul)


Si c'est pas trop faux jusque là je n'arrive toujours pas à comprendre cette dernière



Voilà,

(Si C’est tout faux c’est parce que je débute )


Bon weekend A+


Seb

Salut,

sinon ma conversion (le début) était-elle juste ?
merci
A+

Je pense que je vais aller voir sur le site en question.
merci

@+