Member Avatar for RichardSchollar

Given the following two code snippets, how come I get different output?

Sub test() Dim str As String Dim b() As Byte str = "hello" b() = str str = "" For i = LBound(b) To UBound(b)     str = str & b(i) & " " Next i Debug.Print str End Sub

The above produces the following output:

104 0 101 0 108 0 108 0 111 0

second procedure:

Sub test2() Dim str As String Dim b() As Byte str = "hello" b() = StrConv(str, vbUnicode) str = "" For i = LBound(b) To UBound(b)     str = str & b(i) & " " Next i Debug.Print str End Sub

Which produces this output:

104 0 0 0 101 0 0 0 108 0 0 0 108 0 0 0 111 0 0 0

My question is: why the additional zeroes from the second procedure? Assigning a string to a byte array fills the byte array with the unicode characters, and I thought this was essentially what the StrConv function did (with vbUnicode option). Can anyone settle my curiosity? Thanks for any/all replies! Richard

  • 2 Contributors
  • 3 Replies
  • 108 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by Comatose

Recommended Answers

All 3 Replies

Member Avatar for RichardSchollar

Comatose - many thanks for the links. The last one was exceptionally helpful. That has sorted out a problem I was seriously confused by. Thanks again!Richard

Member Avatar for Comatose

You're Welcome!

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.