[shadowbat]

кто может помочь?

вроде процедура стандартная. так сказать основополагающая. любой кто сталкивался с длинными именами должен иметь у себя в заначке методы работы с ними, как например обрезка по заданной длине...

[kaster]

shadowbat, а почему ты не хочешь изучить основы языка и самому реализовать такие простые вещи? тут главное нормально составить алгоритм и знать английский язык
попробуй вот так

Код:

#include <file.au3>
$MAX_PATH = 200
Global $sFolder = FileSelectFolder("Choose folder to processing", ""); Путь до папки содержащий файлы, которые надо обрезать
;Exit
If @error Then
	MsgBox(48, 'Warning', 'The folder hasn''t been chosen. Script will be shut down now.', 3)
	Exit
EndIf
_Main($sFolder)
Func _Main($path)
	$aFiles = _FileListToArray($path, "*.txt", 1)
	$aFolders = _FileListToArray($path, "*.txt", 2)
	If Not IsArray($aFiles) AND Not IsArray($aFolders) Then 
		Return "" ;No files/folders found
	EndIf
	For $j = 1 to $aFolders[0]
		$newpath = $path & '\' & $aFolders[$j]
		_Main($newpath)
	Next
	For $i = 1 to $aFiles[0]
	$sLongName = $path & '\' & $aFiles[$i]
	_Renamer($sLongName)
Next

EndFunc

Func _Renamer($name)
	$name_NoExt = StringTrimRight($name, 4); Название без расширения
	$name_Ext = StringRight($name, 3); Расширение
	$newname_NoExt = StringLeft($name_NoExt, $MAX_PATH); Обрезаем название файла без расришения до длины MAX_PATH
	$newname = $newname_NoExt & "." & $name_Ext; Добавляем расширение
	FileMove($name, $newname);Переименовывем файл
EndFunc

опять же, пробуй на свой страх и риск на тестовой файловой структуре с папками, подпапками и нужными файлами

[shadowbat]

shadowbat, а почему ты не хочешь изучить основы языка и самому реализовать такие простые вещи? тут главное нормально составить алгоритм и знать английский язык

кто сказал что не хочу? я изучаю, конечно не так быстро как хотелось бы.

пробуй »

указываю путь и ничего не происходит. окно выбора папки закрывается и все. т.е. как будто скрипт должен сработать, но имена такие же как и были

[kaster]

я изучаю »

не в обиду сказано, но человек который действительно изучает, при виде ошибки делает как минимум 2 вещи
1. смотрит строчку с ошибкой, лезет в гугл/яндекс
2. открывает справку на предмет ошибочно написанной функции/процедуры.
с твоей стороны я наблюдаю обычный копипаст и удивленно круглые глаза, когда что-то не робит
так. теперь по сути.

опять что то не так.. путь я указал »

это моя ошибка. вместо

Код:

$aFolders = _FileListToArray($path, "*.txt", 2)

напиши

Код:

$aFolders = _FileListToArray($path, "*", 2)

а по поводу путей, то там путь указывать не нужно. это всего лишь заголовок окна для указания папки.

защита от дурака ? »

не только. если убрать MsgBox, то это ко всему прочему способ предотвратить работу скрипта при нажатии на кнопку Esc или Cancel при выборе папки и тем самым нежелательных действий.

Посмотри вот этот тред. Часть скрипта взята оттуда. Поможет понять основы рекурсивной обработки папок
Построение дерева каталогов

[shadowbat]

каждый профессионал в своем деле. или можно знать все и вся в любой момент времени по любой специализации..? профессионал бывает только в одной-двух областях. на любое познание требуется время. если Вы мне зададите вопрос по пережатию видео - я просто отвечу. мне будет уже приятно, что кому то помог.
после выбора папки вылетает (Line 16)

[Creat0R]

вопрос - зачем тогда вписывать путь в скрипт? если он просит выбрать папку визуально через дерево папок »

Если указать путь вместо FileSelectFolder, то ничего просить не будет.

а что, если не выбирать путь? а настроить чтобы скрипт сам брала путь из той папки где она находится »

Вот тот же пример, но функцию «_Renamer» я немного изменил, используется RegExp:

Код:

#include <File.au3>

Global $MAX_PATH = 150
Global $sFolder = @ScriptDir ; Путь до папки содержащий файлы, которые надо обрезать

_Main($sFolder)

