[VBS] Come posso recuperare da codice il valore di una cella di tabella vbs?

[freetom]

Data la tabella creata con questo code

For Each clsN In Coll
      ReDim aValue(9)
      aValue(1) = clsN.numero
      aValue(2) = clsN.aRuote
      aValue(3) = clsN.nSorte
      aValue(4) = clsN.nritardo
      aValue(5) = clsN.RetRitMax
      aValue(6) = clsN.RetRitIncrRitMax
      aValue(7) = clsN.retfreq
      aValue(8) = clsN.difforo
      aValue(9) = clsN.contatore
      Call AddRigaTabella(aValue)
     
   Next

Come posso accedere alla prima cella della tabella stessa e salvare magari il contenuto in una relativa stringa?

Grazie

[oregon]

Di quale tabella parli? E cosa intendi per cella?
aValue è un vettore temporaneo fra l'altro non necessario...
Il resto è una collection di elementi di una classe (suppongo) e non si capisce quale sia il problema.

Poi lavori in vbs puro o vba con qualche prodotto Office o con vb6?

C'è un bel po' di confusione ...

[patel]

tabella vbs ? cos'è ? da un pezzetto di codice avulso dal contesto è impossibile capire

[freetom]

...

[freetom]

Intanto grazie ragazzi... ad entrambi per avermi risposto e anche così celermente...

Poi ecco qui di seguito un pò + di codice relativo... sperando che da qui possiate capire un pò meglio da dove si crea la tabella con la cella con il dato numerico cui dovrei poter accedere per trasformarlo eventualmente poi in stringa o in vettore...

Call LeggiRigheFileDiTesto(sfile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aN(0)
Call SplitByChar("." & aRighe(k),".",aN)
End If
Next
   sfile = ".\matrice-numerica-desiderata.txt"
         ReDim aRuoteSel(12)
         For k = 2 To 2 'analizza la ruota di cagliari
         Next
      Dim contatore
      Call Messaggio("Lettura file di testo")
      ReDim aRighe(0)
      Call LeggiRigheFileDiTesto(sfile,aRighe)
      
      
Call Scrivi
Call Scrivi("Classe: " & Classe & " - " & " sorte: " & nSorte)
Call Scrivi
   ReDim aTitoli(9)
   aTitoli(1) = "Formazione"
   aTitoli(2) = "Ruota"
   aTitoli(3) = "Sorte"
   aTitoli(4) = "Ritardo"
   aTitoli(5) = "Ritardo Massimo"
   aTitoli(6) = "Incremento di RItardo Massimo"
   aTitoli(7) = "Frequenza"
   aTitoli(8) = "Diff"
   aTitoli(9) = "Counter"
   Call InitTabella(aTitoli)

      
      
      For y = 0 To UBound(aRighe)
      If aRighe(y) <> "" Then
      ReDim aNum(0)
      Call SplitByChar("." & aRighe(y),".",aNum)
      contatore = contatore + 1
      nSorte = 2
      ReDim aRuoteTmp(1)
      
      Dim contatorexinserimentofrq
      
nSorte = 2
Classe = 20
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True
i = i + 1
   Dim clsN
   Dim Coll
   Set Coll = GetNewCollection
ReDim aruote7(1)
aruote7(1) = CA_
aRuoteTmp(1) = aruote7(1)


  Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,retfreq,inizio,counterrange)



Diff = RetRitMax - RetRit1
 Set clsN = New clsRitardo
      clsN.numero = StringaNumeri(aCol)
      clsN.aRuote = "ruota:" & NomeRuota(aruote7(1)) '& NomeRuota(aruote7(2))
      clsN.nSorte = nSorte
      clsN.nritardo = RetRit1
      clsN.RetRitMax = RetRitMax
      clsN.RetRitIncrRitMax = RetIncrRitMax
      clsN.retfreq = retfreq
      clsN.difforo = Diff
      clsN.contatore = contatore
Dim Diff
Diff = RetRitMax - RetRit1
Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax
Call AvanzamentoElab(1,ColTot,i)

Coll.Add clsN,"k" & clsN.numero



If(RetRit1 >= 0) Then
Call Messaggio("Trovata!!! :) per la ruota di: " & NomeRuota(aruote7(1))) '& NomeRuota(aruote7(2)))
'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " DIFF " & Diff & " contatore " & contatore & " x sorte di punti: " & nSorte)
contatore = contatore + 1
Else
Call Messaggio("Colonna " & i)
End If
If ScriptInterrotto Then Exit Do


 For Each clsN In Coll
      ReDim aValue(9)
      aValue(1) = clsN.numero
      aValue(2) = clsN.aRuote
      aValue(3) = clsN.nSorte
      aValue(4) = clsN.nritardo
      aValue(5) = clsN.RetRitMax
      aValue(6) = clsN.RetRitIncrRitMax
      aValue(7) = clsN.retfreq
      aValue(8) = clsN.difforo
      aValue(9) = clsN.contatore
      Call AddRigaTabella(aValue)

   
   Next


Loop
End If

     


End If

 Call OrdinaMatriceTurbo(Coll,1,7)

Next


Call CreaTabella(7,- 1,0,2,0) ' ordina in modo decrescente mostrando come prima ed unica riga il valore di FQ + ALTO

Si tratta di uno script in vbs per un programma di lotto freeware.

Io riesco a creare correttamente la tabella e avidenziare in essa il valore numerico che mi necessita ma non riesco appunto a salvarlo in stringa o in vettore in modo da poterlo poi utilizzare con passaggi ulteriori di codice...

Grazie

[oregon]

Mi dispiace ma continuo a non capire nulla di questo tuo problema.

Già fare uno script vbs per realizzare un programma di lotto è poco sensato, ma poi scrivere il codice in quel modo e non riuscire a spiegare correttamente il problema...

[freetom]

No problem oregon E poi ho già risolto per altra strada. Grazie comunque a te e patel per essere intervenuti. Ciao