Initial import of UniversalIndentGUI 1.2.0 from Debian snapshot

(https://snapshot.debian.org/package/universalindentgui/1.2.0-1.1).
The code is available under GPL2 licence.

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>

1 files changed, 50 insertions, 0 deletions

diff --git a/indenters/example.vb b/indenters/example.vb
new file mode 100755
index 0000000..2ecbdc0
--- /dev/null
+++ b/indenters/example.vb
@@ -0,0 +1,50 @@
+Dim docRoot As New ChilkatXml

+

+Dim success As Long

+

+docRoot.Tag = "myDoc"

+

+'  To zip compress the content, set this flag to 1

+Dim zipContent As Long

+zipContent = 0

+'  To 128-bit AES encrypt the content, set this flag to 1

+Dim encryptContent As Long

+encryptContent = 0

+Dim encryptPassword As String

+encryptPassword = ""

+

+Dim pdfNode As ChilkatXml

+

+Set pdfNode = docRoot.NewChild("pdf","")

+

+'  Embed a PDF into XML

+success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)

+If (success <> 1) Then

+    MsgBox pdfNode.LastErrorText

+

+    Exit Sub

+End If

+

+MsgBox pdfNode.LastErrorText

+

+'  Display the entire XML document:

+Text1.Text = Text1.Text & docRoot.GetXml() & vbCrLf

+

+'  Get the Base64-encoded content and display it:

+Text1.Text = Text1.Text & pdfNode.Content & vbCrLf

+

+'  Extract the binary content from XML:

+Dim unzipContent As Long

+unzipContent = 0

+Dim decryptContent As Long

+decryptContent = 0

+Dim decryptPassword As String

+decryptPassword = ""

+success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)

+If (success <> 1) Then

+    MsgBox pdfNode.LastErrorText

+

+    Exit Sub

+End If

+

+MsgBox "Success!"
\ No newline at end of file