Learn how to a build a cloud-first strategyRegister Now

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

Convert to ASP.Net from C#

Please help me convert this to asp.net

Thanks Experts
private void ProcessUrl(string url)
    {
        StringBuilder sb = new StringBuilder();

        byte[] buf = new byte[8192];
        HttpWebRequest request = (HttpWebRequest)WebRequest.Create(url);
        HttpWebResponse response = (HttpWebResponse)request.GetResponse();
        Stream resStream = response.GetResponseStream();

        int count;
        do
        {
            count = resStream.Read(buf, 0, buf.Length);
            if (count != 0)
            {
                string tempString = Encoding.ASCII.GetString(buf, 0, count);
                sb.Append(tempString);
            }
        }
        while (count > 0);

        string document = sb.ToString();
        //document = Regex.Replace(document, "\\n", "", RegexOptions.IgnoreCase);
        document = Regex.Replace(document, "=\"/custom", "=\"" + Request.FilePath, RegexOptions.IgnoreCase);
        document = Regex.Replace(document, "=\"images/", "=\"/LivewireKiosk.com/googlesearch/images/", RegexOptions.IgnoreCase);
        //document = Regex.Replace(document, "align=right", "align=Left", RegexOptions.IgnoreCase);
        // document = Regex.Replace(document, "<div id=res>", "<br><br><br><br><div id=res>", RegexOptions.IgnoreCase);
        document = Regex.Replace(document, "width=100%", "width=75%", RegexOptions.IgnoreCase);
        document = Regex.Replace(document, "width:100%", "width:75%", RegexOptions.IgnoreCase);


        string tmpString = "<table align=right><tr><td align=left><a href=\"http://www.google.com/coop/cse/?hl=en\" target=_top><img src=\"/images/poweredby_transparent/poweredby_FFFFFF.gif\" alt=Google border=0></a><br><span style=\"font-size:9px;font-weight:bolder;color:#000000\">&nbsp;Custom Search</span></td></tr></table>";

        document = document.Replace(tmpString, "");

        string tmpStringCS = "class=\"t bb\"";
        //document = document.Replace(tmpStringCS, "");
      document = Regex.Replace(document, tmpStringCS, "", RegexOptions.IgnoreCase);


        //string GoogleSearchXmlPath = Server.MapPath(ConfigurationManager.AppSettings["GoogleSearchXml"]);
        string GoogleSearchXmlPath = "C:\\Development\\LivewireWebSites\\LivewireKiosk.com\\includes\\googlesearch.xml";
        if (!File.Exists(GoogleSearchXmlPath))
        {
            throw new Exception("The location to the GoogleSearch.xml file is not defined in the Web.Config file attribute GoogleSearchXml");
        }
        XDocument xDocument = XDocument.Load(GoogleSearchXmlPath);
        var items = from item in xDocument.Descendants("Filter") select new {
                        OrgText = ((string)item.Element("OriginalText")),
                        NewText = ((string)item.Element("ReplaceByText"))
        };

        foreach (var item in items)
        {
            document = Regex.Replace(document, item.OrgText, item.NewText, RegexOptions.IgnoreCase);
        }
        SearchResults.Controls.Add(new LiteralControl(document));
    }

Open in new window

0
dsiemon
Asked:
dsiemon
  • 4
  • 4
  • 2
  • +2
4 Solutions
 
ChetOS82Commented:
This is already ASP.net.
0
 
dsiemonAuthor Commented:
sorry vb.net, from c# to vb.net
0
 
ChetOS82Commented:
There are online tools that do this very well.

http://www.developerfusion.com/tools/convert/csharp-to-vb/
0
Technology Partners: 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!

 
ChetOS82Commented:

