Convert a single character to string

[cesarone82]

Hi,



I have a string which needs to be split in single characters to fill in a pdf form. The issue is that it seems that the function is expecting a string, while when i reference I single character i don't get a string type:

Dim st1 as String
st1= "ABCDE"

Dim st2 as String
st2=st1(1)

Seems the latter is not possible, how can i create a string with a single character? BTW i saw some examples in internet using Char type, but it seems in VBA7 there is not such type

[cesarone82]

Hi,

I have a string which needs to be split in single characters to fill in a pdf form. The issue is that it seems that the function is expecting a string, while when i reference I single character i don't get a string type:

Dim st1 as String
st1= "ABCDE"

Dim st2 as String
st2=st1(1)

Seems the latter is not possible, how can i create a string with a single character? BTW i saw some examples in internet using Char type, but it seems in VBA7 there is not such type

Ok i got it using MID function, seems not possible to address with st1(index)

[CJ_London]

seems not possible to address with st1(index)

you can do it with a byte array, tho' I suspect no better than using the mid function

Dim b() As Byte
Dim i As Integer


b = "ab1De"
For i = 0 To UBound(b) - 1
   Debug.Print Chr(b(i))
   i = i + 1
Next i

note that characters use 2 bytes, hence the need for i+1.

If you are using characters with an ascii code greater than 254 then you need to use

Debug.Print ChrW(b(i) Xor b(i + 1))

[Welshgasman]

It would be if you used the Split() function, but you have nothing to split it by.