[JS/VBS] Class en argumenten

Pagina: 1
Acties:

  • Xlnt
  • Registratie: Oktober 2000
  • Laatst online: 18-08 08:11
Het volgende werkt in JScript:
code:
1
2
3
4
5
6
function CustomObject(nmbValue1, nmbValue2) {
   this.value1 = nmbValue1;
   this.value2 = nmbValue2;
}
objCustom = new CustomObject(1, 2);
WScript.Echo(objCustom.value1 + '\n' + objCustom.value2)

Hoe krijg ik dat voor elkaar in VBScript?

Ik heb al geprobeerd, maar dit werkte niet:
code:
1
2
3
4
5
6
7
8
9
10
11
12
Class CustomObject(nmbValue1, nmbValue2)
   Public value1
   Public value2
   Public Sub Class_Initialize() 
    value1 = mbValue1
    value2 = nmbValue2
   End Sub
End Class

Dim objCustom
Set objCustom = New CustomObject(1, 2);
WScript.Echo(CStr(objCustom.value1) + "Chr(10)" + CStr(objCustom.value2))

Het is volgens mij geen typfout, maar hij neemt die argumenten gewoon niet. Hoe kan ik dan toch zoiets voor elkaar krijgen?

"It's not that I'm lazy. It's that I just don't care."


  • mulder
  • Registratie: Augustus 2001
  • Laatst online: 22:14

mulder

ik spuug op het trottoir

Je zou om te beginnen de + door & kunnen vervangen. Documentatie lezen is ook geen slecht idee. Error vermelden etc.

oogjes open, snaveltjes dicht


  • Xlnt
  • Registratie: Oktober 2000
  • Laatst online: 18-08 08:11
Ik gebruik altijd de + in plaats van &. Slechte gewoonte, maar het zou gewoon moeten werken :).

De error gebeurdt op regel 1, teken 19. Dat is precies waar het haakje-openen begint van de argumenten lijst. Dit neemt ie niet. Maar hoe kan ik het wel doen?

"It's not that I'm lazy. It's that I just don't care."


  • mulder
  • Registratie: Augustus 2001
  • Laatst online: 22:14

mulder

ik spuug op het trottoir

Op donderdag 06 juni 2002 23:03 schreef Xlnt het volgende:
Ik gebruik altijd de + in plaats van &. Slechte gewoonte, maar het zou gewoon moeten werken :).
+ en & zijn niet hetzelfde bij mij weten. Het zou dus niet moeten werken (het is dus slecht dat het soms wel werkt, bizar zelfs). Bovendien voeg je "Chr(10)" toe. De string dus, niet Linefeed.

Maar er is meer dan genoeg informatie hierover op Google te vinden.

oogjes open, snaveltjes dicht


  • .oisyn
  • Registratie: September 2000
  • Laatst online: 03-09 13:30

.oisyn

Moderator Devschuur®

Demotivational Speaker

ga de [topic=397053] eens lezen
Java/VB script horen in w&g, niet in p&w

PW -> WG

Give a man a game and he'll have fun for a day. Teach a man to make games and he'll never have fun again.


  • Xlnt
  • Registratie: Oktober 2000
  • Laatst online: 18-08 08:11
+ en & zijn niet hetzelfde bij mij weten.
Dat heb ik ook niet gezegd, maar het werkt wel, en ook met & krijg ik dezelfde foutmelding.
Het zou dus niet moeten werken (het is dus slecht dat het soms wel werkt, bizar zelfs).
Dat is waar.
Bovendien voeg je "Chr(10)" toe. De string dus, niet Linefeed.
Vergeet die hele WScript.Echo output ook maar helemaal :)! Ik heb die output-regel enkel toegevoegd, zodat je het even snel kun plakken in een vbs-tekstbestand om te testen. Het gaat om het maken van die class met argumenten.
Maar er is meer dan genoeg informatie hierover op Google te vinden.
Geloof me, ik heb al deze 21 links (Google search) en nog meer bezocht. Geef dan maar een link.

"It's not that I'm lazy. It's that I just don't care."


  • Xlnt
  • Registratie: Oktober 2000
  • Laatst online: 18-08 08:11
Op donderdag 06 juni 2002 23:26 schreef .oisyn het volgende:
ga de [topic=397053] eens lezen
Java/VB script horen in w&g, niet in p&w

PW -> WG
Daar staat in:
HTML, JAVASCRIPT en FLASH moeten in W&G!
Het probleem is in VBScript. En het heeft totaal niets met het Web of Graphics te maken. Staat het hier toch verkeerd, is er dan een mod die het kan verplaatsen, of moet ik een nieuwe in WG starten?

edit:

Is al gebeurd zie ik.

"It's not that I'm lazy. It's that I just don't care."


  • gorgi_19
  • Registratie: Mei 2002
  • Laatst online: 06-09 09:41

gorgi_19

Kruimeltjes zijn weer op :9

code:
1
2
3
4
5
6
7
8
9
Class CustomObject
   Public value1
   Public value2
End Class
Dim objCustom
Set objCustom = New CustomObject
objCustom.value1 = 1
objCustom.value2 = 2
WScript.Echo(CStr(objCustom.value1) & Chr(10) & CStr(objCustom.value2))

Deze werkt in ieder geval. Je kan een vergelijkbaar artikel vinden (weliswaar voor ASP/VBScript, maar er zijn wel enorme overeenkomsten)

http://www.4guysfromrolla.com/webtech/092399-1.2.shtml

Digitaal onderwijsmateriaal, leermateriaal voor hbo

Pagina: 1