Oppure

Loading
04/05/10 17:50
Fr4nk94
Salve a tutti...
nel mio programma ho bisogno di contare tutti gli 0 presenti in una txtbox...
mi spiego meglio, mi serve in VB.NET il comando che in exel si chiama CONTA.SE([intervallo];[valore]), che praticamente restituisce un numero pari al numero di volte in cui compare il valore dato nell'intervallo di celle selezionato...
Se non sono stato molto chiaro non bisogna far altro che dirlo!:rofl:
ciao a tutti e grz anticipatamente
aaa
04/05/10 18:50
Fr4nk94
no... è simile ma no...
io ho una text box in cui verranno inseriti dei numeri in colonna
es.
0
1
0
2
5
1
8
2

ora mi serve un comando che mi permetta di assegnare ad una variabile il numero delle volte che compare lo 0.
Se il metodo spiegato nella pagina del link è quello che devo usare, potresti spiegarmelo un po' meglio? perchè l'ho provato ma non funziona...
aaa
04/05/10 18:54
Fr4nk94
il problema è che non conta assolutamente gli 0....
Ultima modifica effettuata da Fr4nk94 04/05/10 19:41
aaa
04/05/10 21:21
Alfonso
Eppure...

Dim n() As String
n = Split(Text1.Text, "0";)
MsgBox UBound(n)
Ultima modifica effettuata da Alfonso 04/05/10 21:22
aaa
05/05/10 10:25
Il Totem
Split è obsoleto.
MsgBox è obsoleto.
UBound è obsoleto.
La sezione VB6 è di sopra.

Dim n As Int32 = (TextBox1.Text.Split("0")).Length - 1


Comunque, devo dirlo, queste discussioni sono un po' monotone XD Suvvia, un po' di inventiva! Non hai mai pensato che potresti cercare tutti gli zero?
Dim Index As Int32 = 0
Dim Count As Int32 = 0

Index = TextBox1.Text.IndexOf("0", Index) + 1
Do While (Index > 0) And (Index < TextBox1.TextLength - 1)
   Count += 1
   Index = TextBox1.Text.IndexOf("0", Index) + 1
Loop 

Oppure usare un'espressione regolare?
Dim R As New Regex("0")
Dim Count As Int32 = R.Matches().Length

Oppure scorrere direttamente la stringa?
Dim Count As Int32 = 0

For Each C As Char In TextBox1.Text
   If C = "0" Then
      Count +=1
   End If
Next


Ci sono tantissimi modi...
aaa
05/05/10 12:21
Fr4nk94
Oppure scorrere direttamente la stringa?
Dim Count As Int32 = 0

For Each C As Char In TextBox1.Text
   If C = "0" Then
      Count +=1
   End If
Next


Ci sono tantissimi modi...


ok questo funziona...:k:
GRAZIE MILLE a TUTTI!!:):k:
aaa