code:

---

break on

$path = "c:\winnt\profiles\user\desktop\"

if substr($path,len($path),1) = '\'
    $path = substr($path,1,len($path)-1)
endif

$path

get $

---

code:

---

Break ON
$Uprofile = "c:\acf\swert\asd\dir1"

$temp = $Uprofile
$x = instr($Uprofile, "\")
while ($x)
   $path = $path + "\" + substr($temp,1,$x-1)
   $temp =  substr($temp,$x+1, len($temp))
   $x = instr($temp, "\")
Loop
$path = Substr($path,2,len($path))
? $path
? "Account is " + Substr($Uprofile,len($path)+2,len($uprofile))  

---

quote:

---

Split( )

Action: Returns a zero-based, one-dimensional array containing a specified number of substrings.

Syntax: Split (“string”, “delimiter”, count)

Parameters: String

Required. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data.

Delimiter

Optional. String character(s) used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.

Count

Optional. Number of substrings to be returned; -1 indicates that all substrings are returned.

Remarks: The Split function doesn't actually create a variable -- all it does is create an array, and the parser copies that back into whatever variable the result is being assigned to. Therefore, if you want Split to populate an array and have that array's contents available outside the current scope, you must make the variable/array global prior to populating it with the split function (Example 2).

Returns: An array containing the substrings found in the input string.

See Also: Join( ), UBound( )

---

quote:

---

InStrRev( )

Action: Searches a string for the presence of a second string. The search is started from the end of the source string. Note that the offset returned is counted from the beginning of the source string.

Syntax: INSTRREV ("string1", "string2")

Parameters: String1

The string to search in.

String2

The string to search for.

Returns: ?
Offset of the first character of string2 found in string1, counted from the beginning of string1

0
String2 not present in string1



See Also: InStr( ), Left( ), Right( ), SubStr( )

Example: ; find last backslash in @CURDIR
$x = INSTRREV(@CURDIR, "\")

---

code:

---

$path="c:\df\adsfvad\vwed"

$l=len($path)
$index=$l
$folder=""

while $index>0 and $folder=""
	if substr($path,$index,1)="\"
		$folder=substr($path,$index+1,$l-$index)
		endif
	$index=$index-1
	loop
? $folder

---

code:

---

$path = "c:\df\adsfvad\vwed"

$a = split($path,'\')
$folder = $a[ubound($a)]

$folder ?

---

code:

---

$path="c:\df\adsfvad\vwed"

$l=len($path)
$index=$l
$folder=""

while $index>0 and $folder=""
	if substr($path,$index,1)="\"
		$folder=substr($path,1,$index-1)
		endif
	$index=$index-1
	loop
? $folder

---

code:

---

$G = "c:\df\adsfvad\vwed"
$jpols = split($G,'\')
$L = $jpols[ubound($jpols)]
$G'O'$L'F'?

---