C#转VB.net ，看到奇怪的代码了。

[freetodotnet]

谁帮我转一下，我自己转了N久都搞不掂。特别是Replace("\r\n","<br>\"+\r\n\"")和Replace("\"","\\\"");最头痛。。




if(IsPostBack)
{
string html=Codehighlighter1.Output.Replace("\"","\\\"");
html=html.Replace("\r\n","<br>\"+\r\n\"");
html=html.Replace("...","<img src='"+imgpath+"dot.gif'>");



string divstr=@"<div style='BORDER-RIGHT: windowtext 0.5pt solid;PADDING-RIGHT: 5.4pt; BORDER-TOP: windowtext 0.5pt solid; PADDING-LEFT: 5.4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 4px;PADDING-TOP: 4px; BORDER-LEFT: windowtext 0.5pt solid;WIDTH: 98%; BORDER-BOTTOM: windowtext 0.5pt solid;word-break:break-all'>";
Response.Write(@"
<script language='javascript'>
window.parent.returnValue = """+divstr+html+@"</div>"";
window.parent.close();
</script>");

}

[一夜清懈]

If IsPostBack Then
Dim html As String = Codehighlighter1.Output.Replace("""", "\""")
html = html.Replace("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "", "<br>""+" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & """")
html = html.Replace("...", "<img src='" + imgpath + "dot.gif'>")
Dim divstr As String = "<div style='BORDER-RIGHT: windowtext 0.5pt solid;PADDING-RIGHT: 5.4pt; BORDER-TOP: windowtext 0.5pt solid; PADDING-LEFT: 5.4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 4px;PADDING-TOP: 4px; " & Microsoft.VisualBasic.Chr(9) & "BORDER-LEFT: windowtext 0.5pt solid;WIDTH: 98%;" & Microsoft.VisualBasic.Chr(9) & "BORDER-BOTTOM: windowtext 0.5pt solid;word-break:break-all'>"
Response.Write("" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "<script language='javascript'>" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "window.parent.returnValue = """ + divstr + html + "</div>"";" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "window.parent.close();" & Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "" & Microsoft.VisualBasic.Chr(9) & "</script>")
End If

[freetodotnet]

楼上的，谢谢啦