Ellipsis

[LarryMc]

Is there any way to format a string to get the same effect that you get when you DrawText using DT_PATH_ELLIPSIS flag.
Like this:

Code Select Expand

print temp$=magicsub("c:\\EBDev\\2010\\Feb\\Projects\\GUI\\sample3.eba")
end

sub magicsub(string a$),string
string b$=a$
   ....
   smoke and mirrors
  len(b$) <= predefined_length
   ..... 
return b$which results in this being printed

c:\EBDev\...\sample3.eba

LarryMc

[billhsln]

Would this be close to what you are looking for?

Code Select Expand

string temp$
openconsole
temp$ = magicsub("c:\\EBDev\\2010\\Feb\\Projects\\GUI\\sample3.eba")
print temp$
input temp$
closeconsole
end

sub magicsub(string a$), string
string b$
int i,s1 = 0,s2 = 0
for i=4 to len(a$)
if mid$(a$,i,1) = "\\"
if s1 = 0 then s1 = i
s2 = i
endif
next i
b$ = mid$(a$,1,s1) + "..." + mid$(a$,s2)
return b$
endsub

It might not be 100%, but it kind of does what you are looking for as a result.

Bill

[SnarlingSheep]

I think you want the PathCompactPath Function:
http://msdn.microsoft.com/en-us/library/bb773575%28VS.85%29.aspx

[LarryMc]

I think you want the PathCompactPath Function:

That's EXACTLY what I wanted.  Thanks!

Bill:
Thanks for your response as well.  I could have 'made do' with a variation of your suggestion but this is exactly what I was looking for.

LarryMc