Új hozzászólás Aktív témák

• martonx veterán

  #1420

  #1417 ArchElf

  2011-09-17 11:39:07

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  #1417 ArchElf

  #1417 ArchElf

  Gyors VBScript kérdés...
  Csináltam egy kicsi osztályt (alant), és egy Hastable-be bepakolom (tudom talán kicsit meredek). A problémám az, hogy az egyik függvényt nem hajlandó meghívni a futtatókörnyezet...
  Osztály:
  Class RelStore
  'Cache Time 5 min
  
  Private d_Timer
  Private b_Member
  Private b_Init
  Private VALIDITY
  
  Private Sub Class_Initialize
  VALIDITY = 300
  d_Timer = 0
  b_Member = False
  b_Init = False
  End Sub
  
  Public Function Initialize(Membership)
  d_Timer = Timer
  b_Member = Membership
  b_Init = True
  End Function
  
  Public Sub Invalidate()
  Class_Initialize
  End Sub
  
  Public Function IsMember()
  IsMember = b_Member
  End Function
  
  Public Function IsValid()
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Function
  End Class

  Ahol kicsomagolnám a Hastable-ből:
  If htCache.ContainsKey(SearchString) Then
  Set rs = htCache(SearchString)
  If rs.IsValid Then
  IsMember = rs.IsMember
  Else
  IsMember = False
  htCache.Remove SearchString
  End If
  Else
  DebugWrite "Object NOT found in cache: " & SearchString
  End If

  Hibaüzenet:
  An error occurred on line 97 while executing script 'User Group Check'
  Source: Microsoft VBScript runtime error
  Description: Object doesn't support this property or method: 'rs.IsValid'

  Ja és próbáltam már így is
  Public Property Get IsValid
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Property

  AE

  Hashtable nélkül működik az isvalid?
  Hashtable minek kell? Tömbön belüli keresést akarsz gyorsítani?
  Esetleg hátha tudnánk alternatív megoldási javaslatokat, ha leírod, mi is a célod.

• #90999040 törölt tag

  #1418

  #1417 ArchElf

  2011-09-16 19:46:28

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #90999040

  törölt tag

  #1417 ArchElf

  #1417 ArchElf

  Gyors VBScript kérdés...
  Csináltam egy kicsi osztályt (alant), és egy Hastable-be bepakolom (tudom talán kicsit meredek). A problémám az, hogy az egyik függvényt nem hajlandó meghívni a futtatókörnyezet...
  Osztály:
  Class RelStore
  'Cache Time 5 min
  
  Private d_Timer
  Private b_Member
  Private b_Init
  Private VALIDITY
  
  Private Sub Class_Initialize
  VALIDITY = 300
  d_Timer = 0
  b_Member = False
  b_Init = False
  End Sub
  
  Public Function Initialize(Membership)
  d_Timer = Timer
  b_Member = Membership
  b_Init = True
  End Function
  
  Public Sub Invalidate()
  Class_Initialize
  End Sub
  
  Public Function IsMember()
  IsMember = b_Member
  End Function
  
  Public Function IsValid()
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Function
  End Class

  Ahol kicsomagolnám a Hastable-ből:
  If htCache.ContainsKey(SearchString) Then
  Set rs = htCache(SearchString)
  If rs.IsValid Then
  IsMember = rs.IsMember
  Else
  IsMember = False
  htCache.Remove SearchString
  End If
  Else
  DebugWrite "Object NOT found in cache: " & SearchString
  End If

  Hibaüzenet:
  An error occurred on line 97 while executing script 'User Group Check'
  Source: Microsoft VBScript runtime error
  Description: Object doesn't support this property or method: 'rs.IsValid'

  Ja és próbáltam már így is
  Public Property Get IsValid
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Property

  AE

  Ja és próbáltam már így is

  Valószínűleg nem az IsValid()-el van probléma, hanem hogy a htCache(SearchString) nem megfelelő típust vagy esetleg Nothing-ot ad vissza. Első lépésben vizsgálnám Nothing-ra:
  if (rs is Nothing) then
  'ide pl. valami kiiratás
  End If

Új hozzászólás Aktív témák