Topic: How do I find the location of MyDocuments folder?

[alanjt]

I'd probably go with the SpecialFolders object

Why, is the system variable too simple?

[Krushert]

   Wow! you guys ran with this one. 

I'd probably go with the SpecialFolders object

Why, is the system variable too simple?

Not for me it isn't.  It curls up very nicely inside my simple mind.
The more complex methods is for more complex minds.
 

Thanks again guys.

[laidbacklarry]

Nostalgia? maybe.

On the other hand... there are some things you can do faster and easier in DOS. Our application includes a simple command - DOS - which opens a DOS window. If I can get a user to DOS, I can tell him/her Type this, Type that... and before you know it, we've done what needs to be done. I tell a user to open "Windows Explorer" and they almost always start "Internet Explorer"...

[JohnK]

I am a comand prompt junkie (well that comes froms being a *nix user though too).

AutoCAD conversations:
"type in: sh <enter> <enter> ..."

[Krushert]

Okay next question.  
LOCALROOTPREFIX gives me this = "C:\\Users\\Ted Krush\\AppData\\Local\\Autodesk\\ACA 2010\\enu\\"

Is there something out there that will get me this = "C:\\Users\\Ted Krush\\AppData\\Local  <=== back  slashes can be present or not.

[Lee Mac]

getenv TMP or TEMP may get you close 

[ronjonp]

What Lee said:


(substr (getenv "Temp") 1 (vl-string-search "\\Temp" (getenv "Temp")))

[alanjt]

getenv TMP or TEMP may get you close 

FYI: That will abbreviate the folder names if they are too long.

eg.

Code: [Select]

Command: (getenv "Tmp")
"C:\\Users\\ATHOMP~1\\AppData\\Local\\Temp"

[Krushert]

What Lee said:


(substr (getenv "Temp") 1 (vl-string-search " \\Temp"(getenv "Temp")))

Okay how did you do that?  and by that I mean tell to "delete" the " \\Temp" from the string?

The vl-string-search function searches the string not deletes from my reading the help file on vl-string-search. 

<sigh> I wish the help was little more dynamic when it comes to holding my hand.

[alanjt]

What Lee said:


(substr (getenv "Temp") 1 (vl-string-search " \\Temp"(getenv "Temp")))

Okay how did you do that?  and by that I mean tell to "delete" the " \\Temp" from the string?

The vl-string-search function searches the string not deletes from my reading the help file on vl-string-search. 

<sigh> I wish the help was little more dynamic when it comes to holding my hand.

Look at the substr in the beginning of the call.

[ronjonp]

Look at the SUBSTR function (which does the trimming)

(vl-string-search " \\Temp"(getenv "Temp")) returns a number where the string "\\Temp" starts.

SUBSTR starts at a point in a string (in this case the beginning (1)) then stops at the beginning of "\\Temp" which was returned by the vl-string-search.

Maybe this will help you see it:

Code: [Select]

(setq string (getenv "Temp"))
;;If "\\Temp" is found in string
(if (setq p (vl-string-search "\\Temp" string))
  ;;Trim the string
  (substr string 1 p)
  ;;Else return the full string
  string
)

[Krushert]

Ahh the search is returning numerical position of where \\Temp starts in the string.

Me gets it now.  Thanks again.

[ronjonp]

Ahh the search is returning numerical position of where \\Temp starts in the string.

Me gets it now.  Thanks again.

Glad to help out.

[Krushert]

How do I trim the right side of a sting to certain known character with unknown characters in between.

"\\\\server\\users\\ted krush\\my documents\\Folder name varies\\ To be trimmed but folder name also varies \\"

I can not get either vl-string-right-trim or Substr functions to fit.

I am trying to slice it and dice it using this ginzo code and it not working.

Code: [Select]

  (setq OldUserFolder1 (vl-filename-directory (findfile "acad.pgp")))
  (setq OldUserFolder2 (vl-string-right-trim "\\" OldUserFolder1))

A little push please?

[ronjonp]

If I understand the question look into this:
(vl-string-position char-codestr [start-pos [from-end-p]])
Arguments

char-code
The integer representation of the character to be searched.

str
The string to be searched.

start-pos
The position to begin searching from in the string (first character is 0); 0 if omitted.

from-end-p
If T is specified for this argument, the search begins at the end of the string and continues backward to pos