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
11879 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 is raid? : SQL Server Architecture

1230

How do I find information about the install locations for the various instances running on a computer?

1125

Retrieve the unique rows from table without using UNIQUE and DISTINCT keywords.

1052

What is the partitioning method?

1064

Explain difference between cross join and full outer join?

1066

What is autocommit mode in sql server?

1266

What is the difference between rank and dense_rank?

1164

How can sql server instances be hidden? : sql server security

1218

application server is slow what may be the problem

2270

What are the basic features of a trigger in ms sql server?

1268

What do you mean by an execution plan? Why is it used?

1079

Differentiate between sql temp table vs table variable?

927

How to defragment indexes with alter index ... Reorganize?

1137

What is the default server name for sql server?

1235

Does partitioning ssd reduce performance?

930