Jabaco Source

'-Begin-----------------------------------------------------------------

  Function unesc(myString As String) As String
    Dim strWriter As java#io#StringWriter
    If Len(myString) > 0 Then
      strWriter = New java#io#StringWriter(Len(myString))
      org#apache#commons#lang#StringEscapeUtils.unescapeJava(strWriter, myString)
      unesc = strWriter.toString()
    End If
  End Function  

  Public Sub main(ByJava args() As String)

    Dim myArgs() As String
    myArgs = args
    
    MsgBox unesc("Dies ist \nein Test")

  End Sub

'-End-------------------------------------------------------------------