स्ट्रिंग फंक्शंस

VBA में स्ट्रिंग मैनिपुलेशन एक आवश्यक कौशल है। CSV पार्सिंग, यूजर इनपुट वैलिडेशन, या डेटा फॉर्मेटिंग के लिए आपको स्ट्रिंग्स को विभाजित, खोजना, निकालना और बदलना होगा।

स्ट्रिंग फंक्शंस का सारांश

Split फंक्शन

बेसिक सिंटैक्स

Split(स्ट्रिंग, [डिलीमीटर], [सीमा], [तुलना])

बेसिक उपयोग

Sub SplitBasic()
    Dim text As String
    Dim parts() As String

    text = "सेब,केला,संतरा,अंगूर"
    parts = Split(text, ",")

    Dim i As Long
    For i = LBound(parts) To UBound(parts)
        Debug.Print i & ": " & parts(i)
    Next i

    ' आउटपुट:
    ' 0: सेब
    ' 1: केला
    ' 2: संतरा
    ' 3: अंगूर
End Sub

CSV डेटा प्रोसेसिंग

Sub ProcessCSV()
    Dim csvLine As String
    Dim fields() As String

    csvLine = "अमित शर्मा,बिक्री,दिल्ली,amit@example.com"
    fields = Split(csvLine, ",")

    Range("A1").Value = fields(0)  ' नाम
    Range("B1").Value = fields(1)  ' विभाग
    Range("C1").Value = fields(2)  ' शहर
    Range("D1").Value = fields(3)  ' ईमेल
End Sub

Join फंक्शन

Split का विपरीत—एरे को स्ट्रिंग में जोड़ता है।

Sub JoinBasic()
    Dim fruits() As Variant
    Dim result As String

    fruits = Array("सेब", "केला", "संतरा")

    ' कॉमा से जोड़ें
    result = Join(fruits, ",")
    Debug.Print result  ' सेब,केला,संतरा

    ' स्पेस से जोड़ें
    result = Join(fruits, " ")
    Debug.Print result  ' सेब केला संतरा
End Sub

InStr फंक्शन

बेसिक सिंटैक्स

InStr([शुरू], स्ट्रिंग, खोज_स्ट्रिंग, [तुलना])

InStr सबस्ट्रिंग की स्थिति लौटाता है। नहीं मिलने पर 0 लौटाता है।

Sub InStrBasic()
    Dim text As String
    Dim pos As Long

    text = "नमस्ते दुनिया"

    ' "दुनिया" खोजें
    pos = InStr(text, "दुनिया")
    Debug.Print pos  ' स्थिति

    ' केस-इनसेंसिटिव खोज
    pos = InStr(1, text, "दुनिया", vbTextCompare)
    Debug.Print pos
End Sub

Left और Right फंक्शन

Left फंक्शन

Sub LeftExample()
    Dim text As String
    text = "नमस्ते दुनिया"

    Debug.Print Left(text, 6)   ' "नमस्ते"
End Sub

Right फंक्शन

Sub RightExample()
    Dim text As String
    text = "नमस्ते दुनिया"

    Debug.Print Right(text, 6)  ' "दुनिया"
End Sub

Mid फंक्शन

बेसिक सिंटैक्स

Mid(स्ट्रिंग, शुरू, [लंबाई])

Sub MidBasic()
    Dim text As String
    text = "नमस्ते दुनिया"

    ' स्थिति 7 से निकालें
    Debug.Print Mid(text, 7)      ' "दुनिया"

    ' स्थिति 1 से 6 कैरेक्टर
    Debug.Print Mid(text, 1, 6)   ' "नमस्ते"
End Sub

Replace फंक्शन

Sub ReplaceBasic()
    Dim text As String

    text = "नमस्ते दुनिया"

    ' "दुनिया" को "VBA" से बदलें
    Debug.Print Replace(text, "दुनिया", "VBA")  ' नमस्ते VBA

    ' सभी स्पेस को अंडरस्कोर से बदलें
    text = "नमस्ते दुनिया कैसे हो"
    Debug.Print Replace(text, " ", "_")  ' नमस्ते_दुनिया_कैसे_हो
End Sub

Trim फंक्शन

VBA तीन ट्रिम फंक्शन प्रदान करता है:

Sub TrimExample()
    Dim text As String
    text = "   नमस्ते दुनिया   "

    Debug.Print "[" & Trim(text) & "]"   ' [नमस्ते दुनिया]
    Debug.Print "[" & LTrim(text) & "]"  ' [नमस्ते दुनिया   ]
    Debug.Print "[" & RTrim(text) & "]"  ' [   नमस्ते दुनिया]
End Sub

सारांश

इन फंक्शंस में महारत हासिल करके VBA में किसी भी स्ट्रिंग कार्य को कुशलता से संभालें।