Избегайте дополнительного "возврата каретки" в инструкции Print с Visual Basic?

чтобы помочь другим людям в будущем, вот краткое изложение моей проблемы и решения. Дополнительный возврат каретки в каждой строке даже с запятой в конце оператора печати был фактически вызван строкой пространства, за которой следует новая строка(Chr$(A)) в одном из операторов печати, как только такая строка будет напечатана, тогда все предыдущее и последующее печатное содержимое будет иметь дополнительный возврат каретки!

кажется, ошибка на VBA 6 (с Excel 2007), неприятная!

мой обходной путь должен был заменить новую строку пробелом.

Спасибо за повторную помощь Тони, позволяющую мне, наконец, прибить причину.

вот код, чтобы продемонстрировать проблему:

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

после первого "закрыть #outFile", вот содержимое файла demoCarriageReturn.org:

#+AUTHOR:    Yu Shen

Примечание: с редактором, способным показывать возврат каретки как видимый ^M, нет возврата каретки.

однако, после второго "Close #outFile", вот содержимое того же файла с дополнительным контентом:

#+AUTHOR:    Yu Shen^M

^M 

Примечание: появляются два возврата каретки. Они не предназначены. В частности, в первой строке была выполнена инструкция print, а в предыдущей инструкции close она была найдена без возврата каретки. (Чтобы проиллюстрировать возврат каретки, я должен ввести ^M на веб-странице здесь. Но это в файле распечатки.)

вот почему я думаю, что это ошибка, как возврат каретки не предназначен. Это нежелательный сюрприз.

следующий код показывает, что если я отфильтрую символ строки, проблема исчезнет.

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

после полного выполнения вышеуказанной программы, действительно нет возврата каретки!

#+AUTHOR:    Yu Shen

это показывает, что строка сочетание пробелов, а затем linefeed вызвал ошибку, и удаление linefeed может избежать ошибки.

следующий код дополнительно демонстрирует, что если нет оскорбительной строки, даже без новой строки и запятой в конце инструкции print, не было бы нежелательного возврата каретки!

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

также в результате вывода:

#+AUTHOR:    Yu Shen

по-прежнему нет раздражающего возврата кареты!

это показывает, что использование новой строки, за которой следует двоеточие в конце инструкции print, не является решением проблемы возврата каретки в каждой строке! реальное решение-избегать любых строка пробела, перевода строки в печати материалам.

ю