دریافت رشته از ورودی و تعداد حروف بزرگ و کوچک

[masoud.r]

با سلام

من میخواستم برای بخشی از پروژه ام یک چیزی تعریف کنم که رشته ای از ورودی دریافت کنه و تعداد حروف بزرگ و کوچک رو بنویسه ممنون میشوم راهنمایی کنید

[xxxxx_xxxxx]

سلام،
کوچک و بزرگ بودن حروف رو میشه از روی کد ASCII اونها متوجه شد.
بازه 97 تا 122 متعلق به حروف کوچک انگلیسی هست.
بازه 65 تا 90 هم برای حروف بزرگ هست.

* تاپیک، به بخش اصلی VB6 منتقل شد.

[daniyal_1363]

تعداد عدد موجود در رشته ، تعداد حروف کوچک در رشته، تعداد حروف بزرگ در رشته و تعداد فضای خالی در رشته

فقط دانلود کنید

[Pr0grammer]

مثلا این کد که تعداد حروف کوچیک رو نشون میده :


Dim tmp2 As String
Dim counter, asc_code As Integer

counter = 0
tmp2 = InputBox("Enter Text For Example [ReZa Pr0gRaMmEr] :")

For i = 1 To Len(tmp2)
asc_code = Asc(Mid(tmp2, i, 1))
If (asc_code >= 97) And (asc_code <= 122) Then counter = counter + 1
Next

MsgBox CStr(counter)

[IamOverlord]

سلام دوستان!
این کد هم تعداد حروف کوچک رو نشون می ده (البته در صورتی که فقط حرف داخل رشته ی مورد نظر باشه) :


txt = Text1.Text
For i = 1 To Len(txt)
If LCase(Mid(txt, i, 1)) = Mid(txt, i, 1) Then Lower = Lower + 1
Next i
MsgBox Lower

:چشمک: