VB array question

[djack]

Hey mensen

Ik heb een klein scriptje geschreven om bepaalde waardes van uit het register in een txt filetje te schrijven.
Nu is het "probleem" dat ik de waardes die ik er wil uithalen in een array heb gestoken manueel. Is het mogelijk om deze keys automatisch uit het register te sleuren ?
Hier is wat ik nu heb

VB:
dir = array ("App","cache","db","root","sb","update","userdata")
Dim counterdir
counterdir = 0
while counterdir < 6
Dim direc, outputdir
Set direc = CreateObject("Scripting.FileSystemObject")
Set wshshell = CreateObject("WScript.Shell")
key = "HKLM\Software\Bureau van Dijk\sony\Server\Directories\"
outputdir = wshshell.RegRead(key & dir(counterdir) )
outputfile.Write(dir(counterdir))
outputfile.write(" : ")
outputfile.WriteLine(outputdir)
counterdir = counterdir +1
wend

Het werkt maar als ze beslissen in de volgende versie iets te veranderen nen key of zo bij te steken dan kan dat scriptje weer aangepast worden.
En das nie zo echt de bedoeling
Ook als ge opmerkingen over mijn coding hebt let me know, kan der mor van leren he :-)

Thanks

[Verwijderd]

Volgens mij is het voor nu niet mogelijk om het laatste array item op te halen aangezien je loopje <6 is, verder heb je key niet gedimt.

anyway met UBound kan je het aantal items ophalen. Verder misschien de keys uit een txt bestandje fixen en dan met de split functie om laten zetten naar een array


Verder zie ik dat je componenten binnen je loop initialiseerd... kan er beter buiten

[ Voor 0% gewijzigd door Verwijderd op 02-10-2002 09:06 . Reden: laatste opmerking ]

[djack]

Dus dit zou ietsje beters moeten zijn .....
uw txt oplossing is wel cool maar ik heb al moet en zweten om dit hier werkende te krijgen
:-)
Mijn vb kennis is benenden alle niveau.

offtopic:
Het zou leuk zijn dit alles in een exe bestand te kunnen steken, maar ik heb geen vb studio nog andere dure software, bestaat er een goed free proggie waarmee ik kan coden het halen van regkeys het copieren van bestanden en dat proggie kan compileren tot exe bestand .... :-)


VB:
dir = array ("App","cache","db","root","sb","update","userdata")
Dim counterdir,direc, outputdir, key

Set direc = CreateObject("Scripting.FileSystemObject")
Set wshshell = CreateObject("WScript.Shell")
key = "HKLM\Software\Bureau van Dijk\sony\Server\Directories\"
counterdir = 0
while counterdir < 6
outputdir = wshshell.RegRead(key & dir(counterdir) )
outputfile.Write(dir(counterdir))
outputfile.write(" : ")
outputfile.WriteLine(outputdir)
counterdir = counterdir +1
wend

[Xion]

Ff netjes gemaakt

code:

Dir = Array("App", "cache", "db", "root", "sb", "update", "userdata")
Dim Direc, OutputDir, Key

Set Direc = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\Software\Bureau van Dijk\sony\Server\Directories\"
For i = 0 To UBound(Dir)
    With OutputFile
        .Write (Dir(i))
        .Write (" : ")
        .WriteLine (WshShell.RegRead(Key & Dir(i)))
    End With
Next

Of:

code:

Dir = Array("App", "cache", "db", "root", "sb", "update", "userdata")
Dim Direc, OutputDir, Key

Set Direc = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\Software\Bureau van Dijk\sony\Server\Directories\"
For i = 0 To UBound(Dir)
    OutputFile.Write (Dir(i))
    OutputFile.Write (" : ")
    OutputFile.WriteLine (WshShell.RegRead(Key & Dir(i)))
Next

Ik heb het niet kunnen testen, maar ik ga er van uit dat het werkt. Succes

[Verwijderd]

Bijna alles goed

deze moet namelijk ook nog veranderen, nu is je loopje onafhankelijk van je array
while counterdir < UBound(dir)


verder voor inlezen van txt bestand zijn vast wel veel dingen op Inet te vinden ff zoeken.

in dat txt bestand staat dan "App","cache","db","root","sb","update","userdata"
dan wordt om je array te laden

dir = JeTextBestandAlsString.Split(",")

[Verwijderd]

Xion schreef op 02 oktober 2002 @ 10:23:
Ff netjes gemaakt

code:

 .... lap code ....

of deze:

code:

Dir = Array("App", "cache", "db", "root", "sb", "update", "userdata")
Dim Direc, OutputDir, Key

Set Direc = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\Software\Bureau van Dijk\sony\Server\Directories\"
Do until counterdir > UBound(Dir)
    With OutputFile
        .Write (Dir(i))
        .Write (" : ")
        .WriteLine (WshShell.RegRead(Key & Dir(i)))
    End With
loop

[Xion]

Verwijderd schreef op 02 oktober 2002 @ 10:27:
[...]


of deze:
..code..

code:

Dir = Array("App", "cache", "db", "root", "sb", "update", "userdata")
Dim Direc, OutputDir, Key

Set Direc = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\Software\Bureau van Dijk\sony\Server\Directories\"
CounterDir = 0
Begin:
    With OutputFile
        .Write (Dir(i))
        .Write (" : ")
        .WriteLine (WshShell.RegRead(Key & Dir(i)))
    End With
    If Not CounterDir < 6 Then Goto Eind
    CounterDir = CounterDir + 1
Goto Begin
Eind:

(djack, deze code dus niet gebruiken )

[Verwijderd]

Xion schreef op 02 oktober 2002 @ 10:32:
[...]

hahaha....

wilde net een reply neerzetten van je ":" gemis bij begin, maar je had hem al ge-edit.....

maar goed... DJack snappie een beetje?

[djack]

ik snap het een beetje thanks you all :-)
over dat inlezen van dat filetje ga ik een smurfen om het internet

Over da off topic item al een ideeke ?

[Verwijderd]

ermz... geen id. wij gebruiken VS6.0

heb wel even gekeken naar compilers, maar die compilen VB projects. denk dat het wel mogelijk moet zijn om zelf een exe te maken....

[djack]

tja dat is the problem nu net ik heb gene vb studio of dergelijk maar wil wel nen exe ipv
een vbs scriptje :-)
tja k vraag veel he ....

[Verwijderd]

Visual Studio valt wel met KazAa down te lurpen
zonder de MSDN zit je aan 2 cd'tjes...

Ik weet niet wat je nu gebruikt om VB te coden, maar nothing beats de echte Visual Studio omgeving...

[djack]

leuk maar das niet echt legaal he
ikke voor vbs gebruik ik the good old notepad maar ik wil dien vbs compileren snif snif

[Verwijderd]

Als je BillyBoy graag even zijn hand in je portemonnee wil laten steken, kan je ook de learning edition van VB kopen..
Die is 'maar' een paar honderd dollar

[djack]

tja billyboy zal dit niet doen omdat dit niet tot mijn taakbeschrijving hoort you know
als ik hem een exe onder zijne neus kan stompen heeft hij niet veel keuzes meer :-)
It's all about politics