Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 242
  • Last Modified:

Translation of C# array to VB.NET

Hi there.
I need some help translating the following small snippet from C# to VB.NET. Unfortunately I am totaly lost when it comes to C# and this time it is the array that is confusing.

Probably easy for you guys, but hard for me. ;)

Thanks in advance!
//Purchase list (catalog purchases)
if(PRP_CatalogPurchases != null)
{
   for(int i = 0;i < PRP_CatalogPurchases.Count;i++)
   {
   string[] Purchase = (string[])PRP_CatalogPurchases[i];
   PRP_XmlData += "<catalog_purchase>" + Environment.NewLine;
   PRP_XmlData += "<line_number>" +  PRP_htmlspecialchars((string)Purchase[0]) + "</line_number>" + Environment.NewLine;
   PRP_XmlData += "<id>" +  PRP_htmlspecialchars((string)Purchase[1]) + "</id>" + Environment.NewLine;
   PRP_XmlData += "<quantity>" +  PRP_htmlspecialchars((string)Purchase[2]) + "</quantity>" + Environment.NewLine;
   PRP_XmlData += "</catalog_purchase>" + Environment.NewLine;
   }
}

Open in new window

0
JohnModig
Asked:
JohnModig
  • 3
  • 2
2 Solutions
 
jorgesv13Commented:
Try:

 
    * 'Purchase list (catalog purchases)
    * If PRP_CatalogPurchases IsNot Nothing Then
    *     For i As Integer = 0 To PRP_CatalogPurchases.Count - 1
    *         Dim Purchase As String() = DirectCast(PRP_CatalogPurchases(i), String())
    *         PRP_XmlData += "<catalog_purchase>" + Environment.NewLine
    *         PRP_XmlData += "<line_number>" + PRP_htmlspecialchars(DirectCast(Purchase(0), String)) + "</line_number>" + Environment.NewLine
    *         PRP_XmlData += "<id>" + PRP_htmlspecialchars(DirectCast(Purchase(1), String)) + "</id>" + Environment.NewLine
    *         PRP_XmlData += "<quantity>" + PRP_htmlspecialchars(DirectCast(Purchase(2), String)) + "</quantity>" + Environment.NewLine
    *         PRP_XmlData += "</catalog_purchase>" + Environment.NewLine
    *     Next
    * End If

Open in new window

0
 
jpaulinoCommented:
Try this way using http://www.developerfusion.com/tools/convert/csharp-to-vb/
'Purchase list (catalog purchases) 
If PRP_CatalogPurchases IsNot Nothing Then 
    For i As Integer = 0 To PRP_CatalogPurchases.Count - 1 
        Dim Purchase As String() = DirectCast(PRP_CatalogPurchases(i), String()) 
        PRP_XmlData += "<catalog_purchase>" + Environment.NewLine 
        PRP_XmlData += "<line_number>" + PRP_htmlspecialchars(DirectCast(Purchase(0), String)) + "</line_number>" + Environment.NewLine 
        PRP_XmlData += "<id>" + PRP_htmlspecialchars(DirectCast(Purchase(1), String)) + "</id>" + Environment.NewLine 
        PRP_XmlData += "<quantity>" + PRP_htmlspecialchars(DirectCast(Purchase(2), String)) + "</quantity>" + Environment.NewLine 
        PRP_XmlData += "</catalog_purchase>" + Environment.NewLine 
    Next 
End If 

Open in new window

0
 
jorgesv13Commented:
Sorry, here's formatted right:
'Purchase list (catalog purchases)
If PRP_CatalogPurchases IsNot Nothing Then
    For i As Integer = 0 To PRP_CatalogPurchases.Count - 1
        Dim Purchase As String() = DirectCast(PRP_CatalogPurchases(i), String())
        PRP_XmlData += "<catalog_purchase>" + Environment.NewLine
        PRP_XmlData += "<line_number>" + PRP_htmlspecialchars(DirectCast(Purchase(0), String)) + "</line_number>" + Environment.NewLine
        PRP_XmlData += "<id>" + PRP_htmlspecialchars(DirectCast(Purchase(1), String)) + "</id>" + Environment.NewLine
        PRP_XmlData += "<quantity>" + PRP_htmlspecialchars(DirectCast(Purchase(2), String)) + "</quantity>" + Environment.NewLine
        PRP_XmlData += "</catalog_purchase>" + Environment.NewLine
    Next
End If

Open in new window

0
Nothing ever in the clear!

This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.

 
jpaulinoCommented:
Same tool jorgesv13 :)
0
 
jorgesv13Commented:
Yep, that page rocks! :)
0
 
JohnModigAuthor Commented:
Oh, that was fast! Thank you guys. For the link as well. ;)
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now