I was wondering if someone could tell me if there is a way to use the split function to split a string up and then give me the total number of substrings and store them so I may trim them to create load numbers for example

Post Office
and then
split it so it is
Post Office and I would want to trim it to

PO

I figured once I split them I could use the left function to trim them to the first character

any help would be greatly appreciated





jd erd

__________________
jd erd

When you use the Split() function, you put the results in an array, and then use the Left(Array(i), 1) to get the first character.

Your code looks like:

Dim POArray As Variant

sString = "Post Office" 'for example

ReDim POArray(0)

POArray = Split(sString, " ") 'This splits the string based on a space

sNewString = ""
i = 0

Do Until i = UBound(POArray) + 1
   sNewString = sNewString & Left(POArray(i), 1)
   i = i + 1
Loop

This will yield "PO" from "Post Office"

Did that help any?


mmcdonal

thanks you so much that helped me do exactly what I wanted

jd erd