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

LVL 1
dsiemonAsked:
Who is Participating?
 
Erick37Connect With a Mentor Commented:
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
 
ChetOS82Commented:
This is already ASP.net.
0
 
dsiemonAuthor Commented:
sorry vb.net, from c# to vb.net
0
Cloud Class® Course: Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

 
ChetOS82Commented:
There are online tools that do this very well.

http://www.developerfusion.com/tools/convert/csharp-to-vb/
0
 
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
 
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
 
Andre412Connect With a Mentor Commented:
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
 
ChetOS82Connect With a Mentor Commented:
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
 
Erick37Connect With a Mentor Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.