VBA
Konvertera andra typer till strängar
Sök…
Anmärkningar
VBA kommer implicit att konvertera vissa typer till sträng vid behov och utan extra arbete från programmerarens sida, men VBA tillhandahåller också ett antal explicita strängkonverteringsfunktioner, och du kan också skriva dina egna.
Tre av de mest använda funktionerna är CStr
, Format
och StrConv
.
Använd CStr för att konvertera en numerisk typ till en sträng
Const zipCode As Long = 10012
Dim zipCodeText As String
'Convert the zipCode number to a string of digit characters
zipCodeText = CStr(zipCode)
'zipCodeText = "10012"
Använd Format för att konvertera och formatera en numerisk typ som en sträng
Const zipCode As long = 10012
Dim zeroPaddedNumber As String
zeroPaddedZipCode = Format(zipCode, "00000000")
'zeroPaddedNumber = "00010012"
Använd StrConv för att konvertera en byte-grupp med en-byte-tecken till en sträng
'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"
Konvertera implicit en byte-grupp med flera-byte-tecken till en sträng
'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
Licensierat under CC BY-SA 3.0
Inte anslutet till Stack Overflow