Подскажите пожалуйста как сделать? Есть лог файл. Из него необходимо в таблицу вытащить данные. Данные нужны только из строк начинающихся с <item type="Movie". В 1й колонке имя файла без пути и расширения. Во 2й колонке время выхода файла (time=) с округлением до целых секунд в большую сторону В 3й колонке продолжительность файла (duration=) с округлением до целых секунд в большую сторону В 4й колонке (если только error="1" ) реальная продолжительность (realDuration=)с округлением до целых секунд в большую сторону. Если error="0" то ничего.
Подскажите пожалуйста как сделать? Есть лог файл. Из него необходимо в таблицу вытащить данные. Данные нужны только из строк начинающихся с <item type="Movie". В 1й колонке имя файла без пути и расширения. Во 2й колонке время выхода файла (time=) с округлением до целых секунд в большую сторону В 3й колонке продолжительность файла (duration=) с округлением до целых секунд в большую сторону В 4й колонке (если только error="1" ) реальная продолжительность (realDuration=)с округлением до целых секунд в большую сторону. Если error="0" то ничего.wvlas
Какие такие колонки в логе? Это ведь текст... Или у Вас лог.xml? Что в общем тоже можно сказать что текст.
Извините, не уточнил, какие колонки описал. Так и есть - лог.xml, поменял расширение чтобы открылся блокнотом. А колонки описал которые должны заполнится в приложенном файле "Должно получиться.xls из данных "Исходные данные.txt".
Quote (Hugo)
Какие такие колонки в логе? Это ведь текст... Или у Вас лог.xml? Что в общем тоже можно сказать что текст.
Извините, не уточнил, какие колонки описал. Так и есть - лог.xml, поменял расширение чтобы открылся блокнотом. А колонки описал которые должны заполнится в приложенном файле "Должно получиться.xls из данных "Исходные данные.txt".wvlas
Откройте vbs блокнотом, замените путь к файлу на свой. Но округление в бОльшую сторону не сделал - пустил на самотёк, округляет формат. Обязательно нужно в бОльшую? Как легко и просто сделать - не знаю... Может кто подскажет?
Откройте vbs блокнотом, замените путь к файлу на свой. Но округление в бОльшую сторону не сделал - пустил на самотёк, округляет формат. Обязательно нужно в бОльшую? Как легко и просто сделать - не знаю... Может кто подскажет?Hugo
Спасибо, то что надо. Округление можно оставить как есть. А как сделать чтобы при запуске скрипта вылетало окошко с выбором файла исходных данных "Исходные данные.xml", чтобы путь не менять в коде?
Спасибо, то что надо. Округление можно оставить как есть. А как сделать чтобы при запуске скрипта вылетало окошко с выбором файла исходных данных "Исходные данные.xml", чтобы путь не менять в коде?wvlas
Вот что нашел. Только окно открывается не по верх всех окон, а за всеми.
[vba]
Code
Option Explicit WScript.Echo "Selected file: " & ChooseFile( ) Function ChooseFile( ) ' Select File dialog based on a script by Mayayana ' Known issues: ' * Tree view always opens Desktop folder ' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\ ' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's On Error Resume Next Dim objIE, strSelected ChooseFile = "" Set objIE = CreateObject( "InternetExplorer.Application" ) objIE.visible = False objIE.Navigate( "about:blank" ) Do Until objIE.ReadyState = 4 Loop objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>" With objIE.Document.all.FileSelect .focus .click strSelected = .value End With objIE.Quit Set objIE = Nothing ChooseFile = strSelected End Function
[/vba]
Вот что нашел. Только окно открывается не по верх всех окон, а за всеми.
[vba]
Code
Option Explicit WScript.Echo "Selected file: " & ChooseFile( ) Function ChooseFile( ) ' Select File dialog based on a script by Mayayana ' Known issues: ' * Tree view always opens Desktop folder ' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\ ' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's On Error Resume Next Dim objIE, strSelected ChooseFile = "" Set objIE = CreateObject( "InternetExplorer.Application" ) objIE.visible = False objIE.Navigate( "about:blank" ) Do Until objIE.ReadyState = 4 Loop objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>" With objIE.Document.all.FileSelect .focus .click strSelected = .value End With objIE.Quit Set objIE = Nothing ChooseFile = strSelected End Function
У меня IE8, но под XP - путь выводит некорректный. А из этого комментария я понял что корректное имя файла выводится только под Win7/IE8, а путь всегда C:\fakepath\ Хотя я ещё тот англичанин...
У меня IE8, но под XP - путь выводит некорректный. А из этого комментария я понял что корректное имя файла выводится только под Win7/IE8, а путь всегда C:\fakepath\ Хотя я ещё тот англичанин...Hugo
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
