C# ——VB

[qlzf11140820]

Private Function formatURL(ByVal str As String) As String
Dim sStr As String
Dim i As Integer
Dim j As Integer
For i = 1 To Len(str)
sStr = sStr & Mid(str, i, 1)
If Mid(str, i, 1) = "/" Then
j += 1
End If
If j = 3 Then Exit For
Next
Return sStr
End Function




Private Function getURL(ByVal str As String) As String
Dim sStr As String
Dim i As Integer = 0
Dim j As Integer = 1
Dim length As Integer
For i = 1 To Len(str)
If Mid(str, i, 16) = "<a href='http://" Then
j = i + 9
Exit For
End If
Next
For i = j + 6 To Len(str)
If Mid(str, i, 1) = "'" Then
length = i - j
Exit For
End If
Next
sStr = Mid(str, j, length)
Return sStr
End Function

谁帮我把上面用VB写的改成c#的 ？？？

[龙宜坡]

private string formatURL(ref string str) 
{
        string sStr = "";
        int i,j; 
        i = j = 0;
        for(i = 1, i <= str.Length; i++)
        {
            sStr = sStr + str[i].ToString(); 
            if(str[i] == '/')
                j += 1;

            If(j == 3)
                break; 
        }
        return sStr;
}

[龙宜坡]

private string formatURL(string str)

看错！应该没有ref

[龙宜坡]

private string getURL(string str)
{
        string sStr = ""; 
        int i = 0; 
        int j = 1; 
        int Length = 0;
        for(i = 1; i <= str.Length; i++)
        { 
            if (str.SubString(i,16) == "<a href='http://")
            {
                j = i + 9 ;
                break; 
            }
        } 
        for (i = j + 6; i <= str.Length; i++)
        { 
            if (str[i].ToString() == "'") //应该有个更好办法，忘了试试str[i] == '''
            {
                length = i - j;
                break; 
            } 
        } 
        sStr = str.SubString(j, length); 
        Return sStr 
}

[龙宜坡]

Return sStr ;//少个分号

[qlzf11140820]

下面第二个 指教？？——————>马上就结贴

[qlzf11140820]

Private Function formatHtml(ByVal str As String) As String
Return Replace(str, "src=" & Chr(34) & "/", "src =" & Chr(34) & formatURL(TextBox1.Text))
End Function


？？？呵呵 绝对再没！

[龙宜坡]

prvate string formatHtml(string str)
{
    return str.Replace("src=\"/","src=\"" + formatURL(TextBox1.Text.Trim()));
    //formatURL你自己写的吧？？
}

[龙宜坡]

有完么完？？？？？？？？？

[qlzf11140820]

学习所需，望理解！

[yuanhuiqiao]

正确

[qlzf11140820]

Private Sub loadtitle()
//读取RSS中有关网站的信息
Dim xmlDocument As New XmlDocument
xmlDocument.Load(Application.StartupPath & "~doc.xml")
Dim mynodelist As XmlNodeList
mynodelist = xmlDocument.SelectNodes("/rss/channel")
Me.Text = Trim(mynodelist(0).Item("title").InnerText()) & "提供"
Label2.Text = Trim(mynodelist(0).Item("description").InnerText())
End Sub

用VB写的改成c#的 ？？？