ZeVSalt
Я не лупоглазый, это прищур такой !
- Сообщения
- 136
- Репутация
- 0
Добрый день.
Задача: сравнить содержимое папки с картинками с файлом csv, при совпадении записать в конец нового файла через разделитель ^ имя картинки с расширением. (В csv записаны наименования товара, в папке фото этих товаров, с именами файлов как у товара)
Что получилось:
Что не получилось:
1) При нахождении первого совпадения скрипт закрывается, прекращая поиск (первое найденное совпадение записывает корректно).
2) Если название картинки на русском, в файле Files_name.txt получается абракадабра (понимаю, что кодировка должна быть UTF-8, но как сделать не знаю).
помогите с реализацией :'( :'(
Задача: сравнить содержимое папки с картинками с файлом csv, при совпадении записать в конец нового файла через разделитель ^ имя картинки с расширением. (В csv записаны наименования товара, в папке фото этих товаров, с именами файлов как у товара)
Что получилось:
Код:
#include<File.au3>
$Picture_Path = 'D:\csv\picture\'
$Text_Path = 'D:\csv\'
$Csv_File_Open = FileOpen($Text_Path & "Produkt.csv", 0)
$Txt_File_Open = FileOpen($Text_Path & "Files_name.txt", 1)
$sFileList = _FO_FileSearch($Picture_Path, '*.jpg', True, 0, 3, 0, 0)
FileWrite ($Txt_File_Open, $sFileList)
FileClose($Txt_File_Open)
$Txt_File_Open = FileOpen($Text_Path & "Files_name.txt", 0)
While 1
$Txt_Line = FileReadLine($Txt_File_Open)
If @error = -1 Then ExitLoop
While 2
$Csv_Line = FileReadLine($Csv_File_Open)
If @error = -1 Then ExitLoop
$check = StringInStr ($Txt_Line, $Csv_Line, 2)
If $Txt_Line = $Csv_Line Then
$Result_File = FileOpen($Text_Path & "Import_picture.csv", 1)
FileWriteLine ($Result_File, $Csv_Line & '^' & $Txt_Line & '.jpg')
FileClose($Result_File)
EndIf
WEnd
WEnd
FileClose($Txt_File_Open)
FileClose($Csv_File_Open)
Что не получилось:
1) При нахождении первого совпадения скрипт закрывается, прекращая поиск (первое найденное совпадение записывает корректно).
2) Если название картинки на русском, в файле Files_name.txt получается абракадабра (понимаю, что кодировка должна быть UTF-8, но как сделать не знаю).
помогите с реализацией :'( :'(