VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

(VB.NET) XML Sort Records by Content

Demonstrates the SortRecordsByContent method.

The input XML, available at http://www.chilkatsoft.com/data/fruitRecordsSort.xml, is this:

<root>
    <fruits>
        <fruit>
            <name>apple</name>
            <color>red</color>
        </fruit>
        <fruit>
            <name>banana</name>
            <color>yellow</color>
        </fruit>
        <fruit>
            <name>blackberry</name>
            <color>purple</color>
        </fruit>
        <fruit>
            <name>blueberry</name>
            <color>blue</color>
        </fruit>
        <fruit>
            <name>orange</name>
            <color>orange</color>
        </fruit>
        <fruit>
            <name>pear</name>
            <color>green</color>
        </fruit>
    </fruits>
</root>

Download: Chilkat .NET Assemblies

Dim xml As New Chilkat.Xml()
Dim xSortRoot As Chilkat.Xml

Dim success As Boolean
'  The sample input XML is available at http://www.chilkatsoft.com/data/fruitRecordsSort.xml
success = xml.LoadXmlFile("fruitRecordsSort.xml")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & xml.LastErrorText & vbCrLf
    Exit Sub
End If


'  The "fruit" records are direct children of the "fruits" node.
'  Therefore, to sort the fruit records, the SortRecordsByContent
'  method must be called from the "fruits" node.
xSortRoot = xml.FindChild("fruits")

'  Sort by the "name" field in ascending order.
Dim bAscending As Boolean
bAscending = true
xSortRoot.SortRecordsByContent("name",bAscending)

'  Show the result:
TextBox1.Text = TextBox1.Text & xml.GetXml() & vbCrLf

'  
<root>
    <fruits>
        <fruit>
            <name>apple</name>
            <color>red</color>
        </fruit>
        <fruit>
            <name>banana</name>
            <color>yellow</color>
        </fruit>
        <fruit>
            <name>blackberry</name>
            <color>purple</color>
        </fruit>
        <fruit>
            <name>blueberry</name>
            <color>blue</color>
        </fruit>
        <fruit>
            <name>orange</name>
            <color>orange</color>
        </fruit>
        <fruit>
            <name>pear</name>
            <color>green</color>
        </fruit>
    </fruits>
</root>
 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser