Article View: be.comp.programming
Article #12584Re: [vb] Wat doe de functie Instr en Replace?
From: Pieter Huygens
Date: Thu, 25 Oct 2001 22:21
Date: Thu, 25 Oct 2001 22:21
31 lines
2473 bytes
2473 bytes
> Met select case bepaal je wat er in die string staat en stuur je de string
> door naar de juiste functie.
Het begint er al een beetje op te trekken, het begint wat te lukken.
Ik gebruik nu volgende code:
<begin>
Dim incomingdata As String
Winsock1.GetData incomingdata
Dim strSubject As String
Dim strMail As String
Dim intWhere As Integer
strMail = incomingdata
Print incomingdata
intWhere = InStr(1, strMail, "Subject:")
If intWhere <> 0 Then
strSubject = Mid(strMail, intWhere)
intWhere = InStr(1, strSubject, vbCrLf)
strSubject = Mid(strSubject, intWhere)
MsgBox ("Er is subject in de header gevonden")
MsgBox (strSubject)
</einde code>
Als je deze code runt, word er gedetecteerd aan de hand van het word subject
in de string, of die string al dan niet een header is ja of nee.
Nu is het probleem dat strSubject, *alles* van de complete header inhoud
/achter/ het subject, dus subject is niet ingbegrepen in de string, maar wel
*alles* achter het subject.
Vind het eigenlijk niet direct.
Heb je toevallig enig idee wat er mis is?
Nogmaals bedankt!
Technical Details
Message-ID:
<yf0C7.513$WR3.107687025@hestia.telenet-ops.be>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!newsfeed.icl.net!skynet.be!skynet.be!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mailReferences:
<4sXB7.237$PR.28998755@hestia.telenet-ops.be> <jn_B7.1536$aA1.265@afrodite.telenet-ops.be> <Mq_B7.417$d86.84191426@hestia.telenet-ops.be> <yD_B7.1596$aA1.299@afrodite.telenet-ops.be> <EL_B7.439$0A7.90203233@hestia.telenet-ops.be> <_%_B7.1698$aA1.261@afrodite.telenet-ops.be> <Yy%B7.449$Qp1.111859823@hebe.telenet-ops.be> <zG%B7.1862$aA1.302@afrodite.telenet-ops.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,4edd4c06c6b48422 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2001-10-25 15:21:19 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!newsfeed.icl.net!skynet.be!skynet.be!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail From: "Pieter Huygens" <phuygens@pandora.be> Newsgroups: be.comp.programming References: <4sXB7.237$PR.28998755@hestia.telenet-ops.be> <jn_B7.1536$aA1.265@afrodite.telenet-ops.be> <Mq_B7.417$d86.84191426@hestia.telenet-ops.be> <yD_B7.1596$aA1.299@afrodite.telenet-ops.be> <EL_B7.439$0A7.90203233@hestia.telenet-ops.be> <_%_B7.1698$aA1.261@afrodite.telenet-ops.be> <Yy%B7.449$Qp1.111859823@hebe.telenet-ops.be> <zG%B7.1862$aA1.302@afrodite.telenet-ops.be> Subject: Re: [vb] Wat doe de functie Instr en Replace? Lines: 33 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: <yf0C7.513$WR3.107687025@hestia.telenet-ops.be> Date: Thu, 25 Oct 2001 22:21:18 GMT NNTP-Posting-Host: 213.118.39.118 X-Complaints-To: abuse@pandora.be X-Trace: hestia.telenet-ops.be 1004048478 213.118.39.118 (Fri, 26 Oct 2001 00:21:18 CEST) NNTP-Posting-Date: Fri, 26 Oct 2001 00:21:18 CEST Organization: Telenet Internet