VBS/WSH/JS - Из Exel в txt с добавлением определенного текста

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - Из Exel в txt с добавлением определенного текста

d22cva

Новый участник

Сообщения: 8
Благодарности: 0

Профиль | Отправить PM | Цитировать

Вложения


	1.rar
(5.6 Kb, 14 просмотров)

Добрый день!
Попытаюсь описать задачу понятно.
Имею экселевский файл с списком рекламы 28.03.2015.xls. В колонке название блока указан номер блока. Необходимо чтобы скрипт создал тестовый файл с именем номера блока взятого из колонки с номером блока и расширением .air, далее в файле вставлял в этот файл в первую строку строчку "comment 0 " без кавычек и номер блока, а далее брал ID ролика и в каждую строку добавляя перед ID "movie 0:00:00.00 R:", а после ID добавлял ".avi", чтоб получилось так :

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

comment 0 1
movie 0:00:00.00 R:437585.avi
movie 0:00:00.00 R:491517.avi
movie 0:00:00.00 R:700948039.avi

и так с каждым блоком новый файл.
В файле 40 блоков и должно получиться 40 текстовых файлов с расширением .air
Подскажите можно это скриптом реализовать?
1.rar прилагаю с иходником Exel 28.03.2015.xls и результат как должно получиться 01-РЕК.air

Отправлено: 09:16, 31-03-2015

megaloman

Ветеран

Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать

Код:

fXLS = "28.03.2015.xls"              ' Имя Excel-файла в тек папке

NBlok1 = "A5"           ' Ячейка с первым номером блока
ID1 = "D5"              ' Ячейка с первым ID
    
NBlank = 20             ' Max число строк с пустыми ID
        
iBlank = 0
i = 0
      
Set FSO = CreateObject("Scripting.FileSystemObject")

PfXLS=Replace(WScript.ScriptFullName,WScript.ScriptName,fXLS)

Set XL = CreateObject("Excel.Application")
XL.Visible = False 				'True
XL.Workbooks.Open PfXLS
    
Do While iBlank <= NBlank
    V1 = (XL.Range(NBlok1).Offset(i, 0))
    V2 = (XL.Range(ID1).Offset(i, 0))
        
    If V1 = 0 And V2 = 0 Then
        iBlank = iBlank + 1
    Else
        If V1 <> 0 Then
            If i <> 0 Then
                NFile.Close                                       ' Закрываем файл
            End If
            Set NFile = FSO.OpenTextFile(Right(CStr(V1 + 1000000000), 2) + "-РЕК.air", 2, True) '  Открываем текстовый файл для перезаписи. Если файла нет, будет создан
            NFile.WriteLine "comment 0 " + Right(CStr(V1 + 1000000000), 2)
        End If
        NFile.WriteLine "movie 0:00:00.00 R:" + CStr(V2) + ".avi"
        iBlank = 0
    End If
    i = i + 1
Loop
    
NFile.Close                                       ' Закрываем файл
XL.Quit

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Отправлено: 19:37, 31-03-2015 | #2