Pb d edition en vb (Utilisation de rich text box)

Pb d edition en vb (Utilisation de rich text box) - Programmation

Marsh Posté le 27-05-2002 à 13:36:24    

Voila j ai un fichier test.txt ke je vou posterais dans l apres midi comme sa vous pourrez tester.
Le pb est que ce fichier est un fichier d edition et je veut le convertir en .rtf de maniere a lui specifier la police car si la police >7 tt se retrouve decallé une fois faxé.
j ai essayer avec se code de passer par une Rich text box de manier a lui specifier la police cela fonctionne a l ecran.
Cependant a la fin du programme il enregistre un fichier filefax.rtf dont la police n est pas mis en memoire c a d qu il met par default 10.
Comment puis je fire il faut vraiment que la police soit inf a 7 ou 8.
je vous mets l exemple de mon code et vous post mon test.txt cette aprem en fichier a telecharger ou en copier collé.
Merci de m aider je pietine Or c est pour mon stage help...
Private Sub Command1_Click()
'Déclaration des variables locales
Dim ficprinc As String, Temp As String, Temp2 As String, msg3 As String, Ligne As String, Namecie As String, Temp1 As String
Dim Nbfic As Integer, Cpteur As Integer, Cptlig As Integer, x As Integer
Dim Ind As Long, Ind2 As Long, Numfic As Long
'j ai copier coller toute mes variable komme un bourrin elle ne sont pas toute util
 
ficprinc = "c:\mes documents\Nico\test.txt"
Open ficprinc For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
Temp = Temp + Ligne
Temp = Temp + Chr$(13) + Chr$(10)
Loop
 
rt.Text = Temp
 
rtf.SelStart = 0
rtf.setlenght = Len(Temp)
 
rtf.SelFontName = "Time new roman"
rtf.SelFontSize = 6
rtf.SelBold = True
 
rtf.SelStart = 1
rtf.sellenght = 0
 
Temp = rtf.Text
 
Open "c:\mes documents\nico\FileFax.rtf" For Output As #2
Print #2, Temp
 
Close #1
Close #2
End Sub^_^
si vous desirez le fichier test.txt laissez moi votre mail je vous l envoie le plus vite possible c a d 5 min apres votre reponse lol

Reply

Marsh Posté le 27-05-2002 à 13:36:24   

Reply

Marsh Posté le 27-05-2002 à 15:14:29    

i need youre help  :jap:

Reply

Marsh Posté le 28-05-2002 à 08:47:14    

VB kand tu nous tiens... :na:

Reply

Marsh Posté le 29-05-2002 à 08:11:46    

Personne ne comprend se que je veut faire ou sa vous fait chier de lire???
Je remerci ceux ki aront fait l effort e lire mon article et surtt ceux qui pourront repondre c est pour mon stage donc si pas de reponse pas de fin merci... :sol:  :hello:

Reply

Marsh Posté le 29-05-2002 à 08:35:23    

Je crois que tu t'y prends très très mal.
Ton composant possède 2 méthodes : LoadFile et SaveFile.
Tu fais un truc genre
rtf.LoadFile("MonFic", rtfText)
tu le modifies,
tu l'enregistre en SaveFile("MonFic", rtfRTF)
 
Regarde dans l'aide


---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite
Reply

Marsh Posté le 30-05-2002 à 09:17:32    

Merci man sa march eil enregistre les propriete mais je pige po pkoi certaine ligne sont decallé :jap:  
Mais thx tu as rep exactement se dont j avais besoin

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed