|
| Autor |
Nachricht |
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
buffer prob
Verfasst am: 15.12.2007, 21:30 |
|
|
Also hier zeigt der mir immer wieder einen fehler an
pos = InStr(1, txt, "md5</td><td>")
pos2 = InStr(pos + 56, txt, "")
pos2 = InStr(pos2 + 1, txt, "")
buffer = Mid(txt, pos + 56, (pos2 - pos) - 56)
mit dieser meldung
| Code: |
Invalid procedure call or argument |
kann einer vllt. helfen ? |
|
| |
|
 |
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 15.12.2007, 21:52 |
|
|
| Alles schön als Integer (Zahl) deklariert? |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 15.12.2007, 22:18 |
|
|
nö genau das selbe
also hab das so deklariert
Dim buffer As Integer, pos As Long, pos2 As Long |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 15.12.2007, 22:36 |
|
|
Ok as Long funktioniert genau so gut. Weiß aber woran es liegt.
Du rechnest mit Zahlen aber deine Variable txt ist ein String oder?
Probier das mal:
| Code: | Dim txtInt as Integer ' kannst auch Long nehmen
txt = txtInt |
So kannst du deinen String in eine zahl umwandeln.
Dann muss dein Code natürlich auch so aussehen:
| Code: | pos = InStr(1, txtInt, "md5</td><td>")
pos2 = InStr(pos + 56, txtInt, "")
pos2 = InStr(pos2 + 1, txtInt, "")
buffer = Mid(txtInt, pos + 56, (pos2 - pos) - 56) |
Müsste so eigentlich funktionieren. |
|
| |
|
|
|
|
Registrieren
Login
