Private Sub Form_Load() Dim Str As String Str = "Bhaskar" Fetc

How can count the string ?
for ex: If i have string like 'bhaskar' then i need like
b:1
h:1
a:2
s:1
k:1
r:1

please give any idea on that

Question Posted / major

9 Answers
11545 Views
TCS, I also Faced
E-Mail Answers

Answer Posted / major

Private Sub Form_Load()
Dim Str As String
Str = "Bhaskar"
Fetch Str
End Sub

Public Sub Fetch(Str As String)
Dim StrNew As String
StrVal1 = Str: StrNew = Str
While StrNew <> ""
StrNew = Replace(Str, Mid(Str, 1, 1), "")
Debug.Print Mid(Str, 1, 1) & Len(Str) - Len(StrNew)
Str = StrNew
Wend
End Sub

Is This Answer Correct ?

1 Yes

4 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

What does set rowcount do?

889

What stored by the msdb?

979

What are the types of processing and explain each? : sql server analysis services, ssas

1135

Describe the functionalities that views support.

1083

What is extended stored procedures?

944

What is the difference between lock, block and deadlock? : sql server database administration

1025

How to test values returned by a subquery with the in operator?

1175

List down some advantages of sql stored procedure?

945

What is a virtual table in sql?

976

Is it safe to delete log files?

899

Explain trigger and its types?

1051

How do I create a stored procedure in dbml?

988

What is the difference between migration and upgradation in sql server?

1081

What is index in an assignment?

936

What is side by side migration in sql server?

1078