scriptfout

[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

[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

[Edwin]

geeft helaas de zelfde foutmelding bert.

edwim

[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?

[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

[Edwin]

O stom, ik had mijn zondagse bril niet op
Over een komma heen gekeken:-)
Het werkt weer bedankt voor jullie hulp.

Groeten edwin