[Iska]

Образец списка? Есть ли в нём кириллица?

[mcintosh55]

В нем кириллица
Пример:
Иванова Иван Иванович
Петров Петр Петрович
Сидоров Иван Артёмович
и т.д.

[Iska]

mcintosh55, тогда ещё вопросы — кодировка файла какая? Каким образом ограничены имена? Каким образом старое имя отделено от нового?

[mcintosh55]

1) наверно не правильно задал вопрос, в текстовом файле список только новых имён нужно просто по порядку переименовать. Т.е. Берём первый файл заходим в txt файл берём из первой строчки ФИО и переименовываем Файл. Все имена в txt файле в столбике.
2) имена сохранены в с помощью блокнота кодировка стандартная windows но могу переделать под какую надо

[Elven]

как соотнести файлы с именем из списка?

[mcintosh55]

как соотнести файлы с именем из списка? »

есть файлы и есть список имен в txt файле в цикле берем первый файл и первое имя в txt файле и переименовываем (имена в txt файле записаны в столбик)

[Iska]

просто по порядку переименовать. Т.е. Берём первый файл »

И тут возникает новый вопрос — по какому порядку? Ибо, скажем, порядок по возрастанию имён в том же Проводнике и в команде dir может частично отличаться.

Впрочем, вот, на WSH:

Скрытый текст

Код:

Option Explicit

Dim strSourceFile
Dim strSourceFolder


Dim objFile
Dim objDictionary

Dim arrOldNames, arrNewNames

Dim i


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strSourceFile = .GetAbsolutePathName(WScript.Arguments.Item(0))
		strSourceFolder = .GetParentFolderName(strSourceFile)
		
		If .FileExists(strSourceFile) Then
			Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
			
			For Each objFile In .GetFolder(strSourceFolder).Files
				If StrComp(.GetExtensionName(objFile.Name), "docx", vbTextCompare) = 0 Then
					objDictionary.Add objFile.Name, ""
				End If
			Next
			
			arrOldNames = objDictionary.Keys
			
			With .OpenTextFile(strSourceFile)
				arrNewNames = Split(.ReadAll(), vbCrLf)
				.Close
			End With
			
			For i = LBound(arrOldNames) To UBound(arrOldNames)
				If i <= UBound(arrNewNames) Then
					If Len(Trim(arrNewNames(i))) > 0 Then
						.GetFile(.BuildPath(strSourceFolder, arrOldNames(i))).Name = Trim(arrNewNames(i))
					End If
				End If
			Next
			
			objDictionary.RemoveAll
			Set objDictionary = Nothing
		Else
			WScript.Echo "Can't find source file [" & strSourceFile & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptFullName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к файлу с новыми именами указывается аргументом скрипта, файлы *.docx будут искаться в том же каталоге, где находится файл с новыми именами (хоть это и категорически неправильный подход). Никаких проверок на совпадение имён не делалось.

[mcintosh55]

И тут возникает новый вопрос — по какому порядку? Ибо, скажем, порядок по возрастанию имён в том же Проводнике »

файлы иду в таком порядке:
Документ1
Документ2
Документ3
ДокументN

[Elven]

я может неправильно понял, но вроде как имеют место два файла: в одном файле имена пользователей, в другом - имена файлов, при этом каждая строка с именем пользователя в первом документе соответствует имени файла во втором документе.

т.е.

users.txt
Иван Иваныч
Иван Степаныч
Иван Кузьмич

files.txt
1.docx
2.docx
3.docx

переименование т.о. будет таким:
1.docx -> Иван Иваныч.docx
2.docx -> Иван Степаныч.docx
3.docx -> Иван Кузьмич.docx

Если я прав то на cmd получается как-то так

Код:

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
set af=users.txt
set bf=files.txt
for /f "tokens=3" %%j in ('find /c /v "" %af%') do (
for /l %%i in (1,1,%%j) do (
set an=0
for /f "delims=" %%a in (%af%) do (
set /a an=!an!+1
if !an!==%%i (
set bn=0
for /f "delims=" %%b in (%bf%) do (
set /a bn=!bn!+1
if !bn!==%%i (
rename  "%%b" "%%a.docx"
))))))

кодировка стандартная windows но могу переделать под какую надо »

файл с именами пользователей должен быть в 866