String Handling Functions in VBA in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
String Handling Functions in VBA in Hindi
String Handling Functions in VBA in Hindi
Introduction to String Handling in VBA
Visual Basic for Applications (VBA) рдореЗрдВ string handling functions рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА рднреА text рдХреЛ manipulate, analyze рдпрд╛ modify рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЬрдм рд╣рдо Excel VBA рдореЗрдВ рдХрд┐рд╕реА user рдХреЗ input, cells рдореЗрдВ рдореМрдЬреВрдж рдбреЗрдЯрд╛ рдпрд╛ рдХрд┐рд╕реА variable рдХреЗ text рдХреЛ control рдпрд╛ analyze рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддрдм рд╣рдореЗрдВ string functions рдХрд╛ рдЗрд╕реНрддреЗрдорд╛рд▓ рдХрд░рдирд╛ рдкрдбрд╝рддрд╛ рд╣реИред рдпрд╣ functions Excel VBA рдореЗрдВ automation рдХреЛ рдЕрдзрд┐рдХ smart рдФрд░ efficient рдмрдирд╛рддреЗ рд╣реИрдВред
Commonly Used String Functions
VBA рдореЗрдВ рдХреБрдЫ рдкреНрд░рдореБрдЦ string functions рд╣реЛрддреЗ рд╣реИрдВ рдЬреЛ рдЕрдХреНрд╕рд░ рдЗрд╕реНрддреЗрдорд╛рд▓ рдХрд┐рдП рдЬрд╛рддреЗ рд╣реИрдВ:
- Left() тАУ рдХрд┐рд╕реА string рдХреА рд╢реБрд░реБрдЖрдд рд╕реЗ characters рдирд┐рдХрд╛рд▓рдиреЗ рдХреЗ рд▓рд┐рдП
- Right() тАУ рдХрд┐рд╕реА string рдХреЗ рдЖрдЦрд┐рд░реА characters рдирд┐рдХрд╛рд▓рдиреЗ рдХреЗ рд▓рд┐рдП
- Mid() тАУ string рдХреЗ рдмреАрдЪ рд╕реЗ characters рдирд┐рдХрд╛рд▓рдиреЗ рдХреЗ рд▓рд┐рдП
- Len() тАУ рдХрд┐рд╕реА string рдХреА рд▓рдВрдмрд╛рдИ (characters рдХреА рд╕рдВрдЦреНрдпрд╛) рдкрддрд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП
- Instr() тАУ рдХрд┐рд╕реА character рдпрд╛ substring рдХреА position рдЦреЛрдЬрдиреЗ рдХреЗ рд▓рд┐рдП
- LCase() рдФрд░ UCase() тАУ lowercase рдпрд╛ uppercase рдореЗрдВ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП
Using Left, Right, Mid Functions in VBA in Hindi
Left() Function
Left() function рдХрд┐рд╕реА string рдХреЗ рд╢реБрд░реВ рд╕реЗ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ characters рдХреЛ рдирд┐рдХрд╛рд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдкреНрд░рдпреЛрдЧ рд╣реЛрддрд╛ рд╣реИред
Syntax: Left(string, length)
рдЬрд╣рд╛рдБ string
рд╡рд╣ text рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕рд╕реЗ рдЖрдк characters рдирд┐рдХрд╛рд▓рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдФрд░ length
рд╡рд╣ рд╕рдВрдЦреНрдпрд╛ рд╣реЛрддреА рд╣реИ рдЬрд┐рддрдиреЗ characters рдЪрд╛рд╣рд┐рдПред
Example:
Sub LeftFunctionDemo()
Dim msg As String
msg = "Excel VBA"
MsgBox Left(msg, 5) 'Output: Excel
End Sub
Right() Function
Right() function рдХрд┐рд╕реА string рдХреЗ рдЕрдВрдд рд╕реЗ characters рдХреЛ extract рдХрд░рддрд╛ рд╣реИред
Syntax: Right(string, length)
Example:
Sub RightFunctionDemo()
Dim msg As String
msg = "Excel VBA"
MsgBox Right(msg, 3) 'Output: VBA
End Sub
Mid() Function
Mid() function string рдХреЗ рдмреАрдЪ рд╕реЗ characters рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИ, рд╢реБрд░реБрдЖрдд рдХреА position рдФрд░ рдХрд┐рддрдиреЗ characters рдЪрд╛рд╣рд┐рдП рдпрд╣ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рдирд╛ рд╣реЛрддрд╛ рд╣реИред
Syntax: Mid(string, start, length)
Example:
Sub MidFunctionDemo()
Dim msg As String
msg = "Excel VBA Programming"
MsgBox Mid(msg, 7, 3) 'Output: VBA
End Sub
Using Len Function to Get String Length in Hindi
Len() function рдХрд┐рд╕реА рднреА string рдореЗрдВ рдХреБрд▓ рдХрд┐рддрдиреЗ characters рд╣реИрдВ рдпрд╣ рдмрддрд╛рддрд╛ рд╣реИред рдЗрд╕рдореЗрдВ spaces рднреА count рд╣реЛрддреЗ рд╣реИрдВред
Syntax: Len(string)
Example:
Sub LenFunctionDemo()
Dim text As String
text = "Excel VBA"
MsgBox Len(text) 'Output: 9
End Sub
рдЙрдкрд░реЛрдХреНрдд рдЙрджрд╛рд╣рд░рдг рдореЗрдВ "Excel VBA" рдореЗрдВ 9 characters рд╣реИрдВ (space рднреА рд╢рд╛рдорд┐рд▓ рд╣реИ)ред
Combining String Functions for Effective String Handling in Hindi
рдЬрдм рд╣рдо VBA рдореЗрдВ multiple string functions рдХреЛ рдПрдХ рд╕рд╛рде рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рд╣рдо рдмрд╣реБрдд рд╣реА рд╢рдХреНрддрд┐рд╢рд╛рд▓реА рдФрд░ flexible string processing рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдиреАрдЪреЗ рдХреБрдЫ рдорд╣рддреНрд╡рдкреВрд░реНрдг рдЙрджрд╛рд╣рд░рдг рджрд┐рдП рдЧрдП рд╣реИрдВ рдЬрд╣рд╛рдБ рд╣рдордиреЗ string functions рдХреЛ combine рдХрд┐рдпрд╛ рд╣реИред
Example 1: Extract First Name from Full Name
рдорд╛рди рд▓реАрдЬрд┐рдП рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рдПрдХ рдирд╛рдо рд╣реИ тАУ "Rahul Sharma", рдФрд░ рд╣рдореЗрдВ рд╕рд┐рд░реНрдл "Rahul" рдирд┐рдХрд╛рд▓рдирд╛ рд╣реИред
Sub ExtractFirstName()
Dim fullName As String
Dim spacePos As Integer
fullName = "Rahul Sharma"
spacePos = InStr(fullName, " ")
MsgBox Left(fullName, spacePos - 1) 'Output: Rahul
End Sub
рдпрд╣рд╛рдБ рд╣рдордиреЗ InStr
function рд╕реЗ space рдХреА position рдирд┐рдХрд╛рд▓реА рдФрд░ рдлрд┐рд░ Left()
рд╕реЗ рдЙрддрдиреЗ characters рд▓рд┐рдПред
Example 2: Extract Domain from Email
рдЕрдЧрд░ рдЖрдкрдХреЗ рдкрд╛рд╕ рдПрдХ email рд╣реИ тАУ "student@example.com", рдФрд░ рдЖрдкрдХреЛ "example.com" рдирд┐рдХрд╛рд▓рдирд╛ рд╣реИред
Sub ExtractDomain()
Dim email As String
Dim atPos As Integer
email = "student@example.com"
atPos = InStr(email, "@")
MsgBox Mid(email, atPos + 1) 'Output: example.com
End Sub
String Cleaning: Removing Unwanted Spaces
VBA рдореЗрдВ Trim()
function рдХрд╛ рдкреНрд░рдпреЛрдЧ leading рдФрд░ trailing spaces рдХреЛ рд╣рдЯрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
Sub TrimExample()
Dim messy As String
messy = " Hello VBA "
MsgBox Trim(messy) 'Output: Hello VBA
End Sub
Using UCase and LCase
- UCase(string) тАУ рдкреВрд░реЗ string рдХреЛ upper case рдореЗрдВ рдмрджрд▓ рджреЗрддрд╛ рд╣реИред
- LCase(string) тАУ рдкреВрд░реЗ string рдХреЛ lower case рдореЗрдВ рдмрджрд▓ рджреЗрддрд╛ рд╣реИред
Sub CaseExample()
Dim text As String
text = "Excel VBA"
MsgBox UCase(text) 'Output: EXCEL VBA
MsgBox LCase(text) 'Output: excel vba
End Sub
Table: Important String Functions in VBA
Function | Purpose |
---|---|
Left() | Start рд╕реЗ characters рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИ |
Right() | End рд╕реЗ characters рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИ |
Mid() | Middle рд╕реЗ characters рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИ |
Len() | String рдХреА length рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИ |
Instr() | Substring рдХреА position рдмрддрд╛рддрд╛ рд╣реИ |
Trim() | Unwanted spaces рд╣рдЯрд╛рддрд╛ рд╣реИ |
UCase() | Upper Case рдореЗрдВ convert рдХрд░рддрд╛ рд╣реИ |
LCase() | Lower Case рдореЗрдВ convert рдХрд░рддрд╛ рд╣реИ |
рдЗрди рд╕рднреА string functions рдХреЛ рд╕реАрдЦрдХрд░ рдЖрдк Excel VBA рдореЗрдВ text рд╕реЗ рдЬреБрдбрд╝реА рд▓рдЧрднрдЧ рд╣рд░ problem рдХреЛ solve рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЗрди functions рдХреЛ рд╕рд╛рде рдореЗрдВ use рдХрд░рдХреЗ complex string manipulation рдХрд░рдирд╛ рдмрд╣реБрдд рдЖрд╕рд╛рди рд╣реЛ рдЬрд╛рддрд╛ рд╣реИ, рдЬрд┐рд╕рд╕реЗ automation рдФрд░ reporting рдХреА quality рдХрд╛рдлреА рдмрдврд╝ рдЬрд╛рддреА рд╣реИред
FAQs
Len("Your Text")
Trim(" Your Text ")