Oppure

Loading
13/12/06 8:38
CGiuseppe
Ciauz!
Ho inserito in un Hashtable un valore in questo modo:

Dim cont As Hashtable

Sub AddKey(ByVal key As String)
cont.Add(key,Nothing)
End Sub

'Procedura per prendere dall'input della console un comando:

Sub CtrlCommand(byVal cmd As String)
If cmd.Contains("define[" & 'Qualsiasi chiave contenuta nell'hashtable & "]";) Then
'Istruzioni...
End If
End Sub

Sapete come si fa? Spero di essermi spiegato bene!
aaa
13/12/06 17:18
Il Totem
Postato originariamente da CGiuseppe:

Ciauz!
Ho inserito in un Hashtable un valore in questo modo:

Dim cont As Hashtable

Sub AddKey(ByVal key As String)
cont.Add(key,Nothing)
End Sub

'Procedura per prendere dall'input della console un comando:

Sub CtrlCommand(byVal cmd As String)
If cmd.Contains("define[" & 'Qualsiasi chiave contenuta nell'hashtable & "]";) Then
'Istruzioni...
End If
End Sub

Sapete come si fa? Spero di essermi spiegato bene!

Puoi usare:
Console.ReadLine
Ma non so se c'è da fare qualcosa prima per far sì che vada anche in una applicazione windows. Tu prova... (magari nella classe console c'è qualche proedura per richiamarla: puoi sempre richiamare un console.writeline e vedere se viene fuori...)
aaa
13/12/06 18:26
CGiuseppe
E' così ostico... mmh ma non esisterebbe un metodo nella Structure Hashtable... magari si potrebbe provare con un For Each per estrarlo? :-?
aaa
13/12/06 19:28
Il Totem
Postato originariamente da CGiuseppe:

E' così ostico... mmh ma non esisterebbe un metodo nella Structure Hashtable... magari si potrebbe provare con un For Each per estrarlo? :-?

No scusa avevo capito che volevi una funzione per leggere un valore da console. Tu invece vuoi sapere come fare a conoscere se una stringa contiene "define["+chiave+"]", giusto? In questo caso puoi usare:
if cmd.contains("define[") then
  'Con queste istruzioni di parte da 'define[n]'
  'e si ottiene 'n'
  cmd=cmd.remove(0,"define[".length)
  cmd=cmd.remove(cmd.length-1,1)
  if hashtable.keys.contains(cmd) then
    '...
  end if
end if
aaa