Forcer écriture page suivanteRésolu

Question

Bonjour,

Le but de cette petite fonction me permet juste de récupérer tous les fichiers text d'un répertoire donné et d'en faire un seul gros fichier text.

Ca marche bien mais mon seul hic c'est que j'aimerais qu'après chaque fichier en entrée mon gros fichier de sortie fasse un saut de page.

Voici le code, avez-vous une idée de ce qu'il faut mettre là où il y a le commentaire pour forcer le saute de page ?

Merci tout le monde d'avance

Public Function Convertfics2fic(rep As String) As String
    Dim fichier         As Object
    Dim FluxIN          As Object
    Dim fichierFull     As Object
    Dim PathFichierFull As String
    
    If Right(rep, 1) = "" Then
        PathFichierFull = rep & "attbloodfull.lis"
    Else
        PathFichierFull = rep & "\attbloodfull.lis"
    End If
    
    If MyFso.FileExists(PathFichierFull) = False Then
        MyFso.CreateTextFile PathFichierFull, True
    End If
    
    Set fichierFull = MyFso.OpenTextFile(PathFichierFull, 8)
    
    For Each fichier In MyFso.GetFolder(rep).Files
        MsgBox fichier.Path
        If fichier.Name <> "attblood.lis" Then
            Set FluxIN = MyFso.OpenTextFile(fichier)
            Do While Not FluxIN.AtEndOfStream
                DoEvents
                fichierFull.WriteLine FluxIN.ReadLine
                DoEvents
            Loop
            ' ICI forcer fichierfull à faire un page next
            FluxIN.Close
        End If
    Next fichier
    
    fichierFull.Close
    
    Convertfics2fic = PathFichierFull
End Function

cs_Exploreur · Accepted Answer

Salut,

Quand t'entends tu pas suat de page...?
Un retour chariot ? Insérer une ligne "vide" ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_CharlEm · Answer

En fait j'ai en entrée plein de petits fichiers (d'une page en général) destinés à être tous imprimés.

Pour se faciliter la tache, j'ai créé cette fonction qui fusionne tous les petits fichiers text en un seul gros fichier text.

Le problème c'est que les fichiers se suivent à la queu leu leu et donc si un des fichier en entrée dépasse de quelques ligne une page, ça décale tout le reste et c'est très moche à l'impression.

Je voudrais ajouter quelque chose genre 'remplir des ligne vides pour générer le début du fichier suivant sur une nouvelle page' mais bon là on est en mode text ce qui est plus dur.

bigfish_le vrai · Answer

Salut,

a priori en VB6 cela ce fait a l'impression 


Printer.NewPage

Je ne connais pas d'autre moyen mais mes connaissances en VB6 sont pauvrent

A+

cs_CharlEm · Answer

Si je compare mon gros fichier par rapport aux gros fichiers du programme du mec qui avait fait pareil (mais qui c'est cassé de la boite ), je vois un &#x0;C; à la fin de chaque attestation (un petit fichier) j'ai l'impression que ce caratère est là pour que l'imprimante saute de page lors de l'impression. Possible ou pas ?

bigfish_le vrai · Answer

...Pour plus d'info tu peux voir ici

A+

cs_CharlEm · Answer

Merci mais là je ne suis pas au moment de l'impression, je suis juste entrain de rassembler mes petits fichiers pour en faire un tout gros que je converti en pdf (j'ai trouvé une super class sur ce site qui fait ça c'est super).

Quand j'ai mon gros fichier texte --> un gros fichier pdf --> ce fichier pdf peut être imprimé si les utilisateurs le veulent mais à l'affichage j'ai pas de saute de page dans mon fichier texte et c'est tout moche.

Mais à mon avis si je peux mettre des caractères spéciaux ça passerait. Quand j'ouvre un fichier texte qui passe bien fichier pdf avec de bon sauts de page avec UltraEdit, je remarque qu'il y a un petit rectangle qui prend un caractère à la fin de chaque attestation (une attestation = une page de mon gros fichier texte).

Bref, à mon avis il faudrait que je génère ces rectangle dans mon programme mais comment faire ... that is THE question 

Merci à tous pour vos réponses

bigfish_le vrai · Answer

...

tu peux aller voir ici tu y trouveras une table de caracteres ASCII.
Le caractere 12 provoque un saut de page. La solution est peut etre la !

A+

cs_CharlEm · Answer

Ho mais tu m'y fait penser il suffirait que je mette juste vbCrLf ???

Je vais essayer lundi avant je bosse pas

CharlEm80 · Answer

J'arrive pas à faire des réponses acceptée mais ça marche le chr(12)

Merci à tous

cs_CharlEm · Answer

??? flute j'ai deux compte moi :o)

cs_Exploreur · Answer

Salut ,

Hein ???

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_CharlEm · Answer

Bhen en fait c'est juste pour dire merci du coup de main mais visiblement j'ai deux comptes ... j'ai du oublier que j'avais fait un premier compte :o)

Donc quand CharlEm80 dit merci c'est que CharlEm dit merci aussi :o)

cs_Exploreur · Answer

Re,

Lol......Au pire demande aux administrateurs d'en supprimer un...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Forcer écriture page suivante

13 réponses

Votre réponse

Discussions similaires