Éviter extra “retour chariot” dans Print avec Visual Basic?

Pour aider les autres personnes dans le futur, voici un résumé de mon problème et de la solution. Le retour chariot supplémentaire sur chaque ligne, même avec un point-virgule à l'instruction print-end a été effectivement causé par une chaîne de caractères de l'espace, suivi de retour à la ligne (Chr$(A)) dans l'une de l'instruction print, une fois que cette chaîne est imprimé, puis toutes les précédentes et suivantes imprimé le contenu aurait un retour de chariot supplémentaire!

Il semble un bug sur VBA 6 (avec Excel 2007), un méchant!

Mon travail a été de remplacer le saut de ligne par un espace.

Merci pour Tony répétée de l'aide me permettant enfin trouvé la cause.

Voici le code pour illustrer le problème:

Sub DemoCarriageReturnWillAppearOnAllLines()
    Dim filePath As String
    Dim outFile
    Dim offendingText
    filePath = "d:\tmp\demoCarriageReturn.org"
    If Dir(filePath) <> "" Then
        Kill filePath
    End If
    outFile = FreeFile()
    Open filePath For Output As outFile
    Print #outFile, "#+AUTHOR:    Yu Shen" & vbNewLine;
    Close #outFile 'At this moment, there is no carriage return
    Open filePath For Append As outFile
    offendingText = " " & Chr$(10)
    Print #outFile, offendingText & vbNewLine;
    Close #outFile 'Now, every line end has carriage return.
    'It must be caused by the offending at the above print out content.
End Sub

Après le premier "Fermer #outFile", voici le contenu du fichier demoCarriageReturn.org:

#+AUTHOR:    Yu Shen

Remarque: avec l'éditeur capable montrant retour chariot comme visible ^M, il n'y a pas de retour chariot présent.

Cependant, après la deuxième "Fermer #outFile", voici le contenu du fichier même avec du contenu supplémentaire:

#+AUTHOR:    Yu Shen^M

^M 

Remarque: il y a deux retours chariot apparaissent. Ils ne sont pas destinés. En particulier, à la première ligne, l'imprimer instruction a été exécutée, et lors de la précédente fermeture de l'instruction, il a été constaté sans retour chariot. (Pour illustrer un retour chariot, je dois taper ^M dans la page web ici. Mais c'est dans le fichier de l'impression.)

C'est pourquoi je pense que c'est un bug, comme les retours à la ligne ne sont pas destinés. Il est indésirable surprise.

Le code suivant montre que si je filtre le caractère de saut de ligne, le problème aurait disparu.

Sub DemoCarriageReturnWillNotAppearAtAll()
    Dim filePath As String
    Dim outFile
    Dim offendingText
    filePath = "d:\tmp\demoCarriageReturn.org"
    If Dir(filePath) <> "" Then
        Kill filePath
    End If
    outFile = FreeFile()
    Open filePath For Output As outFile
    Print #outFile, "#+AUTHOR:    Yu Shen" & vbNewLine;
    Close #outFile 'At this moment, there is no carriage return
    Open filePath For Append As outFile
    offendingText = " " & Chr$(10)
    Print #outFile, Replace(offendingText, Chr$(10), "") & vbNewLine;
    Close #outFile 'Now, no more carriage return.
    'The only change is removing the linefeed character in the second print statement
End Sub

Après l'exécution complète du programme ci-dessus, il n'existe en effet pas de retour chariot!

#+AUTHOR:    Yu Shen

Cela montre que la chaîne de la combinaison de l'espace, suivi de retour à la ligne provoqué le bug, et supprimer le saut de ligne peut éviter le bug.

Le code suivant démontrent en outre que si il n'y a pas de délinquance de la chaîne, même sans retour à la ligne et le point-virgule à la fin de l'instruction d'impression, il n'y aurait pas indésirable retour chariot!

Sub DemoCarriageReturnWillNotAppearAtAllEvenWithoutNewLineFollowedBySemiColon()
    Dim filePath As String
    Dim outFile
    Dim offendingText
    filePath = "d:\tmp\demoCarriageReturn.org"
    If Dir(filePath) <> "" Then
        Kill filePath
    End If
    outFile = FreeFile()
    Open filePath For Output As outFile
    Print #outFile, "#+AUTHOR:    Yu Shen"
    Close #outFile 'At this moment, there is no carriage return
    Open filePath For Append As outFile
    offendingText = " " & Chr$(10)
    Print #outFile, Replace(offendingText, Chr$(10), "")
    Close #outFile 'Now, no more carriage return.
    'The real change is removing the linefeed character in the second print statement
End Sub

Également dans le résultat de sortie:

#+AUTHOR:    Yu Shen

Toujours pas de l'ennuyeux retour chariot!

Cela montre que à l'aide de retour à la ligne suivie par un point-virgule à la fin de l'instruction d'impression n'est pas la solution au problème de retour chariot à chaque ligne! La vraie solution est d'éviter toute chaîne de caractères de l'espace, suivi de retour à la ligne en imprimer le contenu.

Yu

OriginalL'auteur Yu Shen