VBA
अन्य प्रकार के तार में परिवर्तित करना
खोज…
टिप्पणियों
वीबीए प्रोग्रामर की ओर से आवश्यक रूप से और बिना किसी अतिरिक्त काम के कुछ प्रकारों को स्ट्रिंग में बदल देगा, लेकिन वीबीए कई स्पष्ट स्ट्रिंग रूपांतरण फ़ंक्शन भी प्रदान करता है, और आप अपना खुद का भी लिख सकते हैं।
सबसे अक्सर उपयोग किए जाने वाले तीन कार्य CStr
, Format
और StrConv
।
संख्यात्मक प्रकार को स्ट्रिंग में बदलने के लिए CStr का उपयोग करें
Const zipCode As Long = 10012
Dim zipCodeText As String
'Convert the zipCode number to a string of digit characters
zipCodeText = CStr(zipCode)
'zipCodeText = "10012"
किसी संख्यात्मक प्रकार को स्ट्रिंग के रूप में परिवर्तित करने के लिए प्रारूप का उपयोग करें
Const zipCode As long = 10012
Dim zeroPaddedNumber As String
zeroPaddedZipCode = Format(zipCode, "00000000")
'zeroPaddedNumber = "00010012"
एकल-बाइट वर्णों के बाइट-सरणी को स्ट्रिंग में बदलने के लिए StrConv का उपयोग करें
'Declare an array of bytes, assign single-byte character codes, and convert to a string
Dim singleByteChars(4) As Byte
singleByteChars(0) = 72
singleByteChars(1) = 101
singleByteChars(2) = 108
singleByteChars(3) = 108
singleByteChars(4) = 111
Dim stringFromSingleByteChars As String
stringFromSingleByteChars = StrConv(singleByteChars, vbUnicode)
'stringFromSingleByteChars = "Hello"
बहु-बाइट पात्रों के बाइट सरणी को एक स्ट्रिंग में बदल दें
'Declare an array of bytes, assign multi-byte character codes, and convert to a string
Dim multiByteChars(9) As Byte
multiByteChars(0) = 87
multiByteChars(1) = 0
multiByteChars(2) = 111
multiByteChars(3) = 0
multiByteChars(4) = 114
multiByteChars(5) = 0
multiByteChars(6) = 108
multiByteChars(7) = 0
multiByteChars(8) = 100
multiByteChars(9) = 0
Dim stringFromMultiByteChars As String
stringFromMultiByteChars = multiByteChars
'stringFromMultiByteChars = "World"
Modified text is an extract of the original Stack Overflow Documentation
के तहत लाइसेंस प्राप्त है CC BY-SA 3.0
से संबद्ध नहीं है Stack Overflow