26-10-13, 12:13 AM
كيف نحذف السطر الجديد من متغير ممتليء بالنصوص
احاول الحصول على كل الصور لكن بدون جدوى
ارجو النظر في الكود ومساعدتي في خله
لانه اما اسمي ملفين او سطر اعلى واسفل الرابط اكتشفت ذلك حين اسنده الى مربع نص
كود :
Do Until b.CancellationPending = True Or vbulletin_forum_last_thread_number < vbulletin_forum_oldest_thread_number
Dim url As String = vbulletin_forum_furl & vbulletin_forum_threadurl & vbulletin_forum_last_thread_number
turl.Text = url
Dim page As String = vbulletin_loadpage(url)
'(<img src=")(.*\.gif|png|jpg|jpeg)(.*/>)
Dim regstr As String = "(<img src="")(.*\.gif|png|jpg|jpeg)(.*/>)"
Dim reg As New Regex(regstr)
Dim mcoll As MatchCollection = reg.Matches(page)
progpage.Maximum = mcoll.Count
Dim all As String = ""
Dim wc As New Net.WebClient
wc.Encoding = Encoding.Default
wc.Headers.Add("cookie", fillvbulletincookie)
Dim m As String = ""
For i = mcoll.Count - 1 To 0 Step -1
m &= mcoll(i).Groups(2).Value & vbNewLine
Next
Dim h As String = ""
For Each t In m.Split("""")
' TextBox1.AppendText(t & vbNewLine)
h &= t & vbNewLine
Next
For Each z In h.Split("")
all &= (z & vbNewLine)
Next
Dim fall As String = ""
For Each p In all.Split(vbNewLine)
If p.Trim.Replace(" ", "").StartsWith("images") Then
fall &= (p & vbNewLine)
End If
Next
For Each t In fall.Split(vbNewLine)
If t.ToString.Trim.Replace(" ", "") = "" Then
Else
t = t.Replace(vbNewLine, "")
t = t.Replace(" ", "")
Dim nt As String = ""
nt = t.Replace(vbNewLine, vbNullString)
nt = t.Replace(" ", vbNullString)
MsgBox(nt)
Dim pn As String = IO.Path.GetFileName(nt)
'wc.DownloadFile(vbulletin_forum_furl & t, "images\" & pn)
End If
Next
Loopاحاول الحصول على كل الصور لكن بدون جدوى
ارجو النظر في الكود ومساعدتي في خله
لانه اما اسمي ملفين او سطر اعلى واسفل الرابط اكتشفت ذلك حين اسنده الى مربع نص
