ottenere numero di un determinato carattere in una stringa

[gabronzio]

buonasera a tutti...esiste una funzione che mi permetta di sapere il numero di un determinato carattere in una stringa esempio:
io ho la stringa "0101"
vorrei sapere quanti 1 ci sono nella stringa come faccio???????????????
grazie a tutti in anticipo . . .

[sotoli]

Ciao...intanto di che linguaggio stiamo parlando?

[gabronzio]

scusate...comunque visual basic 6.0

[gibra]

Puoi fare così

    Dim sAr() As String
    sAr = Split(Text1.Text, "1")
    MsgBox UBound(sAr)

Ciao

[sotoli]

Altrimenti potresti farti una funzione del genere:

Private Function conta(ByVal s As String, ByVal c As Char) As Integer
    Dim i As Integer = 0, count As Integer = -1
	Do
	    count += 1
	    i = InStr(i + 1, s, c)
	Loop Until (i = 0)
	conta = count
End Function

[MItaly]

Un metodo un po' più "sporco" ma più compatto:

Private Function conta(ByVal s As String, ByVal c As Char) As Integer
    Return s.Length-s.Replace(c.ToString(),"").Length
End Function

.

[oregon]

Originariamente inviato da MItaly
Un metodo un po' più "sporco" ma più compatto:

Sicuramente per VB.NET ... non per VB6 ...

[gibra]

Originariamente inviato da sotoli
Altrimenti potresti farti una funzione del genere:

Private Function conta(ByVal s As String, ByVal c As Char) As Integer
    Dim i As Integer = 0, count As Integer = -1
	Do
	    count += 1
	    i = InStr(i + 1, s, c)
	Loop Until (i = 0)
	conta = count
End Function

Non ho capito...
ByVal c As Char ? in VB6 ?

Ciao

[sotoli]

Originariamente inviato da gibra
Non ho capito...
ByVal c As Char ? in VB6 ?

Ciao

Ops...colpa del VB.NET, cmq togliendo byval sui parametri funziona anche in VB6.

[oregon]

Originariamente inviato da sotoli
Ops...colpa del VB.NET, cmq togliendo byval sui parametri funziona anche in VB6.

As Char in VB6?