Mantieni CRLF nel salvataggio editor Okuma

2026-07-28 08:31:09 +02:00
parent aa94eb2aed
commit b9d0c0f7b9
9 changed files with 28 additions and 13 deletions
@@ -485,6 +485,21 @@ Public Class Form1
                End If
            End If

+            If visibleText(i) = ControlChars.Cr Then
+                builder.Append(vbCrLf)
+                i += 1
+                If i < visibleText.Length AndAlso visibleText(i) = ControlChars.Lf Then
+                    i += 1
+                End If
+                Continue While
+            End If
+
+            If visibleText(i) = ControlChars.Lf Then
+                builder.Append(vbCrLf)
+                i += 1
+                Continue While
+            End If
+
            builder.Append(visibleText(i))
            i += 1
        End While