VBA
Konwertowanie innych typów na ciągi znaków
Szukaj…
Uwagi
VBA pośrednio konwertuje niektóre typy na łańcuchy, jeśli to konieczne i bez dodatkowej pracy programisty, ale VBA zapewnia również szereg jawnych funkcji konwersji łańcuchów, a także możesz napisać własny.
Trzy najczęściej używane funkcje to CStr
, Format
i StrConv
.
Użyj CStr, aby przekonwertować typ liczbowy na ciąg
Const zipCode As Long = 10012
Dim zipCodeText As String
'Convert the zipCode number to a string of digit characters
zipCodeText = CStr(zipCode)
'zipCodeText = "10012"
Użyj Format, aby przekonwertować i sformatować typ liczbowy jako ciąg
Const zipCode As long = 10012
Dim zeroPaddedNumber As String
zeroPaddedZipCode = Format(zipCode, "00000000")
'zeroPaddedNumber = "00010012"
Użyj StrConv, aby przekonwertować tablicę bajtów znaków jednobajtowych na ciąg
'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"
Niejawnie konwertuj tablicę bajtów znaków wielobajtowych na ciąg
'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
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow