Escaping backslash character if not followed by any of "\rnt" in diag…

…ram code
kmierzeje · Oct 23, 2024 · ef1d584 · ef1d584
1 parent 4480d0e
commit ef1d584
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/vba/PlantUml.bas b/src/vba/PlantUml.bas
@@ -96,6 +96,9 @@ Function StringToHex(Text As String) As String
     Dim chars() As Byte
     chars = ToUTF8(Text)
     For i = LBound(chars) To UBound(chars)
+        If chars(i) = Asc("\") Then
+            If InStr("\rnt", Chr(chars(i + 1))) = 0 Then out = out + "5C"
+        End If
         Dim ch As String
         ch = Hex(chars(i))
         If Len(ch) = 1 Then