[Файловая система] Создание папки с версией файла

[Delus1on]

Всем привет. Помогите пожалуста, нужно создавать папку с версией файла, но что бы ее название было 3-х значным, а не 4-х.

$c_folder = FileGetVersion("AutoIt3.exe")
DirCreate($c_folder)

В данном виде оно создает папку 3.3.8.1 , а нужно 3.3.8

Заранее благодарен з ответ!)

 

[ildar]

Если просто удалить 2 символа, то так

$c_folder = StringRight(FileGetVersion("AutoIt3.exe"), 2)
DirCreate($c_folder)

 

[Delus1on]

ildar - спасибо)
вот только не StringRight a StringLeft.

$c_folder = StringLeft(FileGetVersion("AutoIt3.exe"), 5)
DirCreate($c_folder)

 

[ildar]

Ну да :laugh:

 

[AZJIO]

Delus1on

3.3.8

А если 3.3.10.0, то вернёт 3.3.1 ? Регулярное выражение сделать.

$sText = StringRegExpReplace(FileGetVersion(@AutoItExe), '(\d+\.\d+\.\d+).*', '\1')
MsgBox(0, 'Сообщение', $sText)

 

[madmasles]

Варианты.

For $i = 1 To 10;00
	$sFulVer = StringFormat('%d.%02d.%02d.%d', Random(1, 9, 1), Random(0, 99, 1), Random(0, 99, 1), Random(0, 999, 1))
	$sShortVer_1 = StringRegExpReplace($sFulVer, '\.[^.]*$', '')
	$sShortVer_2 = StringLeft($sFulVer, StringInStr($sFulVer, '.', 0, -1) - 1)
	ConsoleWrite(StringFormat('%s  ---> %s  ---> %s\n', $sFulVer, $sShortVer_1, $sShortVer_2))
Next