🚀 go-pugleaf

> Ik vroeg me af wat in visual basic de functie doet Instr en Replace.
> Ik wil het volgende toepassen:
> ik heb hier een string waarin een complete mail zit, met headers en al.
> Ik zou daar graag de lijn "subject: het subject" uithalen.
> Die lijn begint altijd met 'subject', maar hetgeen achter de dubbele punt
> staat, wil ik in een variabele krijgen.
> Kan iemand me vlug een voorbeeldje geven/en ev. kort uitleggen hoe die
> functie werkt.?
> Ik heb gehoord dat dat te doen is met de functie instr en/of Replace.

Instr zou je volledig kunnen schrijven als "zoek in string(variable)".
Het eerste attribut is "start" hier geef je de het startpunt van in de
string waar de functie moet beginnen te zoeken.
Het tweede attribut is "string1" hier geef je de string waar in gezocht moet
worden.
Het derde attribut is "string2" hier geef je string waar de functie naar
moet zoeken in string1.

Ik zal een voorbeeldje geven hoe denk dat het beste zal gaan.

Dim strMail as string 'Plaats hier in de mailbody
Dim strSubject as string 'Hier komt het onderwerp in
Dim intWhere as integer 'Waar begint het subject

'Waar begint subject?
intWhere = Instr(1, strMail, "subject:")

'Ik weet niet wat juist achter het subject komt om te zien waar die eindigt
maar ik gok dat het is gaat zijn als een linefeed dus ga ik vbCrLf
gebruiken, een constante in vb die hetzelfde is als chr(10)+chr(13)
strSubject = Mid(strMail, intWhere) 'Hier knip ik alles voor subject weg en
plaats het in strSubject

'Waar eindigd subject
intWhere = instr(1, strSubject, vbCrLf) 'Vervang vbCrLf door het juiste
teken, kan je wel ergens op internet vinden

'Alleen nog het subject
strSubject = mid(strSubject, intWhere) 'strSubject bevat nu de string
"subject: ....."

Ik denk dat dit is wat je nodig hebt. Er staat nog wel subject voor maar ik
denk dat je die wel kan wegknipen. Als het niet lukt, laat dan iets weten.


Replace dient om een string te zoeken in een andere string en als die
gevonden is wordt die vervangen door een opgegeven string.
vb:

Dim strOud as string
Dim strOmTeVinden as string
Dim strOmTeVervangen as string
Dim strNieuw as string

strOud = "*Hallo hoe is het ermee!*"
strOmTeVinden = "*"
strOmTeVervangen = "@"

strNieuw = Replace(strOud, strOmTeVinden, strOmTeVervangen)

Output zou dan zijn: "@Hallo hoe is het ermee@"


--
Mvg.

Zoeloelip
PUB - De Telenet-Internet gebruikersvereniging - http://pub.telenet.be