Trim

VBA में Trim, LTrim, और RTrim फ़ंक्शन स्ट्रिंग से अवांछित स्पेस हटाने के लिए उपयोग किए जाते हैं।

तीन Trim फ़ंक्शन

फ़ंक्शन	विवरण
`Trim(string)`	दोनों सिरों से स्पेस हटाता है
`LTrim(string)`	बाईं ओर से (शुरुआत से) स्पेस हटाता है
`RTrim(string)`	दाईं ओर से (अंत से) स्पेस हटाता है

मूल उदाहरण

Trim - दोनों सिरों से

Sub UseTrim()
    Dim text As String

    text = "   Hello World   "

    Debug.Print "मूल: [" & text & "]"
    Debug.Print "Trim के बाद: [" & Trim(text) & "]"
End Sub

आउटपुट:

－ □ ×

कमांड प्रॉम्प्ट

Microsoft Windows [Version xx.x.xxxxx.xxx]

C:\users\user> मूल: [ Hello World ] Trim के बाद: [Hello World]

LTrim - बाईं ओर से

Sub UseLTrim()
    Dim text As String

    text = "   Hello World   "

    Debug.Print "मूल: [" & text & "]"
    Debug.Print "LTrim के बाद: [" & LTrim(text) & "]"
End Sub

आउटपुट:

－ □ ×

कमांड प्रॉम्प्ट

Microsoft Windows [Version xx.x.xxxxx.xxx]

C:\users\user> मूल: [ Hello World ] LTrim के बाद: [Hello World ]

RTrim - दाईं ओर से

Sub UseRTrim()
    Dim text As String

    text = "   Hello World   "

    Debug.Print "मूल: [" & text & "]"
    Debug.Print "RTrim के बाद: [" & RTrim(text) & "]"
End Sub

आउटपुट:

－ □ ×

कमांड प्रॉम्प्ट

Microsoft Windows [Version xx.x.xxxxx.xxx]

C:\users\user> मूल: [ Hello World ] RTrim के बाद: [ Hello World]

व्यावहारिक उदाहरण

उपयोगकर्ता इनपुट साफ़ करना

Sub CleanUserInput()
    Dim userInput As String
    Dim cleanInput As String

    userInput = "   user@example.com   "
    cleanInput = Trim(userInput)

    Debug.Print "साफ़ किया गया ईमेल: " & cleanInput
End Sub

Excel सेल डेटा साफ़ करना

Sub CleanCellData()
    Dim rng As Range
    Dim cell As Range

    Set rng = Range("A1:A10")

    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            cell.Value = Trim(cell.Value)
        End If
    Next cell

    MsgBox "डेटा साफ़ किया गया!"
End Sub

स्ट्रिंग तुलना से पहले Trim

Sub CompareStrings()
    Dim str1 As String
    Dim str2 As String

    str1 = "  Hello  "
    str2 = "Hello"

    ' Trim के बिना
    If str1 = str2 Then
        Debug.Print "समान (Trim के बिना)"
    Else
        Debug.Print "असमान (Trim के बिना)"
    End If

    ' Trim के साथ
    If Trim(str1) = str2 Then
        Debug.Print "समान (Trim के साथ)"
    Else
        Debug.Print "असमान (Trim के साथ)"
    End If
End Sub

आउटपुट:

－ □ ×

कमांड प्रॉम्प्ट

Microsoft Windows [Version xx.x.xxxxx.xxx]

C:\users\user> असमान (Trim के बिना) समान (Trim के साथ)

チェック

स्ट्रिंग तुलना करते समय हमेशा Trim() का उपयोग करें। अतिरिक्त स्पेस अक्सर तुलना विफलता का कारण बनते हैं।

सभी स्पेस हटाना

Trim केवल शुरुआत और अंत के स्पेस हटाता है। बीच के स्पेस हटाने के लिए Replace का उपयोग करें:

Sub RemoveAllSpaces()
    Dim text As String
    Dim noSpaces As String

    text = "  Hello   World  VBA  "

    ' सभी स्पेस हटाएं
    noSpaces = Replace(Trim(text), " ", "")

    Debug.Print "मूल: [" & text & "]"
    Debug.Print "सभी स्पेस हटाने के बाद: [" & noSpaces & "]"
End Sub

आउटपुट:

－ □ ×

कमांड प्रॉम्प्ट

Microsoft Windows [Version xx.x.xxxxx.xxx]

C:\users\user> मूल: [ Hello World VBA ] सभी स्पेस हटाने के बाद: [HelloWorldVBA]

एकाधिक स्पेस को एक में बदलना

Sub NormalizeSpaces()
    Dim text As String
    Dim result As String

    text = "Hello    World     VBA"
    result = text

    ' जब तक डबल स्पेस हैं, उन्हें सिंगल से बदलें
    Do While InStr(result, "  ") > 0
        result = Replace(result, "  ", " ")
    Loop

    Debug.Print "मूल: " & text
    Debug.Print "सामान्यीकृत: " & result
End Sub

チェック

बीच के अतिरिक्त स्पेस को सामान्य करने के लिए लूप में Replace का उपयोग करें जब तक कोई डबल स्पेस न बचे।

अन्य व्हाइटस्पेस कैरेक्टर

Trim केवल स्पेस (ASCII 32) हटाता है। Tab और अन्य व्हाइटस्पेस के लिए:

Sub TrimAllWhitespace()
    Dim text As String
    Dim result As String

    text = vbTab & "  Hello World  " & vbTab

    result = text
    result = Replace(result, vbTab, " ")
    result = Trim(result)

    Debug.Print "मूल: [" & text & "]"
    Debug.Print "साफ़: [" & result & "]"
End Sub

सारांश

Trim फ़ंक्शन डेटा क्लीनिंग के लिए आवश्यक उपकरण हैं:

फ़ंक्शन	उपयोग
`Trim()`	दोनों सिरों से स्पेस हटाना (सबसे सामान्य)
`LTrim()`	केवल शुरुआत से स्पेस हटाना
`RTrim()`	केवल अंत से स्पेस हटाना

मुख्य बिंदु:

उपयोगकर्ता इनपुट और डेटा आयात के बाद हमेशा Trim() का उपयोग करें
स्ट्रिंग तुलना से पहले Trim() करें
बीच के स्पेस के लिए Replace का उपयोग करें
Tab और अन्य व्हाइटस्पेस के लिए अतिरिक्त प्रोसेसिंग की आवश्यकता है

#VBA #Trim #LTrim #RTrim #स्ट्रिंग

पिछला पृष्ठ

VBA में Split फ़ंक्शन - स्ट्रिंग को सरणी में विभाजित करें