Skip to content

Commit 3d9764b

Browse files
committed
Improved work with text files with different line ending characters.
1 parent 97af53a commit 3d9764b

File tree

1 file changed

+5
-2
lines changed

1 file changed

+5
-2
lines changed

src/CSVTextStream.cls

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -263,9 +263,12 @@ Private Sub GoBackToLineBreak()
263263
Loop While Not BufferEnds
264264
End Sub
265265
Private Sub NormalizeLineBreaks()
266-
If InStrB(1, P_TEXT, vbCr, vbBinaryCompare) Then
266+
Do While InStrB(1, P_TEXT, vbCrLf, vbBinaryCompare)
267+
P_TEXT = Join$(Split(P_TEXT, vbCrLf), vbLf)
268+
Loop
269+
Do While InStrB(1, P_TEXT, vbCr, vbBinaryCompare)
267270
P_TEXT = Join$(Split(P_TEXT, vbCr), vbLf)
268-
End If
271+
Loop
269272
Do While InStrB(1, P_TEXT, DualLFchar, vbBinaryCompare)
270273
P_TEXT = Join$(Split(P_TEXT, DualLFchar), vbLf)
271274
Loop

0 commit comments

Comments
 (0)