InStr Problemen

[Youandih]

Hey, ik heb een probleempje met het InStr command.
Komt omdat ik het te lang niet meer gedaan heb.

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
 xmlDoc.async = false 
 xmlDoc.load("http://xml.weather.com/weather/local/NLXX0002?cc=*&unit=M&dayf=1") 
 Set Condition = xmlDoc.selectsinglenode ("/weather/cc/t") 
 
If InStr(Condition.Text) = "Sunny" Then
 MsgBox("It's Sunny and Windy") 
 End If

Ik neem aan dat jullie begrijpen wat de bedoeling was? Wat doe ik fout?

 

[edmoor]

Hier staat 'ie helemaal uitgelegd:
http://msdn.microsoft.com/en-us/library/8460tsh1(v=vs.80).aspx

 

[JoZ1]

Zoals ook op te maken is uit de msdn-link van edmoor, retourneert de InStr-functie een indexwaarde, een getal dus.

Dan kun je beter zoiets proberen:

[cpp]If Condition.Text.Contains("Sunny") Then[/cpp]

 

[Youandih]

Toch.

Is toch gelukt:

[CPP]if inStr(Condition.Text, "Fair") Then
MsgBox("It's Shining!")
End If[/CPP]

Het is dus niet alleen met getallen ^^

Ik wist nml. dat ik hem idd al eerder als niet-getal heb gebruikt

 

[JoZ1]

Hij retourneert hier ook een getal hoor
De waarde 0 wordt gezien als False en iedere andere waarde als True.

 

[Youandih]

Raar

Dat is vaag.. Want bij mij werkt ie gewoon met tekst..

 

[JoZ1]

inStr(Condition.Text, "Fair") -> levert de waarde 0 of de index van de start van het woord 'Fair' in Condition.Text.
Als-ie dus niets kan vinden, levert dat '0' op.

If 0 Then -> wordt niet uitgevoerd
If Not 0 Then -> wordt wel uitgevoerd


If Condition.Text.Contains("Fair") Then zou dus hetzelfde opleveren

Dus je werkt wel met getallen

Zet je de vraag ook even op opgelost?

 

[edmoor]

Het gevaar dat je daarmee loopt is dat er een kans is dat er een False wordt terug gegeven wanneer de gezochte tekst begint op een even positie.
Gebruik functies zoals ze moeten worden gebruikt en niet een variatie erop die wel goed lijkt.

 

[Youandih]

Tja

Dat is waar, ja. Maar dan heb ik alsnog een probleem, want Condition.Text.Contains werkte niet.

 

[Youandih]

Dus wat doe ik fout? Dit is wat ik heb en hij geeft steeds "Object vereist: Condition.Text"

[CPP]Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load("http://xml.weather.com/weather/local/NLXX0002?cc=*&unit=M&dayf=1")
Set Condition = xmlDoc.selectsinglenode ("/weather/cc/t")
Set Sunset = xmlDoc.selectsinglenode ("/weather/dayf/day/suns")
Set Sunrise = xmlDoc.selectsinglenode ("/weather/dayf/day/sunr")

If Condition.Text.Contains("Fair") Then
MsgBox("It's Fair")
ElseIf Condition.Text.Contains("Sunny") Then
MsgBox("It's Sunny")
End If
[/CPP]

 

[edmoor]

.Contains is geen onderdeel van Condition.Text

 

[Youandih]

Oke, want JoZ1 schreef dat wel, en ik heb die functie nooit gebruikt, dus vandaar.

 

[Youandih]

.Contains is geen onderdeel van Condition.Text

Zou je het voor me willen uitschrijven zoals het dan wel zou moet?

 

[edmoor]

Sorry.
In VBA is die Contains geen onderdeel.
In VB weet ik het zo niet en zou ik een reactie van JoZ1 afwachten.

 

[Youandih]

Oke alsnog bedankt voor de hulp

 

[JoZ1]

Contains is een method van String.

Probeer dit eens:

[cpp]If Condition.Text.ToString().Contains("Fair") Then ...[/cpp]