Что нового

Извлечение полного имени папки RegExp'ом, из нестандартного пути

XM

Знающий
Сообщения
70
Репутация
8
Re: Извлечение полного имени папки RegExp\'ом, из нестандартного пути

...к примеру, попробуйте определить, что есть "путь", что "файл", а что "параметры"
:smile:

Код:
Dim $text[6] = ['C:\Program Files\Unknown\setup.exe /QWERTY', 'C:\Program Files\Nudoi\unipath.exe GUI', '"C:\Program Files\SV Vision\jrarth.exe" /jellyroger /hide', '"C:\test.exe" /key1 /key2"', '"C:\Program Files\SV Vision\jrarth.exe"', '"C:\SomeFolder\olololo.exe" "/U:C:\kakoy-to-bidlo-file.exe"']

For $i = 0 To 5
$sFullPath = StringRegExp($text[$i], '([^"]*\..{3}) *.*$', 1)
$sOnlyPath = StringRegExp($sFullPath[0], '(^.*\\).*', 1)
$sFileName = StringRegExpReplace($sFullPath[0], '^.*\\', '')
$sParameters = StringRegExp($text[$i], '(?:\..{3})"? *([^"]*).*$', 1)

	If @error Then
		MsgBox(48, 'RegExp', 'Error code: ' & @error)
		Exit
	EndIf

MsgBox(0, 'Result Search', 'Full Path:  ' & $sFullPath[0] & @CRLF & 'Path:  ' & $sOnlyPath[0] & @CRLF & 'FileName:  ' & $sFileName & @CRLF & 'Parameter:  ' & $sParameters[0])
Next

Exit (0)



Добавлено:
Сообщение автоматически объединено:

но, опять же, в строке:

"C:\SomeFolder\olololo.exe" "/U:C:\kakoy-to-bidlo-file.exe"

параметры не определяет.

А все остальное - пожалуйста...
 
Верх