|
| Autor |
Nachricht |
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Split - Wo ist der verdammte Fehler?
Verfasst am: 07.05.2009, 12:38 |
|
|
Mein Code:
| Code: |
Private Sub wsTrashMailComCheck_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim strSource As String
Dim bufTitel As String
Dim bufAbsender As String
Dim bufAnkunft As String
Dim bufMailID1 As String
Dim bufMailID2 As String
Dim strTitel As String
Dim strAbsender As String
Dim strAnkunft As String
Dim strMailID1 As String
Dim strMailID2 As String
Dim i As Integer
Dim x As Integer
wsTrashMailComCheck.GetData strSource ',vbString
'MsgBox strSource
If InStr(1, strSource, " href=" & Chr(34) & "index.php?ln=p&mail=") > 0 Then
For i = 1 To UBound(Split(strSource, "&tid=", , vbTextCompare))
'On Error Resume Next
bufMailID1 = Split(strSource, "&mid=")(i)
strMailID1 = Split(bufMailID1, "&tid=")(0)
bufMailID2 = Split(strSource, "&tid=")(i)
strMailID2 = Split(bufMailID2, Chr(34) & ">")(0)
bufAbsender = Split(strSource, "<tr><td class=" & Chr(34) & "post_data" & Chr(34) & " style=" & Chr(34) & "text-align: center;" & Chr(34) & "><a class=" & Chr(34) & "post" & Chr(34) & " href=" & Chr(34) & "index.php?ln=p&mail=" & strName & "&mid=" & strMailID1 & "&tid=" & strMailID2 & Chr(34) & ">")(1)
strAbsender = Split(bufAbsender, "</a></td>")(0)
'MsgBox "style=" & Chr(34) & "text-align: left;" & Chr(34) & "><a class=" & Chr(34) & "post" & Chr(34) & " href=" & Chr(34) & "index.php?ln=p&mail=" & strName & "&mid=" & strMailID1 & "&tid=" & strMailID2 & Chr(34) & "> "
bufTitel = Split(strSource, " style=" & Chr(34) & "text-align: left;" & Chr(34) & "><a class=" & Chr(34) & "post" & Chr(34) & " href=" & Chr(34) & "index.php?ln=p&mail=" & strName & "&mid=" & strMailID1 & "&tid=" & strMailID2 & Chr(34) & "> ")(1)
strTitel = Split(bufTitel, "</a></td><td class=")(0)
bufAnkunft = Split(strSource, strTitel & "</a></td><td class=" & Chr(34) & "post_data" & Chr(34) & " id=" & Chr(34) & "left" & Chr(34) & " style=" & Chr(34) & "text-align: center;" & Chr(34) & "> ")(1) ' index außerhelb des gültigen bereichs wtf
strAnkunft = Split(bufAnkunft, "</td><td class=")(0)
strAnkunft = Replace(strAnkunft, " um ", " ")
' adden
If InStr(1, i / 2, ",") > 0 Then
MsgBox strMailID1
MsgBox strMailID2
MsgBox strAbsender
MsgBox strTitel
MsgBox strAnkunft
End If
Next i
End If
End Sub
|
Manchmal geht es, aber fast immer kommt der Fehler.
http://sollniss.1x.to/
 |
|
| |
|
 |
|
|
Registrieren
Login