Func _Main($sPath)
    $aFiles = _FileListToArray($sPath, "*.txt", 1)
    $aFolders = _FileListToArray($sPath, "*", 2)

    If Not IsArray($aFiles) And Not IsArray($aFolders) Then
        Return "" ;No files/folders found
    EndIf

    For $j = 1 To UBound($aFolders)-1
        _Main($sPath & '\' & $aFolders[$j])
    Next

    For $i = 1 To UBound($aFiles)-1
        _Renamer($sPath & '\' & $aFiles[$i])
    Next
EndFunc

Func _Renamer($sFile)
    $sNewFile = StringRegExpReplace($sFile, '(.{' & $MAX_PATH & '}).*(\.[^\.]*$)', '\1\2'); Обрезаем название файла без расришения до длины MAX_PATH
    FileMove($sFile, $sNewFile) ;Переименовывем файл
EndFunc

[shadowbat]

kaster, благодарю за помощь в этой теме
Creat0R, работает как часы.

рад, если кому то это решение тоже пригодится. (имеются ввиду будущие поколения )

РЕШЕНИЕ от Creat0R:

читать дальше »

Код:

#include <File.au3>

Global $MAX_PATH = 150
Global $sFolder = @ScriptDir ; Путь до папки содержащий файлы, которые надо обрезать

_Main($sFolder)

Func _Main($sPath)
    $aFiles = _FileListToArray($sPath, "*.txt", 1)
    $aFolders = _FileListToArray($sPath, "*", 2)

    If Not IsArray($aFiles) And Not IsArray($aFolders) Then
        Return "" ;No files/folders found
    EndIf

    For $j = 1 To UBound($aFolders)-1
        _Main($sPath & '\' & $aFolders[$j])
    Next

    For $i = 1 To UBound($aFiles)-1
        _Renamer($sPath & '\' & $aFiles[$i])
    Next
EndFunc

Func _Renamer($sFile)
    $sNewFile = StringRegExpReplace($sFile, '(.{' & $MAX_PATH & '}).*(\.[^\.]*$)', '\1\2'); Обрезаем название файла без расришения до длины MAX_PATH
    FileMove($sFile, $sNewFile) ;Переименовывем файл
EndFunc

Creat0R, а ты случайно не тот Creator, что участвует в разработке Opera AC ?
судя по твоим ссылкам в подписи - именно тот! пользуясь случаем хочу выразить неизмеримую благодарность. я на OAC второй год. и на другие браузеры пока даже смотреть не хочется. такого функционала как у OAC нигде нет, либо я пока не встречал

[kaster]

shadowbat
а так?

Код:

#include <file.au3>
#include <array.au3>
$MAX_PATH = 200
Global $sFolder = FileSelectFolder("Choose folder to processing", ""); Путь до папки содержащий файлы, которые надо обрезать
;Exit
If @error Then
	MsgBox(48, 'Warning', 'The folder was''nt been chosen. Script will be shut off now.', 3)
	Exit
EndIf
;MsgBox(0, '', $sFolder)
_Main($sFolder)
Func _Main($path)
	ConsoleWrite($path & @CRLF)
	$aFiles = _FileListToArray($path, "*.txt", 1)
	$aFolders = _FileListToArray($path, "*", 2)
	If IsArray($aFolders) Then
		For $j = 1 to $aFolders[0]
			$newpath = $path & '\' & $aFolders[$j]
			_Main($newpath)
		Next
	EndIf
	If IsArray($aFiles) Then
		For $i = 1 to $aFiles[0]
			$sLongName = $path & '\' & $aFiles[$i]
			_Renamer($sLongName)
		Next
	EndIf
	If Not IsArray($aFiles) AND Not IsArray($aFolders) Then
		Return "" ;No files/folders found
	EndIf
EndFunc

Func _Renamer($name)
	$name_NoExt = StringTrimRight($name, 4); Название без расширения
	$name_Ext = StringRight($name, 3); Расширение
	$newname_NoExt = StringLeft($name_NoExt, $MAX_PATH); Обрезаем название файла без расришения до длины MAX_PATH
	$newname = $newname_NoExt & "." & $name_Ext; Добавляем расширение
	FileMove($name, $newname);Переименовывем файл
EndFunc

[shadowbat]

а так? »

после выбора папки скрипт открыл окно с листингом входящих папок. я нажал на крестик. он выдал новое окно с листингом внутренних папок еще глубже. итак мне на тестовом примере показалось 10 окошек. я их все закрыл а после этого скрипт выкинул каждый переименованный файл на уровень выше от первичного местонахождения, но уже переименованый

[Creat0R]

ты случайно не тот Creator, что участвует в разработке Opera AC ? »

Тот