Page 1 of 1

scriptfout

Posted: Sun Nov 27, 2011 3:25 pm
by Edwin
hoi ik krijg een foutmelding in het log:27-11-2011 14:08:13 - Error - Running script, script run or compile error in file: csvscript.txt9:Het subscript valt buiten het bereik: '[number: 1]' in line 13 More info: Het subscript valt buiten het bereik: '[number: 1]'

dit is het script:

..........................................................................................................................................
sub main()
Dim fso, file

Path = "C:\Documents and Settings\homie\Mijn documenten\Visual Web Ripper\Output\top_40_nr_1\top 40 nr 1_data.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(Path, 1, True)
Do Until file.AtEndOfStream
r = file.ReadLine
arrSplitData = split(r,";")
'msgbox(arrSplitData(0))
'msgbox(arrSplitData(1))
'msgbox(arrSplitData(3))
hs.Setdevicestring "p50",arrSplitData(1)
Loop
file.Close


end sub
...................................................................................................................................

dit is de file dat hij leest:

...............................................................................................
TOP_40_NR_1_KEY,NR_1,START_URL
1,"Ik neem je mee- Gers Pardoel TopNotch","http://www.top40.nl/index.aspx"
....................................................................................................

ik heb het script een tijd geleden met hulp gemaakt
de bedoeling was een virtueel device "p 50" met in dit geval :Ik neem je mee -Gers Pardoel als device waarde.
maar nu werkt het script niet meer en weet niet meer hoe dat ik het werkend moet krijgen.
graag wat hulp aub :-)

alvast bedankt
groeten edwin

Re: scriptfout

Posted: Sun Nov 27, 2011 3:34 pm
by b_weijenberg
probeer dit eens:

sub main()
Dim fso, file

Path = "C:\Documents and Settings\homie\Mijn documenten\Visual Web Ripper\Output\top_40_nr_1\top 40 nr 1_data.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(Path, 1, True)
Do Until file.AtEndOfStream
r = file.ReadLine
arrSplitData = split(r,",")
'msgbox(arrSplitData(0))
'msgbox(arrSplitData(1))
'msgbox(arrSplitData(2))
hs.Setdevicestring "p50",arrSplitData(1)
Loop
file.Close

end sub

Re: scriptfout

Posted: Sun Nov 27, 2011 5:23 pm
by Edwin
geeft helaas de zelfde foutmelding bert.

edwim

Re: scriptfout

Posted: Sun Nov 27, 2011 5:36 pm
by Alexander
je split op puntkomma ipv komma. Dat zag bert ook, maar heb je dat ook zo overgenomen? wat gebeurd er als je in de csv de komma vervangt door puntkomma?

Re: scriptfout

Posted: Sun Nov 27, 2011 7:12 pm
by Edwin
heb de komma in punt komma veranderd en opgeslagen
maar nog steeds dezelfde foutmelding en device p50
veranderd ook nog steeds niet in de juiste waarde?

edwin

Re: scriptfout

Posted: Mon Nov 28, 2011 8:20 pm
by Edwin
O stom, ik had mijn zondagse bril niet op
Over een komma heen gekeken:-)
Het werkt weer bedankt voor jullie hulp.

Groeten edwin