Aide avec writer

bonjour ,
dans mon combobox1.text = aucun article , Fusil coup-par-coup ,Pistolet puissant ..etc
voici mes codes :

Code:

---

1 2 3 4 5 6 7 8

writer.Position = &H1C30 If (Me.ComboBox1.Text = "aucun article") Then writer.WriteChars(ComboBox1.Text) ElseIf (Me.ComboBox1.Text = "Fusil coup-par-coup") Then writer.WriteChars(Me.ComboBox1.Text) ElseIf (Me.ComboBox1.Text = "Pistolet puissant") Then writer.WriteChars(Me.ComboBox1.Text) End If

---

mon problème viens quand je change d'arme dans mon combobox1.text = Fusil coup-par-coup par Pistolet puissant mais quand j'enregistre ça fonctionne bien mais quand j' ouvre le fichier. il m'affiche dans mon combobox.text = Pistolet puissantup
pouvez-vous m'aider a résoudre ce petit problème.merci

voici en image : Pièce jointe 137854

Bonsoir hacker59,

Ce qui est marrant avec toi c'est qu'on donne des réponses à tes questions mais visiblement les remerciements et/ou le passage de tes topics en résolu c'est pas ton fort........

http://www.developpez.net/forums/d14...-jeu-pc-form1/

http://www.developpez.net/forums/d13...er-hex-editor/

......

Quand tu donneras suite aux topics que tu ouvres alors je consacrerais du temps à lire tes autres requêtes.....:weird::weird:

A+

bonjour wallace1,

OK, j'ai compris. je suis vraiment Désolée si je t'ai énerver que je dit pas merci mais j'ai pas donner suite a ma discussion car j'ai arrêt ce projet. Merci pour des réponse.

http://www.developpez.net/forums/d14...-jeu-pc-form1/

http://www.developpez.net/forums/d13...er-hex-editor/

Pouvez-vous m'aider a résoudre mon problème de mon combobox1.text. merci

Bonjour,

Avec l'instruction PadRight qui complète avec des espaces.

Code:

---

writer.WriteChars(Me.ComboBox1.Text.PadRight(18))

---

Note : il faudra pensez à supprimer les espaces après la lecture du fichier.

bonjour,

merci pour ta réponse rv26t.

voici le code :

Code:

---

writer.WriteChars(Me.ComboBox1.Text.PadRight(30))

---

mais voila , quand je regarde dans mon fichier avec HXD . il m'affiche bien le nom mais avec un vite .
voici en image avec ton codes :
Pièce jointe 137939

je voudrais comme ceci :
Pièce jointe 137940

Et avec

Code:

---

writer.WriteChars(Me.ComboBox1.Text..PadRight(20, ChrW(vbNullString)))

---

bonjour,

Merci pour ta réponse rv26t. ça fonctionne correctement. Merci

voici le code :

Code:

---

writer.WriteChars(Me.ComboBox1.Text.PadRight(30, ChrW(vbNullString)))

---