Private Sub ProcessUrl(url As String)
	Dim sb As New StringBuilder()

	Dim buf As Byte() = New Byte(8191) {}
	Dim request__1 As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
	Dim response As HttpWebResponse = DirectCast(request__1.GetResponse(), HttpWebResponse)
	Dim resStream As Stream = response.GetResponseStream()

	Dim count As Integer
	Do
		count = resStream.Read(buf, 0, buf.Length)
		If count <> 0 Then
			Dim tempString As String = Encoding.ASCII.GetString(buf, 0, count)
			sb.Append(tempString)
		End If
	Loop While count > 0

	Dim document As String = sb.ToString()
	'document = Regex.Replace(document, "\\n", "", RegexOptions.IgnoreCase);
	document = Regex.Replace(document, "=""/custom", "=""" + Request.FilePath, RegexOptions.IgnoreCase)
	document = Regex.Replace(document, "=""images/", "=""/LivewireKiosk.com/googlesearch/images/", RegexOptions.IgnoreCase)
	'document = Regex.Replace(document, "align=right", "align=Left", RegexOptions.IgnoreCase);
	' document = Regex.Replace(document, "<div id=res>", "<br><br><br><br><div id=res>", RegexOptions.IgnoreCase);
	document = Regex.Replace(document, "width=100%", "width=75%", RegexOptions.IgnoreCase)
	document = Regex.Replace(document, "width:100%", "width:75%", RegexOptions.IgnoreCase)


	Dim tmpString As String = "<table align=right><tr><td align=left><a href=""http://www.google.com/coop/cse/?hl=en"" target=_top><img src=""/images/poweredby_transparent/poweredby_FFFFFF.gif"" alt=Google border=0></a><br><span style=""font-size:9px;font-weight:bolder;color:#000000"">&nbsp;Custom Search</span></td></tr></table>"

	document = document.Replace(tmpString, "")

	Dim tmpStringCS As String = "class=""t bb"""
	'document = document.Replace(tmpStringCS, "");
	document = Regex.Replace(document, tmpStringCS, "", RegexOptions.IgnoreCase)


	'string GoogleSearchXmlPath = Server.MapPath(ConfigurationManager.AppSettings["GoogleSearchXml"]);
	Dim GoogleSearchXmlPath As String = "C:\Development\LivewireWebSites\LivewireKiosk.com\includes\googlesearch.xml"
	If Not File.Exists(GoogleSearchXmlPath) Then
		Throw New Exception("The location to the GoogleSearch.xml file is not defined in the Web.Config file attribute GoogleSearchXml")
	End If
	Dim xDocument__2 As XDocument = XDocument.Load(GoogleSearchXmlPath)
	Dim items = From item In xDocument__2.Descendants("Filter")New With { _
		Key .OrgText = DirectCast(item.Element("OriginalText"), String), _
		Key .NewText = DirectCast(item.Element("ReplaceByText"), String) _
	}

	For Each item As var In items
		document = Regex.Replace(document, item.OrgText, item.NewText, RegexOptions.IgnoreCase)
	Next
	SearchResults.Controls.Add(New LiteralControl(document))
End Sub

Open in new window

0
 
dsiemonAuthor Commented:
Dim items = From item In xDocument__2.Descendants("Filter")New With { _
            Key .OrgText = DirectCast(item.Element("OriginalText"), String), _
            Key .NewText = DirectCast(item.Element("ReplaceByText"), String) _
      }

this gives an error:  "Expected end of statement, otherwise everything else is converted

0
 
dsiemonAuthor Commented:
i replaced with
Dim items = From item In xDocument__2.Descendants("Filter") Select New With {Key .OrgText = item.Element("OriginalText").ToString, Key .NewText = item.Element("ReplaceByText").ToString}

and now i get 'Item'  wil lbe used as an object, since not no use of 'as'
what should i define it as?

also

below it says Items is not defined

For Each item In items
            document = Regex.Replace(document, item.OrgText, item.NewText, RegexOptions.IgnoreCase)
        Next

Thanks again
0
 
Erick37Commented:
The tools are not converting this properly:

var items = from item in xDocument.Descendants("Filter") select new {
                        OrgText = ((string)item.Element("OriginalText")),
                        NewText = ((string)item.Element("ReplaceByText"))
        };

should be:

Dim items = From item In xDocument__2.Descendants("Filter") _
               Select New With {Key .OrgText = DirectCast(item.Element("OriginalText"), String), Key .NewText = DirectCast(item.Element("ReplaceByText"), String)}
0
 
dsiemonAuthor Commented:
ok, after that, what do i declare 'item' as
it keeps saying 'item' is not decalred

For Each item In items
            document = Regex.Replace(document, item.OrgText, item.NewText, RegexOptions.IgnoreCase)
        Next

0
 
Andre412Commented:
i cant believe you posted this on expert exchange

just google "c# to vb" there are plenty of converters

http://www.developerfusion.com/tools/convert/csharp-to-vb/

http://www.dotnetspider.com/convert/Csharp-To-Vb.aspx

and so on
0
 
ChetOS82Commented:
Wow Andre, not nice.  Not only has you solution already been presented, but he pointed out that it didn't convert his Linq code properly.
0
 
Erick37Commented:
The following should work in VB.
When you mouse over 'item' it should say "Dim item As <anonymous type>"
Dim items = From item In xDocument__2.Descendants("Filter")
		 Select New With { _
		 .OrgText = item.Element("OriginalText"), _
		 .NewText = item.Element("ReplaceByText")}

		For Each item In items
			document = Regex.Replace(document, item.OrgText.ToString, item.NewText.ToString, RegexOptions.IgnoreCase)
		Next

Open in new window

0
 
Kumaraswamy RCommented:
This question has been classified as abandoned and is being closed as part of the Cleanup Program.  See my comment at the end of the question for more details.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

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